Question

我想知道是否有人可以指导我找到有关如何开发循环的良好教程。基本上，我有一个带有列ID，MachineName和Checkbox的“ tblmachines”。我要创建的是一个单击事件，VBA将采用今天的日期并将其输入到“ tblloop”列“ LoopDate”中，然后将所有已选中其复选框的计算机添加到“ tblmachines”中的“ tblloops”列“ loopMachines”中

Answer 1

如果要根据复选框条件将记录从tblmachines表插入到tblloop表，请使用以下代码：

Sub Btn_Click()
    Dim StrQry As String
    StrQry = "insert into [tblloop] ([LoopDate], [loopMachines]) select # " & VBA.Now & "# as [LoopDate], [MachineName] from [tblmachines] where Checkbox = 'True'"
    Currentdb.Execute StrQry
End Sub

MS Access VBA-循环记录集

1 个答案: