Lock Table Query

[Hayton]

I have a form which has a button that initiates a ‘make table query’. This query extracts a single field which is used to populate a combo box. I use the combo box as a filter for a report.

If I run the make table query a second time the following error message occurs, “The database engine could not lock table tblFleetDD because it is already in use by another person or process.”

How do I sort this out?


Hayton McGregor

 

[Remou]

Removing the RowSource from the combobox before running again should do it.

 

[Hayton]

Remou thanks for your reply. Could you please help with the code. This is the code for the combo box.

On Error GoTo Err_Command172_Click

Dim stDocName As String


stDocName = "qryVehiclesDDM"
DoCmd.OpenQuery stDocName, acNormal, acEdit


Exit_Command172_Click:
Exit Sub

Err_Command172_Click:
MsgBox Err.Description
Resume Exit_Command172_Click

Many Thanks
Greg

Hayton McGregor

 

[Remou]

What is the name of the combobox?

 

[Hayton]

cboFleet

Hayton McGregor

 

[Remou]

Ok. Try this:

On Error GoTo Err_Command172_Click

    Dim stDocName As String
    
    Me.cboFleet.RowSource=""
    stDocName = "qryVehiclesDDM"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    

Exit_Command172_Click:
    Exit Sub

Err_Command172_Click:
    MsgBox Err.Description
    Resume Exit_Command172_Click

 

[Hayton]

Thanks Remou, I added some code for the rowsource

On Error GoTo Err_Command172_Click

Dim stDocName As String

Me.cboFleet.RowSource = ""


stDocName = "qryVehiclesDDM"
DoCmd.OpenQuery stDocName, acNormal, acEdit

Me.cboFleet.RowSource = "SELECT DISTINCTROW tblFleetDD.FltNbr FROM tblFleetDD ORDER BY tblFleetDD.FltNbr;"


Exit_Command172_Click:
Exit Sub

Err_Command172_Click:
MsgBox Err.Description
Resume Exit_Command172_Click

Cheers

Hayton McGregor