关于更新的问题

wyl

求助



当数据更新时先校验数据是否符合要求若不符合要求退出更新

当发生更新事件时先执行以下程序

Private Sub Form_BeforeUpdate(Cancel As Integer)

填报单位.SetFocus

If 填报单位.Text = "" Then

MsgBox "填报单位为必填选项"

End If

DoCmd.CancelEvent



End Sub

但发现数据不符合要求要退出更新应该怎么写

海狸先生

http://www.office-cn.net/forum.php?mod=viewthread&tid=26608我在这里的回答也许适合你，不用写事件

wyl

我的表在sqlserver里不能在access写公式

在sqlserver写公式又不能在access表现

海狸先生

Private Sub Form_BeforeUpdate(Cancel As Integer)

填报单位.SetFocus

If 填报单位.Text = "" Then　MsgBox "填报单位为必填选项": DoCmd.CancelEvent



End Sub

[此贴子已经被作者于2005-6-2 11:23:14编辑过]

wyl

但是填加新记录时提示你“不能转到指定记录”

海狸先生

Private Sub Form_BeforeUpdate(Cancel As Integer)

If 填报单位.value = "" Then　MsgBox "填报单位为必填选项": DoCmd.CancelEvent

End Sub