很简单,参考一下,在我机上测试通过,没出现添加保存再删除就会出错Option ExplicitPrivate Sub cmdAdd_Click() On Error GoTo AddErr datPrimaryRS.Recordset.AddNew Exit Sub AddErr: MsgBox Err.Description End SubPrivate Sub cmdDelete_Click() On Error GoTo DeleteErr With datPrimaryRS.Recordset .Delete .MoveNext If .EOF Then .MoveLast End With Exit Sub DeleteErr: MsgBox Err.Description End SubPrivate Sub cmdRefresh_Click() '只有多用户应用程序需要 On Error GoTo RefreshErr datPrimaryRS.Refresh Exit Sub RefreshErr: MsgBox Err.Description End SubPrivate Sub cmdUpdate_Click() On Error GoTo UpdateErr datPrimaryRS.Recordset.UpdateBatch adAffectAll Exit Sub UpdateErr: MsgBox Err.Description End SubPrivate Sub cmdClose_Click() Unload Me End Sub
www.vbeden.com
其实很多网站都有这样的程序啊,还是完整代码呢。很好用的。自己看看吧。
(比如说记录为空的时候不能删除、添加记录要符合字段定义要求等等)
我不说这些错误,这些错误是不符合罗辑的!
我用向导产生的代码添加保存再删除就会出错!!!!!
头都大了!!!!!
On Error GoTo AddErr
datPrimaryRS.Recordset.AddNew Exit Sub
AddErr:
MsgBox Err.Description
End SubPrivate Sub cmdDelete_Click()
On Error GoTo DeleteErr
With datPrimaryRS.Recordset
.Delete
.MoveNext
If .EOF Then .MoveLast
End With
Exit Sub
DeleteErr:
MsgBox Err.Description
End SubPrivate Sub cmdRefresh_Click()
'只有多用户应用程序需要
On Error GoTo RefreshErr
datPrimaryRS.Refresh
Exit Sub
RefreshErr:
MsgBox Err.Description
End SubPrivate Sub cmdUpdate_Click()
On Error GoTo UpdateErr datPrimaryRS.Recordset.UpdateBatch adAffectAll
Exit Sub
UpdateErr:
MsgBox Err.Description
End SubPrivate Sub cmdClose_Click()
Unload Me
End Sub