Ked Code problem

stoneman · June 8th, 2003, 09:10 PM

The code below prevents the entry of non-numeric values in a text box. In addition it accepts tha Tab and Backspace key. All other key entries are not allowed. I would like the user to paste values in the textbox using Ctl+V keys together.

How can I write a code to accept the Ctl and the V keys together.

Private Sub MedRecNo_KeyDown(KeyCode As Integer, Shift As Integer)

   Select Case KeyCode
        Case 8, 9, 13, 17, 27, 32, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57
           ' do nothing
        Case Else
            msg = MsgBox("Only numeric values are allowed for Medical Record Number", , "Numeric Values Only Allowed")
            KeyCode = 0
    End Select

End Sub

Diahann · June 13th, 2003, 08:04 AM

I've tried this on a form to recognize key combinations, maybe you can manipulate the code for your text box.

Like......
Private Sub Text0_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = Asc("V") And Shift = 2 Then
MsgBox "Control V"
End If
End Sub

Don't know if this helps.
D...

Jeff Mason · June 13th, 2003, 08:28 AM

You might be better off doing such editing in the KeyPress event. Test to see if the value is a legal one, and set the KeyAscii value to 0 if it is not, thus simply throwing away the bad input rather than displaying a message box. This has the behavior that when the user tries to type '123x', the 'x' simply doesn't display - only numerics (or whatever your legal values are) appear. E.g.

Code:

If Not(KeyAscii > 47 And KeyAscii < 58) Then KeyAscii=0

Jeff Mason
Custom Apps, Inc.
www.custom-apps.com