Office中国论坛/Access中国论坛

标题: [求助]谁能帮我，关于消息框的问题 [打印本页]

作者: yttzm 时间: 2005-12-12 00:48
标题: [求助]谁能帮我，关于消息框的问题

我学ACCESS时间短，特别是对VBA更是知之更少。

特向各位老师请教一个关于消息框的提示问题：

例子已传上，帮我改一下。

先谢谢了。[attach]14690[/attach]

[此贴子已经被作者于2005-12-11 16:55:47编辑过]

作者: fan0217 时间: 2005-12-12 02:34
If IsNull(Me.确认单位) Then

Msgbox "确认单位为空，请重新输入！"

End If

作者: 一点通 时间: 2005-12-12 05:07
你的文本框名很乱,别人可能看代码都无法看得清,帮你改了一下:

If Nz([接收年度]) = "" Then '先判断接收年度是否为空值
MsgBox "未有输入“接收年度”请再输入！"
Else
If Nz(确认年度) <> Nz(接收年度) Then '判断确认值是否相同
   MsgBox "输入的接收年度与确认接收年度不同,请重再输入！"
Else
      If Nz([确认单位]) = "" Then '再判断县区名称是否为空值
         MsgBox "未有输入“县区名称”请再输入！"
      Else
         If Nz(确认单位) <> Nz(上报单位) Then '判断确认值是否相同
            MsgBox "输入的县区名称与确认的县区名称不同,请重再输入！"
         Else
            '如果都没有错误,在这里写入执行的语句
         End If
      End If
End If
End If

[此贴子已经被作者于2005-12-11 21:07:32编辑过]

作者: yttzm 时间: 2005-12-13 00:11
谢谢版主！

我又学到了一招。

这是我做的接收基层单位数据窗体。

我现在已经不这样做了。

我用了另外一种方法：

在接收库中，先链接基层库，将接收单位名改为组合框，组合框来源就直接用已链接的基层库中的“单位字段”。

就不再需要判断基层单位名前后是不想同了。

另外，在执行的事件里加入一个删除查询和追加查询。

这样就保证了接收库与基层库数据的同步了。

[此贴子已经被作者于2005-12-12 16:14:04编辑过]

作者: garyshang 时间: 2007-10-16 22:07
找不到我要的东西

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)