Avatar billede sdn Nybegynder
06. april 2004 - 10:11 Der er 8 kommentarer og
2 løsninger

Udprint af rapport

Hej,
Jeg er nybegynder i design af Access databaser, og har følgende ønske:

Jeg har lavet en kommando knap som ved klik udprinter en rapport. Men jeg skal kun udprinte den post som jeg har åben i min formular. Hvordan laver man et filter som gør at kun den pågældende post bliver udprintet til rapporten?
Avatar billede sdn Nybegynder
06. april 2004 - 10:13 #1
Koden ser ud som følger:
Private Sub Print_ServiceSeddel_Click()
On Error GoTo Err_Print_ServiceSeddel_Click

    Dim stDocName As String

    stDocName = "RMA følgeseddel"
    DoCmd.OpenReport stDocName, acNormal

Exit_Print_ServiceSeddel_Click:
    Exit Sub

Err_Print_ServiceSeddel_Click:
    MsgBox Err.Description
    Resume Exit_Print_ServiceSeddel_Click
   
End Sub
Avatar billede terry Ekspert
06. april 2004 - 10:14 #2
Private Sub Print_ServiceSeddel_Click()
On Error GoTo Err_Print_ServiceSeddel_Click

    Dim stDocName As String

    stDocName = "RMA følgeseddel"
    DoCmd.OpenReport stDocName, acNormal,,"ID = " & Me.ID

Exit_Print_ServiceSeddel_Click:
    Exit Sub

Err_Print_ServiceSeddel_Click:
    MsgBox Err.Description
    Resume Exit_Print_ServiceSeddel_Click
   
End Sub
Avatar billede terry Ekspert
06. april 2004 - 10:16 #3
You need to alter this part "ID = " & Me.ID

so that ID is the primary key field in the report and Me.ID is the primary key on the form
Avatar billede mugs Novice
06. april 2004 - 10:24 #4
Ved alfanumeriske felter:
DoCmd.OpenReport "RMA følgeseddel", acViewPreview, , "[TEBELNAVN]![FELTNAVN] = '" & Me!tekst & "'"

Ved numeriske felter:
DoCmd.OpenReport "RMA følgeseddel", acViewPreview, , "[TEBELNAVN]![FELTNAVN] = " & Me!tal & ""
Avatar billede terry Ekspert
06. april 2004 - 12:04 #5
06/04-2004 10:14:54
Avatar billede sdn Nybegynder
06. april 2004 - 12:29 #6
Terry > altså skal der indsættes "ID = " & Me.ID et andet sted i scriptet? Det virker nemlig ik, hvis jeg blot indsætter denne del i mit nuværende script.
Avatar billede mugs Novice
06. april 2004 - 13:20 #7
ID = " & Me.ID

Hvor ID er tabellens felt ID og & Me.ID refererer til formularen's (den aktuelle)felt ID
Avatar billede terry Ekspert
07. april 2004 - 13:03 #8
sdn>You MUST alter these names so to those YOU use in YOUR program! If you still can notget it to work then I can take a look NOSPAMeksperten@santhell.dkNOSPAM
you need to remove NOSPAM
Avatar billede sdn Nybegynder
08. april 2004 - 12:28 #9
jeg har nu fået kigget noget mere på sagen bl.a. i Northwind test databasen.

nu ser det ud som følger:

Private Sub PrintRMAsag_Click()
On Error GoTo Err_PrintRMAsag_Click

    Dim strDocName As String
   
    strDocName = "RMAPrint"
    DoCmd.OpenReport strDocName, acNormal, "RMAfilter"

Exit_PrintRMAsag_Click:
    Exit Sub

Err_PrintRMAsag_Click:
        MsgBox Err.Description
        Resume Exit_PrintRMAsag_Click
    End If

End Sub

Men når jeg trykker på udføre scriptet sker der intet - ikke engang en fejl promt! Hvis jeg åbner den tilhørende forespørgsel vises den aktive post. Og hvis jeg åbner rapporten, vises også her den aktive post...men hvordan pokker starter den print routinen? Skal der ligge en script et andet sted?
Avatar billede sdn Nybegynder
08. april 2004 - 15:40 #10
jeg fandt til sidst ud af det! Tak for hjælpen :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester