24. marts 2004 - 18:10Der er
19 kommentarer og 1 løsning
2 felter i tabel og rapport udskrivning eller preview på skærm
Jeg har f.eks 2 felter i samme tabel. Felt 1 er et rullegardin hvor der kan vælges ja og nej (ikke afkrydsning). Det skal være sådan at når jeg vælger ja til felt 1, så skal felt 2 blive aktivt. Når jeg vælger nej i felt 1, skal felt 2 blive inaktivt. Kan det lade sig gøre ?
Ved udskrivning eller preview af rapport, vil jeg have at de felter der bruges fra forespørgsel, skal forkortes eller forlænges til deres aktuelle størrelse på de udskrevne rapporter. Rapportens tekst kan f.eks. være "[navn] arbejder på [arbejdssted]". Problemet er at der jo er forskel på forskellige navnes længde, så det giver enten for meget eller for lidt plads. Er der en måde så feltet tilpasser sig tekstens længde ?
If Me.felt = "Ja" Then Me.felt2.Visible = False Else Me.Felt2.Visible = True End If
M.h.t. rapportens tekst forstår jeg det på den måde, at du taler om rapportens overskrift. Her kan du indsætte et ubundet tekstfelt, og i dettes postkilde referere til foresrpøgslen:
1. De koder du nævner øverst, er det i forespørgsel de skal sættes ?
2. Det er ment på den måde at når jeg printer rapporten ud, så vil et felt som [navn] variere i størrelse, alt efter hvilket navn det er. Det er ligesom brevfletning. Jeg kan f.eks have en rapport på 3 personer og derfor vil jeg have at [navn] tilpasses til navnet, selvom person 1 hedder Ib, mens person 2 hedder sigurd
Jeg har prøvet de 2 du nævner, men de skulle kun virke i det tilfælde at felterne fylder for meget til ikke at kunne være på udskriftet. Ihvertfald gjorde de ingenting ved felterne.
Private Sub spørgsmål_dirty() If Me.Spørgsmål = "nej" Then Me.Dato.Enabled = False If Me.Spørgsmål = "ja" Then Me.Dato.Enabled = True End If End Sub
Private Sub form_current() If Me.Spørgsmål = "ja" Then Me.Dato.Enabled = True Else: Me.Dato.Enabled = False End If End Sub
Både enabled og visible virker, men ikke med det samme. Man skal først forlade recorden og gå tilbage til den. Er der noget i vejen med koden, det virker som om den dirty funktion ikke har den store effekt
Vi mailede jo en del sammen iaftes. Denne kode fungerer med det samme du foretager en ændring af feltet:
Private Sub Form_Current() If Me.Jubilar_til_borgmester = "Ja" Then Me.Oversigt_sendt_til_borgmester_og_trykkeri.Visible = True Else: Me.Oversigt_sendt_til_borgmester_og_trykkeri.Visible = False End If End Sub
Private Sub Jubilar_til_borgmester_Dirty(Cancel As Integer) If Me.Jubilar_til_borgmester = "Nej" Then Me.Oversigt_sendt_til_borgmester_og_trykkeri.Visible = True Else: Me.Oversigt_sendt_til_borgmester_og_trykkeri.Visible = False End If End Sub
Jeg ved simpelthen ikke hvorfor det ikke fungerer hos dig.
Nej - Det kan jeg forstå når du vender tilbage. Som sagt både iaftes og her igen, så fungerer koderne øjeblikkeligt ved en ændring af feltet. Jeg ved ikke hvorfor det ikke gør hos dig, og hvad værre er, så har jeg heller ikke noget bud.
For at opdatere andre brugere: Jeg modtog dane022 db iaftes og indsatte mine koder, og det fungerer perfekt. Når db returneres til dane022, har koderne ikke den effekt, at de får feltet til at forsvinde.
Der er det man vel bruger normalt. Det er kun en simpel kode, og det burde fungere. Prøv f.eks at lave en db med kun 2 felter og se, om du kan få det til at fungere her.
At give op findes normalt ikke i min ordbog. Men her må jeg simpelthen melde pas. Jeg har ikke flere ideer. Håber andre brugere kan hjælpe dig videre, og at en evt. løsning vil blive postet her på siden. Jeg beklager.
Jeg tror ikke der er nogen der kan hjælpe mig, der er sikert en årsag men det kan jeg ikke vide. Jeg synes heller ikke ved gennemgang af de andre indlæg i forummet at der er nogen med noget lignende, så det er måske en sjælden forespørgsel
Synes godt om
Ny brugerNybegynder
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.
