訪問VBA重蹈我試圖尋找此代碼

-1

特定行，但無法找到過像什麼，我想做的事......很有趣，因爲我認爲這將是非常簡單的。訪問VBA重蹈我試圖尋找此代碼

我有以下代碼：

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)一定數量的基礎上填充報表上的文本框倍。

其意圖是將相同的記錄插入表中一定次數，併爲每個記錄在自動編號字段中指定一個唯一的標識符。

我熟悉循環，不想使用此方法，如果我可以幫助它。是否有一個簡單的命令告訴Access運行一段特定的代碼行數？

任何幫助，非常感謝。謝謝！

來源

2014-09-04 ackdaddy

不是沒有循環;或某種程度的遞歸。 – xQbert 2014-09-04 14:06:21

爲什麼你想避免循環？你想要的是多次重複一個任務......這就是一個循環！ – Barranka 2014-09-04 14:20:00

@Barranka，我明白了。但似乎應該有一個更方便或直接的方法來實現這一點。某種類型的命令說：「做10次。」 – ackdaddy 2014-09-04 14:28:38

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`

比我想的更容易證明這個循環。謝謝紳士！

來源

2014-09-04 15:05:29 ackdaddy

訪問VBA重蹈我試圖尋找此代碼

回答

相關問題