[求助]谁能帮我，关于消息框的问题

yttzm

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

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

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

先谢谢了。

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

fan0217

If IsNull(Me.确认单位) Then

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

End If

一点通

你的文本框名很乱,别人可能看代码都无法看得清,帮你改了一下:

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-12 16:14:04编辑过]

garyshang

找不到我要的东西