Office中国论坛/Access中国论坛

标题: 如何利用提示YES/NO来控制清除文本框的内容 [打印本页]

作者: lansonlai 时间: 2004-11-7 22:55
标题: 如何利用提示YES/NO来控制清除文本框的内容

我在一个文本框写了以下代码,可以它不能够根据YES/NO来判断,我想YES就删除,NO的话就清楚文本框的内容,且光标停在文本框里.请大虾们帮忙解决问题,

Private Sub cancel_date_AfterUpdate()

If Val(Text65) < Val(Text26) Then

If MsgBox("超出配送日期,确定要删除这张订单吗？", vbInformation + vbYesNo) = vbNo Then Exit Sub

Dim Command80 As String

Me.cancel_date = Null

DoCmd.OpenQuery "del_Order_date", acNormal, acEdit

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

DoCmd.SetWarnings True

Else

End If

End Sub

作者: lansonlai 时间: 2004-11-7 22:57
改正Dim cancel_date As String

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