Rapport printen met bepaald records ??

[irvinnie]

hey,. ben nieuw hier,. net aangemeld en heb nu al een vraagje,.

we zijn bezig met een Db te maken in access. is een simpel db hoeft niet veel te kunnen maar lopen nu tegen een probleem(pje) aan. (zal voor de gemid. gebruiker wel simpel zijn) we hebben een tabel met daarin de gegevens van verschillende personen. deze wordt opgevraagt via een keuze menu (pull-down) dan verschijnen er de gegevens. dit werkt simpel en makkelijk. nu willen we een via een rapport een overzicht afdrukken van een persoon die wordt opgevraagd. alleen als we een print functie maken dan print deze ALLE records uit en niet die van 1 persoon. (je krijgt nu dus een overzicht van alle personen in de tabel) ,. misschien kijken wij er helemaal overheen ,. maar het lukt niet helemaal,. thnx anyway ,.

:thumb:

 

[vanzwam]

Dit is simpel op te lossen met een parameter query.
Maak van je tabel een query. Gebruik deze als gegevensbron voor uw formulier.
Maak nu een nieuwe query. Kies invoegen -> query -> ga met de muis naar het sterretje en sleep dit naar het eerste veld in de query. ga nu naar de naam van de primaire sleutel (Vb ID) Sleep deze naar het 2° veld. Bij criteria vul je in Forms!naam van uw formulier!naam van de primaire sleutel. Save deze query en een naam vb."Filter voor rapport".

Maak nu in uw formulier een knop. Kies voor gebeurtenis procedure. en zet de code " DoCmd.OpenReport "naam van uw rapport", acViewNormal, "Filter voor rapport"

Zal nu enkel de gevens uitprinten van het huidige record.

 

[Jojam]

Een bepaald record ophalen in een record vanuit een formulier kun je maken met onderstaande code.
Waarbij je Rapport verwijst naar het te openen rapport. En waarbij IDnaam verwijst naar een uniek veld in je DB.

Private Sub Knop9_Click()
On Error GoTo Err_Knop9_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "<B>Je rapport</B>"

stLinkCriteria = "<B>[IDnaam</B>]=" & Me![<B>Idnaam</B>]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Knop9_Click:
Exit Sub

Err_Knop9_Click:
MsgBox Err.Description
Resume Exit_Knop9_Click

End Sub

JJ

 

[vanzwam]

Zo kan het natuurlijk ook. Maar ik ben nu eenmaal gewend om met query's te werken. Kwestie van werkwijze natuurlijk.

 

[irvinnie]

thnx

thnx ben nu bezig ook met de query's komt vorm in,.. thnx m8 :thumb:

 

[bultje21]

We hebben em al!