Unexpected error from external database drive (10023)

  • Thread starter Thread starter ielmrani via AccessMonster.com
  • Start date Start date
I

ielmrani via AccessMonster.com

Hi All,
I have a button in a form with the following code:
te Sub CmdGo_Click()
On Error GoTo Err_CmdGo_Click

Dim stDocName As String

DoCmd.SetWarnings False

DoCmd.RunSQL ("Delete from AANAME") 'AANAME
DoCmd.RunSQL ("Delete from AAProd") 'AAProd
DoCmd.RunSQL ("Delete from AALINK") 'AALINK
DoCmd.RunSQL ("Delete from AACTRN") 'AACTRN
DoCmd.RunSQL ("Delete from AAADDR") 'AAADDR

Dim qry As Variant
qry = Array("QryUpdateDBFAAprod", "QryUpdateDBFAANAME", "QryUpdateDBFAALINK",
"QRYUpdateDBFaactrn", "QryUpdateDBFAAAddr")

Dim i As Integer

For i = 0 To 4
stDocName = qry(i)
'MsgBox qry(i)
DoCmd.OpenQuery stDocName, acNormal, acEdit
Next i
DoCmd.SetWarnings True
MsgBox "Build of Local Data for AA Complete", vbInformation, "Build AA Data"

Exit_CmdGo_Click:
Exit Sub

Err_CmdGo_Click:
MsgBox Err.Description
Resume Exit_CmdGo_Click

I run this code from my pc without a problem, but someone else get an error
message when they run it from their pc. Here is the error:

Unexpected error from external database drive (10023)

your help is appreciated and thanks in advance
 
Problem solved. Thanks
Hi All,
I have a button in a form with the following code:
te Sub CmdGo_Click()
On Error GoTo Err_CmdGo_Click

Dim stDocName As String

DoCmd.SetWarnings False

DoCmd.RunSQL ("Delete from AANAME") 'AANAME
DoCmd.RunSQL ("Delete from AAProd") 'AAProd
DoCmd.RunSQL ("Delete from AALINK") 'AALINK
DoCmd.RunSQL ("Delete from AACTRN") 'AACTRN
DoCmd.RunSQL ("Delete from AAADDR") 'AAADDR

Dim qry As Variant
qry = Array("QryUpdateDBFAAprod", "QryUpdateDBFAANAME", "QryUpdateDBFAALINK",
"QRYUpdateDBFaactrn", "QryUpdateDBFAAAddr")

Dim i As Integer

For i = 0 To 4
stDocName = qry(i)
'MsgBox qry(i)
DoCmd.OpenQuery stDocName, acNormal, acEdit
Next i
DoCmd.SetWarnings True
MsgBox "Build of Local Data for AA Complete", vbInformation, "Build AA Data"

Exit_CmdGo_Click:
Exit Sub

Err_CmdGo_Click:
MsgBox Err.Description
Resume Exit_CmdGo_Click

I run this code from my pc without a problem, but someone else get an error
message when they run it from their pc. Here is the error:

Unexpected error from external database drive (10023)

your help is appreciated and thanks in advance
Click to expand...
 
Back
Top