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