Access Counter when adding data /records -use Dcount?

[Skroof]

Hi all, please help with Dcount. I have a counter which is working when making bookings however i want it to count per "ClientID" , it must pop a message and still continue taking other bookings, for other people. e.g. If I make a booking for John Doe, the booking will run till the third booking and only pop a message saying "maximum bookings made". Same must happen with other users. In other words it counts per user id not by overall bookings.If Peter made 1 and John made 2 bookings - the message must not pop up although 1 + 2 = 3. The message must only pop up for Peter once he reaches 3 and for John on his 3rd booking as well. I hope you will help me here. Again thanks for your help.See attached screenshots
Here is my current code - where do i stick the client id,appointment table, etc

Private Sub Form_BeforeUpdate(Cancel As Integer)


If RecordsetClone.RecordCount = 2 Then
MsgBox "Maximum bookings made."
End If
End Sub
Private Sub Form_Current()
If RecordsetClone.RecordCount = 2 Then
Me.AllowAdditions = True
Me.AllowEdits = False
End If
End Sub

[June7]

Is the form filtered to show only a single users records? If so, the RecordsetClone method should work.

Include the ID in the DCount WHERE CONDITION.

If DCount("ClientID", "table name", "ClientID=" & Me.ClientID) = 2 Then

[Skroof]

Hi , See attached, please look at the two issues here.

1. I want it to count number of bookings made under appointments, once a client makes more than 2 booking then pop up window must say " Client made enough bookings and now qualifies for free voucher"
2. The search button does not return any results.
Thanks

[June7]

I presume the form involved is AppointmentInformation. I entered 3 bookings in a row for the same client. The third booking triggered the free voucher message.

Under what condition does client qualify for voucher? Two bookings made in the same day? Or if one booking last week and second booking this week? What about 3, 4, 5 bookings? Or is this for only exactly 2 bookings over any period?

[Skroof]

June7 thanks for your help.
Client qualify for voucher after "every "3 bookings, and booking can be made anytime, the counter must keep track. After the third booking then it must reset the counter and that specific client now starts from scratch, from 1 till 3. I need this code please. Thanks again

[June7]

Instead of BeforeUpdate, try AfterUpdate:

Private Sub Form_AfterUpdate()
If DCount("ClientID", "Appointments", "ClientID=" & Me.ClientID) Mod 3 = 0 Then
MsgBox "Client made enough bookings and now qualifies for free voucher."
End If
End Sub

[Skroof]

Thanks June7, This resolved my issue. Keep it up...