[Access/VBA] - Parameterquery als recordset

[Tsjipmanz]

Ik heb een query die porteringen tussen 2 datums in een formulier opzoekt, op de volgende manier:

code:

...
(Porteringen.Porteringsdatum) Between CDate([forms]![skibiediep]![dvan]) And CDate([forms]![skibiediep]![dtot])
...

Dit werkt normaal gesproken prima.

Ik wil echter aan de hand van deze query ook brieven genereren met gegevens, ook dit lukt nog wel.

Nu mijn probleem:
Om een brief zonder gegevens te voorkomen wil ik eerst kijken of het aantal records 0 is. Dit kan met recordCount in een recordset, dus probeer ik een recordset te openen:

code:

Set myQuery = CurrentDb().QueryDefs("AHBevestiging")
Set myRS = myQuery.OpenRecordset()

Nu krijg ik echter een foutmelding "Fout '3061' tijdens uitvoering. Er zijn te weinig parameters. Het verwachte aantal is : 2". Ik vind dit wat raar, want het is geen 'echte' parameterquery. Hij kan de parameters namelijk gewoon uit het formulier halen, maar doet dat om één of andere vage reden niet. Zie ik iets over het hoofd ofzo, of is er een eenvoudiger manier om dit te doen?

[OZ-Gump]

Er is inderdaad een eenvoudigere manier om dit te doen. Kijk binnen Access maar eens naar de DCount functie.

[Tsjipmanz]

OZ-Gump schreef op 12 juli 2004 @ 10:16:
Er is inderdaad een eenvoudigere manier om dit te doen. Kijk binnen Access maar eens naar de DCount functie.

Super, heb het voor elkaar. Thanx.

Desondanks zijn ideeën/gedachtes over waarom mijn vorige optie niet werkte nog welkom.

[Verwijderd]

Is je formulier wel geopend?

Dat kan je bepalen met de volgende functie.

Visual Basic:

Function fncIsLoaded(strFormName As String) As Boolean
    '  Bepalen of een formulier is geladen.
    
    Const FORM_DESIGN = 0
    Dim frm As Access.Form
    
    fncIsLoaded = False
    For Each frm In Access.Forms
        If frm.FormName = strFormName Then
            If frm.CurrentView <> FORM_DESIGN Then
                fncIsLoaded = True
                Exit Function  ' Functie afsluiten zodra het formulier is gevonden.
            End If
        End If
    Next frm

End Function

[Tsjipmanz]

Verwijderd schreef op 12 juli 2004 @ 11:34:
Is je formulier wel geopend?

Dat is dus het rare, hij is gewoon open. Ik kan de query ook wel uitvoeren via een button of het querytabblad, maar bij VBA gaat ie ineens k*tten.

[Verwijderd]

en wat als je de query als volgt opent:

set myRs = currentdb.openrecordset("AHBevestiging")