MS Access VBA-使用SELECT INTO创建新表并添加记录

Question

我正在尝试从另一个表[流程顺序]中获取一条记录，并将其放入带有日期（NewTableName）的新表中，但是我一直得到的参数太少。 预期为1'。 我可以使用它并根据[Process No] = txtProc或更早的内容传递一个字段，但是无法传递它传递我需要的所有字段。

 Dim strSQL As String
 Dim NewTableName As String

 NewTableName = "[Process Order-Oven " & Format(Date, "DD-MM-YYYY") & "]"

 strSQL = "SELECT [Run No], [Product ID], [Process No], [Product Description], " & _
          "[Good Product Produced] INTO " & NewTableName & _
          " FROM 'Process Order' WHERE [Process No] = txtProc.Value"

 CurrentDb.Execute strSQL, dbFailOnError

Answer 1

[您需要连接txt值。 我希望它是一个数字。 如果没有，请用单引号将其引起来。

 Dim strSQL As String
 Dim NewTableName As String

 NewTableName = "[Process Order-Oven " & Format(Date, "DD-MM-YYYY") & "]"

 strSQL = "SELECT [Run No], [Product ID], [Process No], [Product Description], " & _
          "[Good Product Produced] INTO " & NewTableName & _
          " FROM [Process Order] WHERE [Process No] = " & txtProc

 CurrentDb.Execute strSQL, dbFailOnError

Answer 2

我从字符串中删除了txtProc.Value，以便提供该值-我假设它是一个文本字段，因此用引号引起来。 这应该解决“参数太少”错误。 我还更改了“流程订单”以使用方括号定界符。

strSQL = "SELECT [Run No], [Product ID], [Process No], [Product Description], " & _
         "[Good Product Produced] INTO " & NewTableName & _
         " FROM [Process Order] WHERE [Process No] = '" & txtProc.Value & "'"