Private Sub cmdNewRequest_Click()
On Error GoTo PROC_ERR
Dim strFormName As String
strFormName = "frmDocumentRequest_Edit"
DoCmd.OpenForm strFormName, , , , acFormAdd
Me.Visible = False
WaitUntilFormClose_TSB (strFormName)
Me.Visible = True
PROC_EXIT:
Exit Sub
PROC_ERR:
MsgBox Err.Number & ":" & Err.Description, , "Unexpected Error"
Resume PROC_EXIT
End Sub
Using the above code I am trying to create a new document and I keep getting "Could not create local database storage" Anyone notice any errors in the code.. I have been looking all day and dont see any.
On Error GoTo PROC_ERR
Dim strFormName As String
strFormName = "frmDocumentRequest_Edit"
DoCmd.OpenForm strFormName, , , , acFormAdd
Me.Visible = False
WaitUntilFormClose_TSB (strFormName)
Me.Visible = True
PROC_EXIT:
Exit Sub
PROC_ERR:
MsgBox Err.Number & ":" & Err.Description, , "Unexpected Error"
Resume PROC_EXIT
End Sub
Using the above code I am trying to create a new document and I keep getting "Could not create local database storage" Anyone notice any errors in the code.. I have been looking all day and dont see any.