Question

ACCESS 通过命令按钮将窗体中的值插入表中

比如我有一张表A 字段为 1 2 3 4
创建一个窗体B 有4个文本框(文本框名分别为1,2,3,4) 还有一个命令按钮
在4个文本框中分别输入值，然后单击“命令按钮” 实现将文本框中输入的值插到表A对应的字段中
Dim strSql As String
strSql = "insert into A(1,2,3,4)VALUES("
strSql = strSql & [Forms]![B]![1]
strSql = strSql & "," & [Forms]![B]![2]
strSql = strSql & "," & [Forms]![B]![3]
strSql = strSql & "," & [Forms]![B]![4]
strSql = strSql & ")"

PS：如果用到转义符(') 麻烦把转义符也讲解一下 谢谢

Answer 1

这其实是将非绑定文本框内容插入到数据表内，我曾经就类似的提问做过详细解答，请参考下列链接，文字较多，请耐心阅读，相信会对你有帮助。
http://zhidao.baidu.com/question/350779600.html?oldq=1

简单解答如下，假设1、2、3、4这4个字段都是必须录入字段，1和2为文本，3为数字，4为日期，那么点击按钮将文本框内容插入表A之代码如下：
Private Sub Command1_Click()
Dim strSql As String
strSql = "insert into A(1,2,3,4) VALUES('"
strSql = strSql & [Forms]![B]![1] '注意：因为字段1为文本，文本框1两边各放一个单引号
strSql = strSql & "','" & [Forms]![B]![2] '注意：因为字段2为文本，文本框2两边各放一个单引号
strSql = strSql & "'," & [Forms]![B]![3] '注意：因为字段3为数字，文本框3两边没有单引号
strSql = strSql & ",#" & [Forms]![B]![4] '注意：因为字段4为日期，文本框4两边各放一个#号
strSql = strSql & "#)"
DoCmd.RunSQL strSql ’此句运行SQL语句将文本框内容插入A表
End Sub

如要知道更多细节请参考上列链接。