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

2024-11-26 01:43:10
推荐回答(1个)
回答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

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