Openen van query in een formulier

[anderrijk]

Hoi,

Zodra ik mijn bestand (fin) open, dan krijg ik meteen het formulier Menu als openingsscherm.

Vanuit dit openingsscherm kan ik zaken invoeren (dmv formulieren) en rapporten bekijken (rapporten).

Nu probeer ik ook query's op deze manier te openen, maar dit lukt nog niet.

Ik heb een vermoeden dat dit door de code komt die in vba gemaakt is.
De codes die voor formulieren en rapporten zijn gemaakt zien er zo uit:


Function fForm(strNaam As String, Optional strCriteria As String)
On Error GoTo Err_fForm

DoCmd.OpenForm strNaam, acNormal, , strCriteria

Exit_fForm:
Exit Function

Err_fForm:
Resume Exit_fForm

End Function
---------------------
Function fReport(strNaam As String, Optional strCriteria As String)
On Error GoTo Err_fReport

DoCmd.OpenReport strNaam, acViewPreview, , strCriteria

Exit_fReport:
Exit Function

Err_fReport:
Resume Exit_fReport

End Function
---------------

Weet iemand nu hoe ik een query kan openen vanuit het formulier?

Als er meer informatie nodig is, verneem ik dat graag.

Alvast bedankt
Jurn

 

[Guus2005]

Heb je deze al geprobeerd?

docmd.openquery "qrySomeQuery",acViewNormal,acReadOnly

 

[anderrijk]

Ik heb hem zo geschreven (in de macro) maar hij wil nog niet werken:

Function fQuery(strNaam As String, Optional strCriteria As String)
On Error GoTo Err_fQuery

DoCmd.OpenQuery "qrySomeQuery", acViewNormal, acReadOnly

Exit_fQuery:
Exit Function

Err_fQuery:
Resume Exit_fQuery

End Function

 

[Guus2005]

Ik weet niet hoe je verwacht dat je input eruit moet zien bijvoorbeeld
strNaam als naam van je query?

Je code ziet er dan als volgt uit.

Function fQuery(strNaam As String)
On Error GoTo Err_fQuery

    DoCmd.OpenQuery strNaam , acViewNormal, acReadOnly

Exit_fQuery:
Exit Function

Err_fQuery:
Resume Exit_fQuery

End Function

Als je verder nog criteria hebt, dan moet je je query aanpassen.

 

[anderrijk]

dank je! Dat was precies wat ik zocht en hij doet het tot op heden perfect!