Access Crashes when users click on OK on my this form, but only on certain computers. I don't know what's causing it. I'm including the code for the whole form.
Private Sub cmdClose_Click()
On Error GoTo Err_cmdClose_Click
DoCmd.Close
Exit_cmdClose_Click:
Exit Sub
Err_cmdClose_Click:
MsgBox Err.Description
Resume Exit_cmdClose_Click
End Sub
Private Sub cmdOk_Click()
Select Case frameDataEntry
Case 1
DoCmd.OpenForm "frmFamily"
Case 2
DoCmd.OpenForm "frmChild"
Case 3
DoCmd.OpenForm "frmChildAch"
Case 4
DoCmd.OpenForm "frmAdultIn"
Case 5
DoCmd.OpenForm "frmAdultAch"
Case 6
DoCmd.OpenForm "frmAdultEmp"
Case 7
DoCmd.OpenForm "frmAttendance"
Case 8
DoCmd.OpenForm "frmLitAct"
Case 9
DoCmd.OpenForm "frmAdultTrain"
Case 10
DoCmd.OpenForm "frmAdmin"
End Select
End Sub
I'm desperate. Does anyone know what my problem could be?
TIA,
Seth Kramer
Private Sub cmdClose_Click()
On Error GoTo Err_cmdClose_Click
DoCmd.Close
Exit_cmdClose_Click:
Exit Sub
Err_cmdClose_Click:
MsgBox Err.Description
Resume Exit_cmdClose_Click
End Sub
Private Sub cmdOk_Click()
Select Case frameDataEntry
Case 1
DoCmd.OpenForm "frmFamily"
Case 2
DoCmd.OpenForm "frmChild"
Case 3
DoCmd.OpenForm "frmChildAch"
Case 4
DoCmd.OpenForm "frmAdultIn"
Case 5
DoCmd.OpenForm "frmAdultAch"
Case 6
DoCmd.OpenForm "frmAdultEmp"
Case 7
DoCmd.OpenForm "frmAttendance"
Case 8
DoCmd.OpenForm "frmLitAct"
Case 9
DoCmd.OpenForm "frmAdultTrain"
Case 10
DoCmd.OpenForm "frmAdmin"
End Select
End Sub
I'm desperate. Does anyone know what my problem could be?
TIA,
Seth Kramer