如何在Access VBA中排除列以维护数据

Question

我有一个Access表单，里面有一堆按钮和一些文本框。文本框会自动填充到表格中。多亏了这里的其他人，我学会了如何同步按下按钮来填充表格。现在我需要确保当我按下按钮时表中的其余信息保持不变；是"；录制。目前，所有其他列的信息都不会记录到表格中，但按下按钮会记录。我如何通过这些列并保留它们的数据，同时记录需要进行的各种按钮按下？

提前感谢！！

下面是记录在表上的当前按钮代码。

Private Sub CWTButton_Click()
Dim Sql As String
Sql = "INSERT INTO [Raw Data] (CWT) VALUES ('Yes');"
CurrentDb.Execute Sql
End Sub`  

新代码

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

结束子

Answer 1

新代码

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