Query openen via keuzelijst ( enkel openen, geen zoekcriteria opgeven)

[Flupken]

Beste,
ik heb op een formulier een paar knoppen staan die een query openen.
Door het vergroten van het aantal Query's ga ik teveel knoppen moeten plaatsen.
Kan ik via een keuzelijst met invoervak (waarden worden opgezocht in een tabel) deze query's openen?
Hieronder de code van een van de knoppen.

Private Sub Knop23_Click()
On Error GoTo Err_Knop23_Click

Dim stDocName As String

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

Exit_Knop23_Click:
Exit Sub

Err_Knop23_Click:

MsgBox Err.Description
Resume Exit_Knop23_Click

End Sub

Alvast bedank om mij op weg te helpen.
Grts, Filip B.

 

[OctaFish]

Als je een tabel maakt met querynamen is het vrij simpel, want dan kun je die gebruiken met de optie <lijst met velden>. Maar je kunt ook een selectiequery gebruiken, dan hoef je de tabel niet te maken/vullen/bij te houden:

SELECT Name FROM MSysObjects WHERE (Type=5) ORDER BY Name;

In beide gevallen (bovenstaande query of je tabel) lees je de gekozen waarde uit keuzelijst uit.

DoCmd.OpenQuery Me.cboQeries, acNormal, acEdit

 

[Flupken]

Octafish,
dank je voor de reactie.
ik plaatste de code zoals hieronder maar het loopt toch fout. ik koos voor de methode met de tabel.
de foutmelding "kan de methode of het gegevenslid niet vinden" is mijn deel na het kiezen uit de lijst.

Private Sub Keuzelijst_met_invoervak32_Click()
DoCmd.OpenQuery Me.cboQeries, acNormal, acEdit
End Sub

Grts, Filip B.

 

[OctaFish]

Eerste opmerking: je hoeft een bovenliggend bericht niet te quooten, dat neemt alleen maar nodeloze ruimte in beslag. Dus die quoot mag je weghalen
Tweede opmerking: de naam van de keuzelijst moet bij jou natuurlijk wel hetzelfde zijn als in mijn voorbeeld. Heet die bij jou anders, dan moet je de naam gebruiken die jij gebruikt. De keuzelijst zelf werkt wel?

 

[Flupken]

Octafish,
dank je. ik was vergeten de naam aan te passen.
Werkt perfect. ik ga ook eens de andere methode proberen.
Grts, Filip b.