代码之家  ›  专栏  ›  技术社区  ›  AJK

编译错误:应为Case

  •  1
  • AJK  · 技术社区  · 8 年前

    我有一个表单的事件过程 Execute 一系列 附加查询语句以创建新的相关记录。我得到一个“编译错误:预期情况” SELECT Inquiries.InquiryID 代码的红色。确切的代码粘贴在下面。

    Private Sub Form_AfterInsert()
       Dim db As DAO.Database
        Dim strSQL As String
        Set db = DBEngine(0)(0)
        strSQL = "INSERT INTO PreCallQuestionaireResidential ( InquiryID )"
        SELECT Inquiries.InquiryID
        FROM Inquiries
         db.Execute strSQL
        Set db = Nothing
    End Sub
    
    1 回复  |  直到 8 年前
        1
  •  1
  •   HansUp    8 年前

    当Access看到 SELECT 未引用,它希望它是 Select Case 代码块。

    你想要你的 选择 包含在 strSQL 一串

    strSQL = "INSERT INTO PreCallQuestionaireResidential ( InquiryID )" & vbCrLf & _
        "SELECT Inquiries.InquiryID FROM Inquiries"
    Debug.Print strSQL '<- view this in Immediate window; Ctrl+g will take you there