increment and decrement date field

[Bill0722]

Is there anyway I can format the date field on a form to increment and decrement using the + and - keys.

Thanks,

Bill

 

[Remou]

You could look at the Key Press event.

 

[MajP]

I would do it with a spin button. Remeber set the min value to less than zero.

Private Sub SpinButton4_Updated(Code As Integer)
  'MsgBox Me.SpinButton4
  If IsDate(Me.Text5) Then
    Me.Text5 = CDate(Me.Text5) + Me.SpinButton4
  End If
  Me.SpinButton4.Value = 0
End Sub

With Remou's suggestion.

Private Sub Text5_KeyPress(KeyAscii As Integer)
  If KeyAscii = 43 Then
      Me.Text5.Text = CDate(ActiveControl.oldValue) + 1
      DoCmd.CancelEvent
   ElseIf KeyAscii = 45 Then
      Me.Text5.Text = CDate(ActiveControl.oldValue) - 1
      DoCmd.CancelEvent
    End If
    Me.Refresh
End Sub

I found this a little awkward. Easy to hit something besides a plus or minus.

 

[MajP]

put the refresh inside the if

Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 43 Then
Me.Text5.Text = CDate(ActiveControl.oldValue) + 1
DoCmd.CancelEvent
Me.Refresh
ElseIf KeyAscii = 45 Then
Me.Text5.Text = CDate(ActiveControl.oldValue) - 1
DoCmd.CancelEvent
Me.Refresh
End If

End Sub

 

[TheAceMan1]

[blue]I would do it with a spin button.[/blue]

Well . . . [blue]Bill0722[/blue] didn't ask for a spin button, but . . . [blue]+/- control keys of the value![/blue] . . . Ya Think?

[blue]Bill0722[/blue] . . . have alook at the [blue]KeyPress[/blue] event! . . .

See Ya! . . . . . .

 

[MajP]

AceMan,
What is the deal? You seem a little testy. I suggested a spin button because I found it awkward with the +/-, and provided some code to demonstrate the key press event. If that suggestion bothers you then provide some code
YA THINK?

 

[TheAceMan1]

MajP . . .

Its not what ya think! . . . [blue]Respect for any post made by you remains intact! . . .[/blue]

See Ya! . . . . . .