dynamically setting the KeyDown event for all textboxes

[bonecone]

My users are able to toggle between form view and datasheet view. I don't want them to be able to edit data when they are in datasheet view, so I have coded the onload event of the datasheet form with

    Dim ctl As Control
    
    For Each ctl In Me
        If ctl.ControlType = acTextBox Then
            ctl.OnKeyDown = "=HandleKeyDown()"
        End If
    Next ctl

The problem is I don't know what I need to put into the HandleKeyDown function in order to force the textboxes to ignore keyboard input.

[bonecone]

I found a different solution afterwords. I just set the Locked property of all the textboxes to "Yes".

[pbaldy]

You could also have set the allow edits property of the form.