以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  按钮事件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=150320)
--  作者：13568958298
--  发布时间：2020/5/27 2:08:00
--  按钮事件

在录入窗口中做了个“确定”按钮，需要必须录入“申报事项”，才能保存并关闭窗口，在按钮CLICK事件中写入了以下代码，却不能实现这项功能，请老师指教代码哪个地方出错了？谢谢！

With Tables("szyw")
    If .Current("申报事项") Is Nothing Then
        .Current.Save()
        Forms("业务申报").close
    Else
        messagebox.show("请检查录入的完整性")
    End If
End With

 

 
--  作者：有点蓝
--  发布时间：2020/5/27 8:41:00
--  

在录入窗口中做了个“确定”按钮，需要必须录入“申报事项”，才能保存并关闭窗口，在按钮CLICK事件中写入了以下代码，却不能实现这项功能，请老师指教代码哪个地方出错了？谢谢！

With Tables("szyw")
    If .Current Isnot Nothing Then

if .Current.isnull("申报事项") then
       messagebox.show("请检查录入的完整性")
    Else

        .Current.Save()
        Forms("业务申报").close
 endif
    End If
End With