Mysql 使用记录中的文本粘贴到Access窗体控制框中

基于用户的作业ID号，我创建了一个ID记录集，其中包含不同的单元类型（想想管道尺寸）和单元（想想管道的镜头）。每个单元类型记录都有一个表单文本框的名称，其中总镜头位于不同的列中。我想做的是检查每个记录集，并为每个单元类型插入该作业ID号（用户放入表格中）的片段

另外，我在FROM子句中也得到了错误3131语法错误。

---

提前谢谢

最终找到了如何在文本框中“放置”一个值（单位总数），该值根据表单中的条件（单位类型）而变化，其中文本框的名称位于我的记录集中的记录本身中。如果其他人有类似的问题，我是如何做到的：

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

Dim cntl作为字符串
将frm设置为字符串
Dim rst_单元条目作为记录集
frm=“frm\u UserEntry”
设置rst\U UnitEntryCounts=CurrentDb.OpenRecordset（“选择…）
如果rst\U UnitEntryCounts.RecordCount为0，则
rst_UnitEntryCounts.MoveFirst
直到rst\u UnitEntryCounts.EOF=真
如果rst\u UnitEntryCounts！[UnitTypes\u CumalativeTextBoxUserEntryForm]“”则
cntl=rst\u UnitEntryCounts！[UnitTypes\u CumalativeTextBoxUserEntryForm]
表单（frm）.控件（cntl）=rst\u UnitEntryCounts！[SumOfUnitEntry\u Unit\u Count]
如果结束
rst_UnitEntryCounts.MoveNext
环

我建议您首先运行查询-您有一些不匹配的括号需要开始。解决此问题的最佳方法是将动态SQL分配给字符串变量并进行调试。打印以显示它是什么-复制/粘贴到SQL窗口并在那里进行测试-使用工作或中断的实际SQL在此报告。这

[rst\u UnitEntryCounts.UnitTypes\u WeeklyTextBoxUserEntryForm]

错误-组合框的实际名称是什么？可以。就我的组合框而言，它是动态的。因此名称将根据特定列上的记录而更改。（请参阅上面的图像链接）

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