我们有一个Access-db,它列出了一个疗养院的居民。当一个居民搬出房间时,有一个字段可以输入离开的日期。有时(实际上很多)用户忘记输入这个日期。在向1号房间登记新居民时,如果前居民的退出日期仍然为空,或者新居民的开始日期与前一个居民的开始日期重叠,我想显示一个警告。防止输入可选。有什么建议吗?Tnx!
发布于 2021-04-23 08:05:10
嗯,我想正如前面提到的,解决这个问题的关键是没有填写退出日期时的表单/时间/地点。因此,您可以在表单中简单地使用更新前事件。检查是否没有输入退出日期,因此会弹出一条消息,并在更新前事件中设置cancel = true。用户将无法退出或保存该数据,直到他们输入该退出日期。
现在,我想在您的新预订表单中,您可以简单地查询/检查数据库中没有该退出日期的记录,并弹出一个警告。
dim strWhere as string
strWhere = "(RoomNumber = " & me!RoomNumber & ") AND (EixtDate is null)"
if dcount("*","tblBookings",strWhere) > 0 then
msgbox "warning - this room has previous bookings without Exit date"
do whatever you want here!
End ifhttps://stackoverflow.com/questions/67211175
复制相似问题