Question

我在vba访问中使用以下代码来更新表的列，但它不起作用。请帮帮我。

最好的问候。

Dim sqlupdate As String
sqlupdate = "UPDATE Assay" _
& "SET Assay.assay_repeat = " & 0 & "" _
 & "WHERE (((Assay.[assay_repeat])= " & 1 & "));"

DoCmd.RunSQL sqlupdate

Answer 1

你有一个额外的双引号并且缺少几个空格 - 试试这样：

Dim sqlupdate As String
sqlupdate = "UPDATE Assay" _
& " SET Assay.assay_repeat = " & 0 & " _
 & " WHERE (((Assay.[assay_repeat])= " & 1 & "));"

Answer 2

你刚刚错过了表名末尾和之前的空间字符。

Dim sqlupdate As String
sqlupdate = "UPDATE Assay " _
& "SET Assay.assay_repeat = " & 0 & " " _
 & "WHERE (((Assay.[assay_repeat])= " & 1 & "));"

Answer 3

这是将SQL字符串转换为VBA代码的好方法。

创建表单

表单只需要两个文本框和一个命令按钮。 SQL语句可能很长，因此您可以将文本框放在选项卡控件的不同页面上。

Create a new form (in design view.)
Add a tab control.
In the first page of the tab control, add a unbound text box.
Set its Name property to txtSql.
Increase its Height and Width so you can see many long lines at once.
In the second page of the tab control, add another unbound text box.
Name it txtVBA, and increase its height and width.
Above the tab control, add a command button.
Name it cmdSql2Vba.
Set its On Click property to [Event Procedure].
Click the Build button (...) beside this property.
When Access opens the code window, set up the code like this:

Private Sub cmdSql2Vba_Click()
    Dim strSql As String
    'Purpose:   Convert a SQL statement into a string to paste into VBA code.
    Const strcLineEnd = " "" & vbCrLf & _" & vbCrLf & """"

    If IsNull(Me.txtSQL) Then
        Beep
    Else
        strSql = Me.txtSQL
        strSql = Replace(strSql, """", """""")  'Double up any quotes.
        strSql = Replace(strSql, vbCrLf, strcLineEnd)
        strSql = "strSql = """ & strSql & """"
        Me.txtVBA = strSql
        Me.txtVBA.SetFocus
        RunCommand acCmdCopy
    End If
End Sub

http://allenbrowne.com/ser-71.html

Answer 4

我建议您使用记录集。

Private Sub Update_My_Records(Parent As Object)
Dim Data_Recset As Object
Dim Parent_Reference As Object
Set Data_Recset = Parent_Reference.Application.DBEngine.Workspaces(0).Databases(0).OpenRecordset("SELECT * FROM Assay WHERE assay_repeat = " & 0 & ";", DB_OPEN_DYNASET)
    Data_Recset.MoveLast
    Data_Recset.MoveFirst
    Data_Recset.Edit
    Data_Recset.Fields("assay_repeat") = 1
    Data_Recset.Update
    Data_Recset.Close
Set Data_Recset = Nothing
End Sub

假设父级具有对Access.Application的引用。（我通常会传递：对Sub / Function的Form.Module.Parent引用）
该表或查询“ Assay”已存在。您一次只需要更新1行但是，如果要在表单中使用查询：

Private Sub Query_Definition_Update()
  Dim Obj_Qdef As Object
  Dim Query_Name As String
  Query_Name = "Q_Assay"
  Me.Form.Application.DBEngine.Workspaces(0).Databases(0).QueryDefs.Refresh
  Set Obj_Qdef = Me.Form.Application.DBEngine.Workspaces(0).Databases(0).QueryDefs(Query_Name)
  Obj_Qdef.SQL = Query_Update(1)
  Debug.Print Obj_Qdef.SQL
  Obj_Qdef.Execute
  ''When finished updating
  Obj_Qdef.Close
  Set Obj_Qdef = Nothing
 End Sub

'------------------------------------------------------------'

 Private Function Query_Update(New_Value as Integer) As String
  Query_Update = "UPDATE Assay" & _
           " SET Assay.assay_repeat = " & 0 & "" & _
           " WHERE (((Assay.[assay_repeat])= " & New_Value & "));"
 End Sub

在vba访问中使用SQL代码

4 个答案: