Office中国论坛/Access中国论坛

标题: [求助][已解决] 跳转到符合条件记录代码如何写!求助!! [打印本页]

作者: heqing3000 时间: 2006-5-25 04:41
标题: [求助][已解决] 跳转到符合条件记录代码如何写!求助!!
要实现当移动记录时,检查当前移动记录是否符合条件,即前三个文本框不能为NULL 或空, 如不符合条件记录不能跳转(原记录)..求助该如何实现.. 实例如下.[attach]18017[/attach]

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

作者: zcy0718 时间: 2006-5-25 05:50
把这三个字段设置为必填不就行了吗？

作者: fan0217 时间: 2006-5-25 05:54
用IsNull（）函数判断，如果为空就结束执行代码，提示输入。

作者: zcy0718 时间: 2006-5-25 06:00

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

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

作者: heqing3000 时间: 2006-5-25 15:58
fan0217版主问题没有解决

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

作者: 一点通 时间: 2006-5-25 16:33
代码当然写在查询代码之前了

作者: fan0217 时间: 2006-5-25 16:34
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 时间: 2006-5-25 17:07
在窗体更新前事件过程中写入以下代码试试

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 时间: 2006-5-25 18:16

以下是引用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 的指示实现了,问师解决,再一次感谢大家!

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