保存按键？

jia　发表于：2010-08-02 15:54:45 　

复制

老师们好：

如何在按下“保存”按钮后出现无有输入项提示？

谢谢

点击下载此附件

Top

煮江品茶发表于：2010-08-02 16:08:15

Private Sub Command5_Click()
Dim B As Boolean
Dim ctls As Controls
Set ctls = Me.光缆统计表子窗体.Form.Controls
B = IsNull(ctls("编码").Value)
B = B Or IsNull(ctls("光缆名称").Value)
If B = True Then
    MsgBox "编码或光缆名称字段不能为空！！！"
    Exit Sub
Else
    '这里写保存数据的语句块
End If

Top

煮江品茶发表于：2010-08-02 16:09:17

Private Sub Command5_Click()
Dim B As Boolean
Dim ctls As Controls
Set ctls = Me.光缆统计表子窗体.Form.Controls
B = IsNull(ctls("编码").Value)
B = B Or IsNull(ctls("光缆名称").Value)
If B = True Then
       MsgBox "编码或光缆名称字段不能为空！！！"
       Exit Sub
Else
      '这里写保存数据的语句块
End If
End Sub

Top

jia 发表于：2010-08-02 16:22:38

谢谢老师！

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

保存按键？