Turn on Insert key 1

[JAES]

I found the following code to disable the insert key. What would it be to make sure the insert key is "on"? I do set the key preview to yes in the form.

Thanks, Jeff


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

Select Case KeyCode
Case vbKeyInsert
KeyCode = 0
Case Else
End Select

End Sub

 

[TheAceMan1]

How are ya JAES . . .

No code in the event or the removal of the line [blue]KeyCode = 0[/blue]

If your intending to control on/off of Insert, you could set a variable, declared in the declarations section of the form:

[blue]Private InsOn As Boolean[/blue]

The code in the [blue]KeyDown[/blue] event then reverts to:

[blue]Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   
   If (KeyCode = vbKeyInsert) And (Not InsOn) Then KeyCode = 0
 
End Sub[/blue]

[blue]Your Thoughts? . . .[/blue]

See Ya! . . . . . .

Be sure to see thread181-473997
Also faq181-2886

 

[JAES]

Thanks again AceMan. The code worked great.

 

[JAES]

AceMan, I went back to the form today and the insert key was not on. All I want is for the insert key to be on, where the key strokes write over the existing entry, whenever I'm in this form. I'm not usderstanding the Keycode command obiviously. Does KeyCode = 0 mean turn the insert key off and is there another Keycode, maybe 1 or 0 that turns it on or is that too simple.

I loaded the Private InsOn code in the declarations section of the form, just under the Option Compare Database command. I placed the other code in the keydown event for the form.

Suggestions?