03. maj 2010 - 12:02Der er
8 kommentarer og 1 løsning
Skal printe eller ikke printe
Hej Jeg har en macro som printer 6 rapporter: Inslagsmaterial, m1, m2, m3, m4, m5
="[ID]=" & [ID] & " AND [STOL_SV] = " & [STOL_SV]
Nu vil jeg så gerne at m1 til m5 skal printe det antal sider (kopier) som der står i 5 textboxer:
Antal Sidor 1, Antal Sidor 2, Antal Sidor 3, Antal Sidor 4, Antal Sidor 5
Men den skal også se om der står noget i en anden textbox :
Material 1, Material 2, Material 3, Material 4, Material 5
Hvis der ikke står noget skal den ikke printe tilhörende rapport. m1, Antal Sidor 1 og Material 1 høre sammen m2, Antal Sidor 2 og Material 2 høre sammen osv. Min form hedder: Inslagsmaterial
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
Denne udskriver det antal eksemplarer der er indtastet i feltet Antal i formularen:
Dim i as integer Dim Antalex as integer If IsNull [antal] = -1 Then MsgBox "Du har ikke indtastet antal eksemplarer" Exit sub End If Antalex = Antal If antalex = < 1 then MsgBox "Du har ikke indtastet antal eksemplarer" Exit sub End If For i = 1 to Antalex docmd.openReport "Din rapport", acNormal, "","" Next i
Prøv denne. Haer muligvis glemt (). Eksempel er sendt.
Dim i As Integer Dim Antalex As Integer If IsNull([Antal]) = -1 Then MsgBox "Du har ikke indtastet antal eksemplarer." Exit Sub End If Antalex = [Antal] If Antalex <= 1 Then MsgBox "Du har ikke indtastet antal eksemplarer." Exit Sub End If For i = 1 To Antalex DoCmd.OpenReport "Rapport2", acNormal, "", "" Next i
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.