时间戳

首页 > 解决方案 > VBA/SQL 问题访问

sql - VBA/SQL 问题访问

问题描述

我不断收到编译错误，说找不到 where 行中的 txtlln。我对 SQL/VBA 相当陌生，所以我不确定我是否使用正确的表达式来完成这项工作。

Private Sub btnlledit_Click()
Dim strSQL As String
SQL = "UPDATE tblll " & _
      "SET [Component/Product] = '" & Forms!frmaddll!txtllcomponent & "',[HN] = '" & Forms!frmaddll!txtllhn & "' " & _          
      "WHERE [LLN] = '" & Forms!frmaddll!txtlln.value & "';"
debug.print sql
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
DoCmd.Requery

Me.Refresh 
End Sub

标签： sqlvbams-access-2016

解决方案

您的字符串连接似乎有一些问题。

Private Sub btnlledit_Click()
    Dim strSQL As String

    SQL = "UPDATE tblll " & _
          "SET [Component/Product] = '" & Forms!frmaddll!txtllcomponent & "' " & _
          "WHERE [LLN] = '" & Forms!frmaddll!txtlln.value & "';"
    debug.print sql
    DoCmd.RunSQL strSQL
    DoCmd.SetWarnings True
    DoCmd.Requery

    Me.Refresh

End Sub

推荐阅读