Private Sub cmd_Button_1_Click()
On Error GoTo Err_cmd_Button_1_Click
Me.cmd_Button_2.Enabled = True
Me.cmd_Button_2.SetFocus
'SetFocus Required, since can't disable
'Control that has present Focus!
Me.cmd_Button_1.Enabled = False
'Or Use Visible Property as opposed to Enabled?
Exit_cmd_Button_1_Click:
Exit Sub
Err_cmd_Button_1_Click:
MsgBox Err.Description
Resume Exit_cmd_Button_1_Click
End Sub
Private Sub cmd_Button_2_Click()
On Error GoTo Err_cmd_Button_2_Click
Me.cmd_Button_1.Enabled = True
Me.cmd_Button_1.SetFocus
'SetFocus Required, since can't disable
'Control that has present Focus!
Me.cmd_Button_2.Enabled = False
'Or Use Visible Property as opposed to Enabled?
Exit_cmd_Button_2_Click:
Exit Sub
Err_cmd_Button_2_Click:
MsgBox Err.Description
Resume Exit_cmd_Button_2_Click
End Sub