edit date

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

how can i edit my date field by pressing + and - key

+ key will increase the date by a day and the - key is vice versa
 
Private Sub YourDateField_KeyPress(KeyAscii As Integer)
If KeyAscii = 43 Then
KeyAscii = 0
Me.YourDateField = Me.YourDateField + 1
ElseIf KeyAscii = 45 Then
KeyAscii = 0
Me.YourDateField = Me.YourDateField - 1
End If
End Sub


Or, for those who don’t like the Date + 1 syntax

Private Sub ExpDate_KeyPress(KeyAscii As Integer)
If KeyAscii = 43 Then
KeyAscii = 0
Me.ExpDate = DateAdd("d", 1, Me.ExpDate)
ElseIf KeyAscii = 45 Then
KeyAscii = 0
Me.ExpDate = DateAdd("d", -1, Me.ExpDate)
End If
End Sub
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Hello World 5
How do you escape from Access Calendar. 2
converting dates from file 3
if and then in a form 4
Arrow keys on keyboard 5
keyboard problems 7
Date as Primary Key with Auto increment 8
cant edit format cells 3

Back
Top