按钮单击 Access 表单将数据添加到特定列的表中答案

【问题标题】：Button click on Access form adds data to a table for specific column按钮单击 Access 表单将数据添加到特定列的表中
【发布时间】：2020-10-08 19:52:43
【问题描述】：

我有一个带有 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

结束子

【问题讨论】：

标签： ms-access-2016

【解决方案1】：

试试这个：

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');"

【讨论】：

谢谢@Gustav！第一个有效。第二个导致调试。第一个的唯一问题是，除了 CWT 之外，它使我的表的其余部分为空白。所以现在我的其余输入没有显示，但 CWT 说“是”。
您必须为所有希望不为空的字段传递值（Null）。
好的@Gustav。尝试搜索如何在其他列中传递值但没有得到答案。所以这些其他字段已经被填满了，我必须专门告诉操作传递那些其他列？假设“鱼”和“位置”列已填写。我该如何绕过它们？
听起来您有一个绑定到表格的表单。那么你就不需要这一切了；只需将绑定到 CWT 的控件设置为“是”即可。
表格肯定是未绑定的。它在设计视图中的文本框中未绑定。