[求助][已解决] 跳转到符合条件记录代码如何写!求助!!

heqing3000

要实现当移动记录时,检查当前移动记录是否符合条件,即前三个文本框不能为NULL 或空,  如不符合条件记录不能跳转(原记录)..求助该如何实现..  实例如下.

[此贴子已经被LucasLynn于2006-5-25 10:27:47编辑过]

zcy0718

把这三个字段设置为必填不就行了吗？

fan0217

用IsNull（）函数判断，如果为空就结束执行代码，提示输入。

zcy0718

用IsNull（）函数判断，如果为空就结束执行代码，提示输入。

请教fan0217版主，代码该放在那里呢，窗体的current事件中吗。

heqing3000

fan0217版主  问题没有解决

   我的意思是如果 满足某一个条件(不仅是文本框为空),该记录不能跳转到其它记录,  该事件发生的时机是什么, 即该代码写在哪?如何指定不让记录跳转?

一点通

代码当然写在查询代码之前了

fan0217

If IsNull(Me.text1) Then
    MsgBox "...."
    Exit Sub
ElseIf IsNull(Me.text2) Then
    MsgBox "...."
    Exit Sub
ElseIf IsNull(Me.text3) Then
    MsgBox "...."
    Exit Sub
End If


放在跳转记录按钮单击事件中。

WDLRCZT

在窗体更新前事件过程中写入以下代码试试

    If IsNull(Me.订货单号码) = True Then
        MsgBox "订货单号码不可为空"
        DoCmd.CancelEvent
        Me.订货单号码.SetFocus
    ElseIf IsNull(Me.订货日期) = True Then
        MsgBox "订货日期不可为空"
        DoCmd.CancelEvent
        Me.订货日期.SetFocus
    ElseIf IsNull(Me.供应商编号) = True Then
        MsgBox "供应商编号不可为空"
        DoCmd.CancelEvent
        Me.供应商编号.SetFocus
    End If
  

heqing3000

以下是引用WDLRCZT在2006-5-25 9:07:00的发言：


在窗体更新前事件过程中写入以下代码试试

    If IsNull(Me.订货单号码) = True Then
        MsgBox "订货单号码不可为空"
        DoCmd.CancelEvent
        Me.订货单号码.SetFocus
    ElseIf IsNull(Me.订货日期) = True Then
        MsgBox "订货日期不可为空"
        DoCmd.CancelEvent
        Me.订货日期.SetFocus
    ElseIf IsNull(Me.供应商编号) = True Then
        MsgBox "供应商编号不可为空"
        DoCmd.CancelEvent
        Me.供应商编号.SetFocus
    End If
  

谢谢!WDLRCZT   的指示实现了,问师解决,再一次感谢大家!