MS Access - 分配一个变量以将固定值添加到 VBA/SQL INSERT/SELECT 语句

Question

我正在尝试将 append 记录从一个表转移到另一个表，我拥有的代码有效，但我想更改其中一个插入的值，因此它从主窗体填充，而不是从中复制记录的表

是否可以从 JbNum 变量中填充 [Job Number] 字段？

Dim db        As DAO.Database
  Dim strSQL    As String
  Dim PrtNbrGt  As String
  Dim JbNum     As String
  
  JbNum = Me.[tblManufactured.Job Number]
  PrtNbrGt = Me.SCSPartNumb

Set db = CurrentDb
strSQL = "INSERT INTO tblMaterialRequiremnt ( [Customer Part Number], [Job Number] ) " & vbCrLf & _
"SELECT tbl_BOM_Requirments.RequiredMaterialPrtNum, tbl_BOM_Requirments.ID " & vbCrLf & _
"FROM tbl_BOM_Requirments " & vbCrLf & _
"WHERE (tbl_BOM_Requirments.PrtNmber_LinkField) = """ & PrtNbrGt & """"

[Job Number] = JbNum

db.Execute (strSQL)

Answer 1

尝试这个：

Dim db        As DAO.Database
Dim strSQL    As String
Dim PrtNbrGt  As String
Dim JbNum     As String
  
JbNum = Me.[tblManufactured.Job Number]
PrtNbrGt = Me.SCSPartNumb

Set db = CurrentDb
strSQL = "INSERT INTO tblMaterialRequiremnt ( [Customer Part Number], [Job Number] ) " & vbCrLf & _
"SELECT tbl_BOM_Requirments.RequiredMaterialPrtNum, tbl_BOM_Requirments.ID, '" & JbNum & "' & vbCrLf & _
"FROM tbl_BOM_Requirments " & vbCrLf & _
"WHERE (tbl_BOM_Requirments.PrtNmber_LinkField) = """ & PrtNbrGt & """

db.Execute strSQL