Hello all,

to increase datainput speed i have added code to a text box so if the letter "t" is pressed, todays date is entered. The date does appear but the letter "t" is inserted too, any way of stopping this other than check the whole string for a "t" and then remove it?

this is my OnKeypress code:

Private Sub Call_Up_Date_KeyPress(KeyAscii As Integer)
   Dim strKey As String
   Dim dateTODAY As Date
   Dim strTodaysDate As String

    ' Get todays date
        dateTODAY = DateTime.Date
        strTodaysDate = CStr(dateTODAY)

    ' Convert ANSI value to character string.
    strKey = Chr(KeyAscii)
    If strKey = "t" Then
        Me.Call_Up_Date.Text = strTodaysDate
    End If
End Sub

Thanks in advance

Yikes. Why not just make the default value for the field Date() or Now()?



mmcdonal

Okay, alternatively you can just add a button that does all this and give the user the option to click the button instead of typing a t. This is the functional equivalent of clicking a button anyway, and doesn't require knowledge of the secret letter to get today's date. Label the button "Enter today's date"




mmcdonal

Thanks for the reply...

The only thing is, it's not always todays date that is required.
and i would like to reduce the amount of buttons on screen.

Thanks again