如何在VBA里用代码实现这个数据库某表的记录追加

taoyimaier

你肯定知道啦，就只是几行我不知道的代码吗

意思就是如何如何有一个按钮的代码实现该数据库某表的记录追加

实在麻烦大侠您写一写

wuaza

什么意思？是追加查询吗？追加查询会吗？会的话就在按钮的单击事件中加入docmd.runsql "insert  into ..."

godfrey

Dim cnn1 As New ADODB.Connection, rst1 As New ADODB.Recordset

Set cnn1 = CurrentProject.Connection

rst1.Open "Table1", cnn1, adOpenDynamic, adLockPessimistic

rst1.AddNew

rst1!Name = form1!txtName

rst1!Tel = form1!txtTel

rst1.Update

rst1.Close

cnn1.Close

不晓得是不是你要的？

taoyimaier

两们大侠的回答都对我的程序有用处，谢谢了，以后有问题再请教，再次谢谢两位的解答