发新话题
打印

[VB资源] 请教高手

请教高手

我刚开始进行学习,现要写一个窗体保护程序,但出现了一些错误,只能保存一个项目,
敬请高手指点一下:
Private Sub 保存记录_Click()
On Error GoTo Err_保存记录_Click
If IsNull(Me![供应商名称]) = True Then
MsgBox "请输入“供应商名称”"
Else If IsNull((Me![联系人]) = True Then     (提示错误)
MsgBox "请输入“联系人”"



    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_保存记录_Click:
    Exit Sub

Err_保存记录_Click:
    MsgBox Err.Description
    Resume Exit_保存记录_Click
   
End Sub

TOP

发新话题