22. oktober 2007 - 11:32Der er
15 kommentarer og 1 løsning
Åben en af to formular afhængig af data i et felt
Kære alle jeg har et lille kodeproblem jeg er kørt fast i: På en formular er en knap som kan åbne to forskellige formular, formular "Cuvedata" eller "Vinificeringsjournal", afhængig af hvilke data ("Cuve" eller "Enkel vin")der vises i feltet "Vintype2".
Koden er følgende:
Private Sub Kommandoknap47_Click() Select Case [Vintype2] Case Is = "Cuve'" DoCmd.OpenForm "Cuvedata" Forms![Cuve]!ID.SetFocus DoCmd.FindRecord Me!ID Case Is = "Enkel vin" DoCmd.OpenForm "Vinificeringsjournal" Forms![Vinificeringsjournal]!ID.SetFocus DoCmd.FindRecord Me!ID End Select End Sub
Koden virker udemærket, men alle poster kommer med. Der skal indsættes et filter i koden så det kun er den aktuelle post der vises, og ikke andre.
I det øjeblik formen Vinificeringsjournal er åben, vil det reserverede ord "Me" referere til denne form, så det mener jeg ikke er nødvendigt - Men man kan aldrig vide ;0)
Det er helt OK - Mit internet har været nede det meste af eftermiddagen, så jeg har ikke helt fulgt med. Men du vender bare tilbage hvis der stadig er problenmer.
Hej mugs Så er jeg på banen igen. Jeg sender en zippet kopi af databasen til din mailadresse. Fejlen er nu rettet, så eneste kanst er ovennævnte problem.
Hej mugs Det ser ud til at det fungere perfekt, jeg havde aldrig fundet på at sætte en kode ind under "ved aktuelt". Du har ærligt fortjent dine 30 P.
For andre er er med på en "kikker" har mugs lavet en kodestump der sættes ind under "ved aktuelt" i den pågældende formular. Koden er vist herunder.
Private Sub Form_Current() Dim varA As Long varA = [Forms]![forside]![ID] DoCmd.GoToControl "id" DoCmd.FindRecord varA, acEntire, False, , True, acCurrent, True Me.filter = "ID = " & Me!ID & "" Me.FilterOn = True End Sub
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.
