Question

我已经尝试过搜索这个，但找不到任何类似于我想做的事情......有趣，因为我认为这很简单。

我有以下代码：

Dim strSQL As String
Dim strSQL1 As String

strSQL1 = [Reports]![SMT_PULL_SHEET]![Text59].Value

strSQL = "INSERT INTO tblJobRecordID (Job, JobRev, JobDate, JobTime) VALUES ('" & strSQL1 & "', '" & Me!Text63.Value & "', '" & Format(Now(), "MM/DD/YY") & "', '" & Format(Now(), "h:mm AMPM") & "');"

DoCmd.RunSQL (strSQL)

这会记录制造产品的信息。表tblJobRecordID通过自动编号字段创建唯一标识符，该字段用作序列化每个产品的方式。

我希望根据报告中填充的文本框运行DoCmd.RunSQL (strSQL)一定次数。

目的是将相同的记录插入表中一定次数，并在autonumber字段中为每个记录提供唯一的标识符。

我熟悉循环，如果我能帮忙的话，不想使用这种方法。是否有一个简单的命令告诉Access运行一行特定次数的代码？

非常感谢任何帮助。谢谢！

Answer 1

Dim strSQL As String
Dim strSQL1 As String

strSQL1 = [Reports]![SMT_PULL_SHEET]![Text59].Value

strSQL = "INSERT INTO tblJobRecordID (Job, JobRev, JobDate, PrintTime, LotQty) VALUES ('" & strSQL1 & "', '" & Me!Text63.Value & "', '" & Format(Now(), "MM/DD/YY") & "', '" & Format(Now(), "h:mm AMPM") & "', '" & Me!Text67.Value & "');"

DoCmd.SetWarnings False


For intCounter = 1 To [Reports]![SMT_PULL_SHEET]![Text67].Value
DoCmd.RunSQL (strSQL)
Next

DoCmd.SetWarnings True`

比我想象的更容易证明这个循环。谢谢绅士！

访问VBA以重复特定的代码行

1 个答案: