[AccessD] Enter a time and date for a payroll

Gustav Brock gustav at cactus.dk
Fri Jun 20 09:11:49 CDT 2003


Hi Andy

That could be:

  datDateTime = Date + CDate([txtYourTextbox])

In the BeforeUpdate event you could add:

  Dim varEntry As Variant

  varEntry = Me![txtYourTextbox]
  If Not IsNull(varEntry) Then
    Cancel = Not IsDate(varEntry)
    If Cancel = True Then
      DoCmd.Beep
    End If
  End If

/gustav


> I am working on a database for payroll.  I would like the user to enter a 
> time, and depending on what time is entered I would like to append the 
> appropriate date to the time to form a general date field.  Due to the shift 
> nature of the workplace and a 7 to 7 24 hour clock this is crucial for 
> proper calculations.



More information about the AccessD mailing list