Question

我的代码退出了＆＃34; CurrentDb.Execute strSQL_Insert_Data＆＃34;行的sub。你知道为什么会这样吗？

  Local_Array = Array("dbo_Tape_Capture_Local_tbl", "dbo_Tape_Local_tbl", "dbo_Tape_Memo_Local_tbl")
  Server_Array = Array("dbo_Tape_Capture", "dbo_Tape", "dbo_Tape_Memo")

For i = 0 To UBound(Local_Array)
    strSQL_Insert_Data = "INSERT INTO [" & Local_Array(i) & "] " & _
                         "SELECT [" & Server_Array(i) & "].* " & _
                         "WHERE (LEFT([" & Server_Array(i) & "].header__situs_loan_id," & _
                          Len([Forms]![Login Page]![CBO_Job_Select_Login]) & ") = " & _
                         "[Forms]![Login Page]![CBO_Job_Select_Login]);"

CurrentDb.Execute strSQL_Insert_Data

CurrentDb.Close

Next i

- 添加了印刷代码 -

INSERT INTO [dbo_Tape_Capture_Local_tbl] SELECT [dbo_Tape_Capture].*
WHERE (LEFT([dbo_Tape_Capture].header__situs_loan_id,14) = [Forms]![Login Page]![CBO_Job_Select_Login]);

Answer 1

您的查询中缺少FROM TableName。将TableName替换为实际表名

strSQL_Insert_Data = "INSERT INTO [" & Local_Array(i) & "] " & _
                     "SELECT [" & Server_Array(i) & "].* " & _
                     "FROM [" & Server_Array(i) & "] " & _
                     "WHERE (LEFT([" & Server_Array(i) & "].header__situs_loan_id," & _
                      Len([Forms]![Login Page]![CBO_Job_Select_Login]) & ") = " & _
                     "[Forms]![Login Page]![CBO_Job_Select_Login]);"

为什么我的Access SQL VBA代码跳出Sub？

1 个答案: