点击访问表单上的按钮可将数据添加到表中特定列的

问题描述

我有一个带有CWTButton的MS Access表单 我正在尝试在单击“原始数据”列的“ CWT”列时选择“是”。 我对编程的了解真的很有限，因此任何帮助将不胜感激。

Private Sub CWTButton_Click()
INSERT INTO Raw Data (CWT)
VALUES ("Yes");
End Sub

我也尝试过

Private Sub CWTButton_Click()
Dim db As Database
Dim rs As DAO.Recordset

Set re = db.Raw Data
rs.AddNew
re("CWT").Value = "Yes"
rs.Update
End Sub

通过@Gustav修复了代码

Private Sub CWTButton_Click()

Dim sql As String

sql = "INSERT INTO [RawData] ([Date],Staff,Species,Location,Length,Fish_ID,Comment,CWT) VALUES ('" & Me!Date.Value & "','" & Me!Staff.Value & "','" & Me!Species.Value & "','" & Me!Location.Value & "','" & Me!Length.Value & "','" & Me!Fish_ID.Value & "','" & Me!Comment.Value & "','Yes');"
CurrentDb.Execute sql

结束子

解决方法

尝试一下：

Private Sub CWTButton_Click()

    Dim Sql As String
    
    Sql = "INSERT INTO [Raw Data] (CWT,Fish,Location) VALUES ('Yes','" & Me!Fish.Value & "'," & Me!Location.Value & ");"
    CurrentDb.Execute Sql

End Sub

' or:

Private Sub CWTButton_Click()

    Dim rs As DAO.Recordset

    Set rs = CurrentDb.OpenRecordset("[Raw Data]")
    rs.AddNew
        rs.Fields("CWT").Value = "Yes"
    rs.Update
    rs.Close
    
End Sub

对于DateTime（[Date]）或数字（Length，ID）字段，请不要使用引号：

Sql = "INSERT INTO [RawData] ([Date],Staff,Species,Location,Length,Fish_ID,Comment,CWT) VALUES (#" & Format(Me!Date.Value,"yyyy\/mm\/dd" & "#','" & Me!Staff.Value & "','" & Me!Species.Value & "','" & Me!Location.Value & "'," & Me!Length.Value & "," & Me!Fish_ID.Value & ",'" & Me!Comment.Value & "','Yes');"