求助:开始时间小于录入时间时自动提醒功能

明月

file:///C:/Documents%20and%20Settings/Administrator/My%20Documents/图形1.jpg"开始时间"和"录入时间"是二个时间的格式的字段,要求是当"开始时间"小于"录入时间"时,数据库自动提醒,然后给出二个选项,"是"和"否",如果选择"是"就保存,如果选择"否"就放弃.
上述的设置要在窗体中完成,而不能在"表"中完成.
请高手予以指导.

[ 本帖最后由 明月 于 2008-12-8 18:32 编辑 ]

Henry D. Sy

1. Private Sub Form_BeforeUpdate(Cancel As Integer)
   
2.     If Me.开始时间 < Me.录入日期 Then
   
3.         If MsgBox("开始时间太小了,继续保存吗？", vbYesNo) = vbNo Then
   
4.             Cancel = True
   
5.             Me.Undo
   
6.         End If
   
7.     End If
   
8. End Sub

复制代码

明月

谢谢版主

boy1dl

wertwwertyery