Question

access数据库新建一个窗体，通过窗体的按钮将文本内容添加到数据表中

窗体（gxtj）里的文本信息添加到表（gx）里。感谢各位大神，急用！！
对代码完全小白，网上找了许多，没有反应，以下是网上查找并带入后的代码
Private Sub 添加_Click()
Dim strSql As String
strSql = "INSERT INTO gx(案件编号,案件名称,身份证号,姓名) "
strSql = strSql & "VALUES('"
strSql = strSql & [Forms]![ct]![ajbh]
strSql = strSql & "','" & [Forms]![ct]![ajmc]
strSql = strSql & "' , '" & [Forms]![ct]![sfzh]
strSql = strSql & "', '" & [Forms]![ct]![xm]
strSql = strSql & "')"
strSql = strSql & ")"
DoCmd.RunSQL strSql
MsgBox "成功向购票信息登记表插入一条新纪录", , "提示"





Answer 1

方法1，纯代码，新建立一个按钮，在其它 click事件里写入代码，内容自己上网上找很多，方法2，工具->自定义->新建菜单（名字自己取）后选中它，设置它的属性。最后就在这个菜单上移入命令中的保存菜单。自己设计或，不多说了