Public Sub CtrlButClose_Click() On Error GoTo CtrlButClose_Click_Error If Nz(Me.Ctr_CallerFormMain, "") <> "" Then Forms(me.Ctr_CallerFormMain)!Forms(me.Ctr_CallerFormSub).Form.Controls(me.Ctr_CallerCtrl).SetFocus ''OK 'Forms!Frm_TR_Itms_Main!Frm_TR_Itms_Dtls.Form!TfTrItmDtls_Itm.SetFocus''OK End If DoCmd.Close acForm, Me.Form.Name On Error GoTo 0 Exit Sub CtrlButClose_Click_Error: MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure CtrlButClose_Click, line " & Erl & "." End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)