Hi all
Am I missing something here?
I have a number of procedures where error code like this works fine:
Eg:
Private Sub tglAllowEdit_Click()
On Error GoTo Err_tglAllowEdit_Click
If Me!tglAllowEdit = True Then
Me!LockCode.Enabled = True
Else
Me!LockCode.Enabled = False
End If
Exit_tglAllowEdit_Click:
Exit Sub
Err_tglAllowEdit_Click:
MsgBox Err.Description
Resume Exit_tglAllowEdit_Click
End Sub
For some others I get "Compile Error Label not defined"
Example code:
Private Sub Form_Current()
On Error GoTo Err_Form_Current
Me!LockCode.Enabled = False
Form_Current_Exit:
End Sub
Err_Form_Current:
MsgBox Err.Description
Resume Form_Current_Exit
End Sub
I can't see the difference - can anyone tell me what I'm doing wrong?
TIA
Clive