02. februar 2010 - 10:31
Der er
7 kommentarer og 1 løsning
Udskriv denne side
Hej Eksperter Håber en af jer gider hjælpe med dette. (Access-database) Fra en åben formular, ønsker jeg at udskrive denne side(rapport). Rapporten er bygget på en forespørgsel, som består af 2 tabeller. Koden ser således ud: Private Sub ctl_Noeglekvitt_Click() On Error GoTo Err_ctl_Noeglekvitt_Click Dim stDocName As String stDocName = "rptNoeglekvittering" stLinkCriteria = "[NoegleId]=" & Me![NoegleId] DoCmd.OpenReport stDocName, acPreview Exit_ctl_Noeglekvitt_Click: Exit Sub Err_ctl_Noeglekvitt_Click: MsgBox Err.Description Resume Exit_ctl_Noeglekvitt_Click End Sub Jeg forstår simpelthen ikke hvorfor jeg ikke kan få det til at virke. Den skriver bare alle rapporter ud! Mvh erf
Annonceindlæg tema
Cloud & AI
Teknologi, AI og forretning er i centrum på Computerworlds Cloud og AI Festival i København d. 18. og 19. september. Se hele programmet for den store konference om strategisk brug af Cloud og AI på: www.cloud-festival.dk
02. februar 2010 - 11:41
#1
you need to include stLinkCriteria in the list of paramaters to DoCmd.OpenReport
02. februar 2010 - 11:43
#2
expression.OpenReport(ReportName, View, FilterName, WhereCondition, WindowMode, OpenArgs) So you need to replace WhereCondition with stLinkCriteria
02. februar 2010 - 12:19
#3
Hi Terry Now iy looks like this: Private Sub ctl_Noeglekvitt_Click() On Error GoTo Err_ctl_Noeglekvitt_Click Dim stDocName As String stDocName = "rptNoeglekvittering" stLinkCriteria = "[NoegleId]=" & Me![NoegleId] DoCmd.OpenReport (rptNoeglekvittering), acViewReport, stDocName, stLinkCriteria = "[NoegleId]=" & Me![NoegleId] Exit_ctl_Noeglekvitt_Click: Exit Sub Err_ctl_Noeglekvitt_Click: MsgBox Err.Description Resume Exit_ctl_Noeglekvitt_Click End Sub I get this error message: "Handlingen eller argumentet kræver Rapportnavn".
02. februar 2010 - 12:45
#4
your first answer was almost right DoCmd.OpenReport stDocName, acPreview,,stLinkCriteria
03. februar 2010 - 11:54
#5
did that help?
04. februar 2010 - 11:08
#6
Hi Terry I´ve just come back. Sorry for the delay. It seems to work now. My code looks like this: Private Sub Kommandoknap17_Click() On Error GoTo Err_Kommandoknap17_Click Dim stDocName As String stDocName = "rptNoeglekvittering" DoCmd.OpenReport "rptNoeglekvittering", acPreview, , "personId = " & PersonId Exit_Kommandoknap17_Click: Exit Sub Err_Kommandoknap17_Click: MsgBox Err.Description Resume Exit_Kommandoknap17_Click End Sub How do I give you the points? erf
09. februar 2010 - 10:02
#7
Hi Terry Please respond so that I can give you your points erf
10. februar 2010 - 11:00
#8
dont think I received any mails on the last posts thanks
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser