Help required to unravel databases engine related Error Message

[Uttam]

Hello,

In my application, I need to create temporary files, use them as
sources for queries which in turn populate forms. When a button is
clicked, I need to delete these temporary files, re-generate the
queries and refresh the forms.

I am encountering the following error which I am unable to unravel:

"The database engine could not lock table tbltempTDW because it is
already in use by another person or process."

Could someone guide me where to look for as to who or what process is
locking this up? I am somewhat familiar with the use of the debugger.

For some more info on how the table is created:

I use the following syntax for initial deletion of any old file with
the same name

Dim cat As ADOX.Catalog
Set cat = New ADOX.Catalog
cat.ActiveConne ction = CurrentProject. Connection
cat.Tables.Refr esh

cat.Tables.Dele te "tbltempTDW "

the error message is displayed when I try to execute the
cat.Tables.Dele te "tbltemTDW" statement.

Thanks in advance.

Uttam

[Phil Stanton]

I use a function similar to this

Function DeleteTempQuery (QName As String) As Boolean

Dim MyDb As Database
Dim i As Integer

Set MyDb = CurrentDb
For i = 0 To MyDb.QueryDefs. Count - 1
If MyDb.QueryDefs( i).Name = QName Then ' Delete the Temp
Query
If IsQueryLoaded(Q Name) Then DoCmd.Close acQuery, QName
DoCmd.DeleteObj ect acQuery, MyDb.QueryDefs( i).Name
DeleteTempQuery = True
MyDb.Close
Set MyDb = Nothing
Exit Function
End If
Next i
DeleteTempQuery = False
MyDb.Close
Set MyDb = Nothing

End Function

Don't know if this is any help, but it's simple (Has to be for me)
Phil
"Uttam" <u0***@usa.ne t> wrote in message
news:8a******** *************** ***@posting.goo gle.com...

Hello,

In my application, I need to create temporary files, use them as
sources for queries which in turn populate forms. When a button is
clicked, I need to delete these temporary files, re-generate the
queries and refresh the forms.

I am encountering the following error which I am unable to unravel:

"The database engine could not lock table tbltempTDW because it is
already in use by another person or process."

Could someone guide me where to look for as to who or what process is
locking this up? I am somewhat familiar with the use of the debugger.

For some more info on how the table is created:

I use the following syntax for initial deletion of any old file with
the same name

Dim cat As ADOX.Catalog
Set cat = New ADOX.Catalog
cat.ActiveConne ction = CurrentProject. Connection
cat.Tables.Refr esh

cat.Tables.Dele te "tbltempTDW "

the error message is displayed when I try to execute the
cat.Tables.Dele te "tbltemTDW" statement.

Thanks in advance.

Uttam

[Uttam]

hello Phil,

Could you please post the function "IsQueryLoa ded" also? I get an
error for the function.

Thanks

Uttam

==========
"Phil Stanton" <ph**@stantonfa mily.co.uk> wrote in message news:<3f******* *************** *@mercury.nildr am.net>...

I use a function similar to this

Function DeleteTempQuery (QName As String) As Boolean

Dim MyDb As Database
Dim i As Integer

Set MyDb = CurrentDb
For i = 0 To MyDb.QueryDefs. Count - 1
If MyDb.QueryDefs( i).Name = QName Then ' Delete the Temp
Query
If IsQueryLoaded(Q Name) Then DoCmd.Close acQuery, QName
DoCmd.DeleteObj ect acQuery, MyDb.QueryDefs( i).Name
DeleteTempQuery = True
MyDb.Close
Set MyDb = Nothing
Exit Function
End If
Next i
DeleteTempQuery = False
MyDb.Close
Set MyDb = Nothing

End Function

Don't know if this is any help, but it's simple (Has to be for me)
Phil
"Uttam" <u0***@usa.ne t> wrote in message
news:8a******** *************** ***@posting.goo gle.com...

Hello,

In my application, I need to create temporary files, use them as
sources for queries which in turn populate forms. When a button is
clicked, I need to delete these temporary files, re-generate the
queries and refresh the forms.

I am encountering the following error which I am unable to unravel:

"The database engine could not lock table tbltempTDW because it is
already in use by another person or process."

Could someone guide me where to look for as to who or what process is
locking this up? I am somewhat familiar with the use of the debugger.

For some more info on how the table is created:

I use the following syntax for initial deletion of any old file with
the same name

Dim cat As ADOX.Catalog
Set cat = New ADOX.Catalog
cat.ActiveConne ction = CurrentProject. Connection
cat.Tables.Refr esh

cat.Tables.Dele te "tbltempTDW "

the error message is displayed when I try to execute the
cat.Tables.Dele te "tbltemTDW" statement.

Thanks in advance.

Uttam