I didn't even think about using ActiveForm/ActiveControl.
Here is the revised code:
This goes in the form module:
Code:
'(example code for control)
Private Sub txtbox1_DblClick(Cancel As Integer)
Call CheckUncheck(Screen.ActiveForm.Name, Screen.ActiveControl.Name)
End Sub
Private Sub txtbox2_DblClick(Cancel As Integer)
Call CheckUncheck(Screen.ActiveForm.Name, Screen.ActiveControl.Name)
End Sub
And this goes in a standard module:
Code:
Sub CheckUncheck(frmsName As String, ctlName As String)
If Forms(frmsName).Controls(ctlName) = "X" Then
Forms(frmsName).Controls(ctlName) = ""
Else
Forms(frmsName).Controls(ctlName) = "X"
End If
End Sub
Thanks Paul