Private Sub dateControlName_GotFocus()
If Len(Me.dateControlName & vbNullString) <> 0 Then
Me.dateControlName.Format = "Short Date"
End If
End Sub
Private Sub dateControlName_LostFocus()
If Len(Me.dateControlName & vbNullString) = 0 Then
Me.dateControlName.Format = ""
Me.dateControlName = "Enter a date !"
End If
End Sub