Cuối cùng đã tìm ra cách "đặt" một giá trị (tổng các đơn vị) trong một hộp văn bản khác nhau dựa trên tiêu chí (loại đơn vị) trong một biểu mẫu, trong đó tên của hộp văn bản nằm bên trong chính bản ghi trong tập bản ghi của tôi. Trong trường hợp ai đó có câu hỏi tương tự, đây là cách tôi đã thực hiện:
Dim cntl As String
Dim frm As String
Dim rst_UnitEntry As Recordset
frm = "frm_UserEntry"
Set rst_UnitEntryCounts = CurrentDb.OpenRecordset("SELECT...)
If rst_UnitEntryCounts.RecordCount <> 0 Then
rst_UnitEntryCounts.MoveFirst
Do Until rst_UnitEntryCounts.EOF = True
If rst_UnitEntryCounts![UnitTypes_CumalativeTextBoxUserEntryForm] <> "" Then
cntl = rst_UnitEntryCounts![UnitTypes_CumalativeTextBoxUserEntryForm]
Forms(frm).Controls(cntl) = rst_UnitEntryCounts![SumOfUnitEntry_Unit_Count]
End If
rst_UnitEntryCounts.MoveNext
Loop