G
Guest
I have received this error. On checking my form ..the Recordset Type is in
the Dynaset setting.
I have a table with multiple yes/no conditions. I wanted the Yes/no
conditions to be exclusive. The settings are controled by the form. On a
click of a the Yes/No on the form , I do a DOCmd.Close of the form and then
run a query to clear certain flags in the table. I then re open the form to
check the settings of the table.
No other processes have access to the table. As the form is closed that has
control to the table, why do I get the error that the table is locked?
===========================
Private Sub Command32USAOnly_Click()
On Error GoTo Err_Command32USAOnly_Click
DoCmd.Close
(CLOSES FORM)
Dim stDocName As String
stDocName = "Qry E-mail-USA Address"
DoCmd.OpenQuery stDocName, acNormal, acEdit
(RUNS QRY TO RESET OTHER FLAGS)
Dim stLinkCriteria As String
stDocName = "Form Label Filter"
DoCmd.OpenForm stDocName, , , stLinkCriteria
(RE OPENS FORM TO CHECK RESULTS)
Exit_Command32USAOnly_Click:
Exit Sub
Err_Command32USAOnly_Click:
MsgBox Err.Description
Resume Exit_Command32USAOnly_Click
End Sub
====================================
Help is needed!
the Dynaset setting.
I have a table with multiple yes/no conditions. I wanted the Yes/no
conditions to be exclusive. The settings are controled by the form. On a
click of a the Yes/No on the form , I do a DOCmd.Close of the form and then
run a query to clear certain flags in the table. I then re open the form to
check the settings of the table.
No other processes have access to the table. As the form is closed that has
control to the table, why do I get the error that the table is locked?
===========================
Private Sub Command32USAOnly_Click()
On Error GoTo Err_Command32USAOnly_Click
DoCmd.Close
(CLOSES FORM)
Dim stDocName As String
stDocName = "Qry E-mail-USA Address"
DoCmd.OpenQuery stDocName, acNormal, acEdit
(RUNS QRY TO RESET OTHER FLAGS)
Dim stLinkCriteria As String
stDocName = "Form Label Filter"
DoCmd.OpenForm stDocName, , , stLinkCriteria
(RE OPENS FORM TO CHECK RESULTS)
Exit_Command32USAOnly_Click:
Exit Sub
Err_Command32USAOnly_Click:
MsgBox Err.Description
Resume Exit_Command32USAOnly_Click
End Sub
====================================
Help is needed!