TodaysDate in Field

Joined
Mar 29, 2008
Messages
3
Reaction score
0
Hi,
I use this code to DblClick TodaysDate in Field or take it out.

Private Sub NameOfMyTextBox_DblClick(Cancel As Integer)
If IsNull(NameOfMyTextBox) Then
NameOfMyTextBox = Date
Else
NameOfMyTextBox= Null
End If
End Sub

Does anyone know how would I make this into a Module
(Named-DblClickDate) or a Public Sub to work like above or a site that has a example I can follow.
so I can call it from any DatefieldTextBox in any form without Writing the above code everytime.

Thanks BBryan
 
Back
Top