How do I add the current time to a table using a check box

[PeterCol]

I need to record when people arrive in my surgery and when they leave for a waiting time audit. Appointments are available on an Access table but rather than recording by hand or typing times in it would be easier to use a tick box or such that puts the current time into the record. I am new to programming access - can anyone point me in the right direction? I envisage say clicking on the patient record to bring up a form with that patient's name and buttons to press for arrived and departed.

 

[Dugantrain]

Re: How do I add the current time to a table using a check b

I assume you know that you would need to do this sort of thing in code. I'm envisioning two controls: One a check box/option button/command button or whatever you like and beside it a text box that you would disable. In the first control's on-click event, you would write something like:

Your_Control_On_Click()
Me.Your_Text_Box=Now()
End Sub

This writes the current date/time into that disabled text box. You would then duplicate this for departure (so, four controls, total). You could also set up a little error-handler in the departure control's event-procedure to validate whether or not there is an arrival time. That would go something like:

Your_Departure_Control_On_Click()
If IsNull(Me.Your_Arrival_Text) Then
Msgbox "There is no arrival time!"
Exit Sub
Else:
Me.Your_Departure_Text_Box=Now()
End If
End Sub

 

[jobb]

Re: How do I add the current time to a table using a check b

if you are new to access, you may prefer to use a macro. for your form button, run a macro that will "SetValue" of your [intime] field to Now().

Then create another macro to do the same for for [outtime]

 

[PeterCol]

Re: How do I add the current time to a table using a check b

Thanks folks. I'll need to puzzle on this one for a bit.