I have to add the code below to ~100 textboxes On Double Click Event:
Private Sub Ctl04_01_PC_DblClick(Cancel As Integer)
If IsNull(Me.Ctl04_01_PC) Then Me.Ctl04_01_PC = "X"
Is is possible to write a function similar to this:
Public Function DblClick( objectname as ??)
If IsNull(objectname) Then objectname= "X"
and then change the On Double Click Event for the 100 fields to:
i guess what i am asking, is there a way to pass the field name to a function?