🚀 go-pugleaf

"Daffy Duck" <jjj@planetinternet.be> schreef in bericht
news:3ae729f3$0$3120$456d72a3@news.skynet.be...
> Hopelijk kan iemand mij hierbij helpen.
>
> Ik heb in access een aantal rapporten gemaakt met een parameterquery.
> Ik zou nu graag in visual basic een parameter ingeven, en aan de hand van
> deze parameter moet hij de bijhorende gegevens in de Access rapporten
> invullen en afdrukken.
> Kan iemand mij een beetje op weg helpen met de code in vb die hiervoor
nodig
> is ??
>
> Dank bij voorbaat.
>
> Inge.
>
Wanneer het gaat om een echte parameter query dan kan je dat als volgt.
Let er wel voor op dat je een verwijzing legt naar de DAO x.x Object Library
via Project -> References -> DAO X.X Object Library

Private Sub cmdParaReport_click()
Rem
Rem *** Declaratie van een variabele van het type DAO QueryDef
Rem ***  Een QueryDef bevat de volledige structuur en definitie van een
Access Query
Rem
    Dim qdf As DAO.QueryDef

Rem
Rem *** Declaratie van een variabele van het type DAO Recordset
Rem ***  Dit is de normale recordset bevat de velden en hun data
Rem
    Dim rsParaMeter As DAO.Recordset

Rem =============================================
Rem === Openen van de QueryDefinitie
Rem
Rem ---- qbeParamater = de naam van je Access Parameter Query
Rem =============================================
    Set qdf = dbSql.QueryDefs("qbeParameter")

Rem =============================================
Rem === Invullen Parameter
Rem
Rem -------- txtParameter = bevat de betreffende data voor de parameter van
de query
Rem =============================================

    qdf.Parameters("parGisting") = txtParameter

Rem === Openen van de recordset
    Set rsSql = qdf.OpenRecordset()

Rem =============================================
Rem === Openen van het Access Report
Rem =============================================
rem
rem *** PLAATS HIER JE CODE VOOR HET OPENEN VAN HET RAPPORT
rem

End Sub

Ik hoop dat je hiermee heholpen bent

Groetjes
Goofy