Display "Date full sorry" message

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi all,
I am trying to design a data base for recording the people who attend training courses, I would like to restrict the number of people to 6 per day. After entering 6 lots the same date I would like the message "Date full sorry" to be displayed and the program then goes to the next available date. Is this possible?
 
Geru2 said:
Hi all,
I am trying to design a data base for recording the people who attend
training courses, I would like to restrict the number of people to 6 per
day. After entering 6 lots the same date I would like the message "Date
full sorry" to be displayed and the program then goes to the next
available date. Is this possible?
In the Form's Before Update event:
If DCount("*","[YourTableName]","[CourseDate] = #" & Me![CourseDate] &
"#") >=6 Then
MsgBox "This date is full"
Cancel = true
End If
 
Back
Top