Darren DICK
d.dick at uws.edu.au
Thu Nov 4 22:51:41 CST 2004
Never mind I figured out one way to do it If Err.Number = 76 Then MsgBox "message about invalid path get 'em to reset paths then fire up the preferences form", vbCritical, "Unable to copy Offline Data File" DoCmd.OpenForm "frmPreferences" Forms!frmPreferences.TabBlank.SetFocus With Forms!frmPreferences For Each ctl In Forms!frmPreferences.Controls If ctl.Tag = 1 Then ctl.Enabled = False End If Next End With Forms!frmPreferences.pgOffline.SetFocus Else MsgBox Err.Number & " " & Err.Description, vbCritical, "Error in fExit module" End If