[求助]关于ADO,也许是DAO,我瞎说的,也不知对不对,帮忙看一看,附程序.

田野

下面程序中,运行时系统认为"AddNew","UpDate",是变量,是不是没有引用哪个库啊,应该怎样解决!
Dim myrecordset As Variant, mylookup As Variant
Dim number As Variant
mylookup = DLookup("日期", "tb凭证号记录表")
If IsNull(mylookup) Then
Set myrecordset = CurrentDb.OpenRecordset("tb凭证号记录表")
myrecordset AddNew
myrecordset("日期") = Date
myrecordset("序号") = 1
myrecordset Update
number = 1
End If
[em01]

martin

1.Dim myrecordset As Variant应为dim myrecordset as dao.recordset
2.myrecordset AddNew应为myrecordset。AddNew，加上。update也一样
你试试，我没有在openrecordset的数据集进行过addnew和update的操作，不知行不行

田野

问题已解决，谢谢