02. august 2002 - 10:28Der er
36 kommentarer og 1 løsning
Få afkrydsningsfelter til at fungere med udskriftknap
Jeg har lavet en formular, som indeholder 12 afkrydsningsfelter. Afkrydsningsfelterne skal linkes med en udskriftsknap - så udskriftknappen kun udskriver det afkrydset information!!
Jeg vil nok som martinsj foreslår, indsætte afkrydsningsfelterne i forespørgslen, og opsætte et kriterie: Afkrydsningsfelt1 = True, herefter vil rapporten kun udskrive de poster, der opfylder kriterierne.
Hvis du kun skal bruge afkrydsningsfelterne til denne ene udskrivning, kan du evt. (når du har udskrevet), køre en opdateringsforespørgsel, der sætter alle afkrydsningsfelter til False.
min formular fungere som en udskriftmenu, hvor hver afkrydsnings felt link til en rapport. derfor er jeres metode ikke hensigtsmæssig!!! har i andre forslag
jeg har [prolager], som er hoved formularen. derfra kan jeg komme over i [udskriftmenu] (også en formular) her har jeg oprettet 12 afkrydsningsfelter, som ved dobbelt klik udfører vis udskrift på feltes tilhørende rapport.
nu skal jeg have lavet så jeg kan udskrive de rapporter, som jeg har afkrydset i min formularen [udskriftmenu], ved at makere afkrydsningsfelter og derefter trykke på en kommandoknap [udskriv]
kan man ikke bare programmere kommandoknappen og hvis ja hvordan?
Private Sub Kommandoknap46_Click() On Error GoTo Err_Kommandoknap46_Click
If Me.Afkrydsningsfelt29 Then DoCmd.OpenReport "M/T A!, ACVIEWNORMAL" If Me.Afkrydsningsfelt13 Then DoCmd.OpenReport "M/T B!, ACVIEWNORMAL" If Me.Afkrydsningsfelt21 Then DoCmd.OpenReport "M/T B,S!, ACVIEWNORMAL" If Me.Afkrydsningsfelt27 Then DoCmd.OpenReport "M/T B,D,E,F!, ACVIEWNORMAL" If Me.Afkrydsningsfelt17 Then DoCmd.OpenReport "M/T C,D,E,G!, ACVIEWNORMAL" If Me.Afkrydsningsfelt15 Then DoCmd.OpenReport "M/T S,C,D,E,G!, ACVIEWNORMAL" If Me.Afkrydsningsfelt23 Then DoCmd.OpenReport "M/T H!, ACVIEWNORMAL" If Me.Afkrydsningsfelt19 Then DoCmd.OpenReport "M/T S,H!, ACVIEWNORMAL" If Me.Afkrydsningsfelt31 Then DoCmd.OpenReport "M/T J!, ACVIEWNORMAL" If Me.Afkrydsningsfelt33 Then DoCmd.OpenReport "M/T J,S!, ACVIEWNORMAL" If Me.Afkrydsningsfelt37 Then DoCmd.OpenReport "M/T K!, ACVIEWNORMAL" If Me.Afkrydsningsfelt39 Then DoCmd.OpenReport "M/T L!, ACVIEWNORMAL"
HEJ MUGS NU HAR JEG OPRETTET EN KNAP MED DIT FORESLAG, MEN JEG ER STØT PÅ ET PROBLEM OG DET ER AT DEN SIGER DER ER SYNTAKSFEJL FORDI JEG MANGLER EN OPERATOR I LINIEN:
du har sat aførselselstegnene forkert og skrevet Forms forkert du skriver FROMS ikke FORMS. Endvidere skriver du FROM1 - er det navnet på din form (formular), eller hedder den FORM1???
Enig med susanne, og dog: Også susanne har glemt et udråbetegn imellem [Forms] og [Form1]. det gjorde jeg også i min kommentar 2/8 kl 13:35. Sådan går det når tiden er knap og skal skynde sig på arbejde. Beklager til alle.
Der er i hvert tilfælde een fejl: Ordet "Or" skal ikke være en del af funktionen, som susanne tidligere har påpeget. Prøv kun at tage een rapport af gangen, så er det lidt nemmere at gennemskue, og når det fungerer tager vi de sidste. Jeg er lidt i tvivl om, hvorvidt du kan stave samlingen "FOrms" som du har gjort, eller som Access-hjælpen skriver "Forms". desuden mangler du stadigvæk en operator imellem [FOrms] og [RAPPORT]
Prøv denne, og kun den ene, hvis den virker bygger vi de andre på. Vær desuden sikker på, at formulaernavn og feltnavn er stavet korrekt. Det er ikke nok at skrive det, der står i etiketten, det behøver ikke at være det samme som kontrolelementets navn.
Jeg har lige lavet en lille testdb, hvor alt fungerer. Den opererer med en If.. Then sætning for hver enkelt afkrydsningsfelt. Det er lidt mere simpelt, end det vi sidder og bakser med. Læg din e-mail hvis du vil have den. Kører du xp kan jeg zippe den.
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.
Ny bruger
Nybegynder
Opret
Preview
