2 selectiequery's tegelijk tonen

[anlag1]

Heb het volgende script onder een form-knop staan, wil hiermee 2 selectiequery's openen en tonen op het scherm, de eerste query wordt getoont, maar de tweede niet.
en ook verdwijnt het formulier niet op het close commando.
Kan me wel enigszins voorstellen dat dit het resultaat is, maar weet niet hoe het anders op te lossen, kan iemand hulp bieden?

Private Sub Ok_Click()
On Error GoTo Err_Ok_Click

Dim stDocName As String

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

    stDocName = "qry_not_in_connectionlist_2"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    
DoCmd.Close

Exit_Ok_Click:
    Exit Sub

Err_Ok_Click:
    MsgBox Err.Description
    Resume Exit_Ok_Click
    
End Sub

 

[OctaFish]

Eén van de redenen (nee, eigenlijk de enige) dat ik dit commando (DoCmd.Close) nooit gebruik, is dat je geen idee hebt wàt-ie nu eigenlijk sluit... Je geeft alleen maar de opdracht om een object te sluiten. Maar je zegt niet wèlk. Dus sluit Access het laatste object dat je opent. En dat is..... inderdaad, je tweede query! Die wordt dus geopend, en in het volgende commando gelijk gesloten! Heb je nog mazzel dat Access niet in discussie gaat over deze, voor vba in ieder geval, redelijk nutteloze handeling...

Wat je dus moet doen, is specifiek aangeven wàt je eigenlijk wilt sluiten. En dat doe je zo:

     DoCmd.Close acForm, Me.Form.Name

Dus nooit meer een formulier sluiten met DoCmd.Close

 

[anlag1]

Het is weer perfect Michel,
dank je wel
Gr,
Andre