G
Guest
This errors on the varTemp = Eval(Mid(ctl.OnClick, 2))
line. And while the OnClick property shows in the Object Browser, it does
not appear in the property/method list when you type "ctl.".
Public Function DoIt()
Dim ctl As Control, varTemp As Variant
Set ctl = Forms!tester!cmdOne
If (Left(ctl.OnClick, 1) = "=") Then
varTemp = Eval(Mid(ctl.OnClick, 2))
Else
MsgBox "didn't work"
End If
End Function
line. And while the OnClick property shows in the Object Browser, it does
not appear in the property/method list when you type "ctl.".
Public Function DoIt()
Dim ctl As Control, varTemp As Variant
Set ctl = Forms!tester!cmdOne
If (Left(ctl.OnClick, 1) = "=") Then
varTemp = Eval(Mid(ctl.OnClick, 2))
Else
MsgBox "didn't work"
End If
End Function