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
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.
