Forespørgsel sorteret på flere felter ad gangen

Hvis du indtaster [] i forespørgslens kriteriefelt, vil du få en POP-UP der beder dig indtaste paramatrer, der herefter vil blive indsat på kriterier.

Inde i [] kan du f.eks skrive en ledende tekst:

[Indtast ugenr.:] og [Indtast år:]

Det er ligegyldigt hvilken version du benytter.

Mugs jeg tror nok jeg behøver noget mere hjælp. Jeg ved faktisk ike hvor jeg skal begynde og ende.

Det må kræve noget mere end det du skriver, for at få alt det her til at virke!?

I din formular laver du 2 ubundne tekstbokse. Navngiv dem "Uge" og "År". Derefter en kommandoknap, i hvis Vedklik event du indsætter flg.:

Uge = InputBox(Prompt:="Indtast uge.", Title:="Søg uge", Default:="")
År = InputBox(Prompt:="Indtast år.", Title:="Søg år", Default:="")

De indtastede værdier vil nu blive overført til tekstboksene. Nu skal du have disse værdier indsat i forespørgslen som kriterier.

Åbn forespørgslen i designvisning. I det udtryk der indeholder feltet "Opstartsdato" udtryk for uge skriver du:

=[Forms]![Formularens navn]![Uge]

I kriteriefeltet for udtrykket "År" skriver du:

=[Forms]![Formularens navn]![År]

Start med det.

Når du skal have korrekturdatoen, skal du indtaste de samme kriterier i de 2 udtryk for korrekturdatoen's udtryk for henholdsvis Uge og År, blot skal du nu forskyde kriterierne en linie ned. Hvis kriterierne står på samme linie betyder det OG, hvis du forskyder en linie ned betyder det ELLER.

Og sådan bliver du bare ved med altid at indsætte kriterier een linie ned.  Dog skal kriteierne for hvert enkelt udtryk stå på samme linie:

Kriterierne for Opstartsdato på samme linie.
Derefter kriterier for Korrekturdato forskudt een linie ned.

Ser på det - Det var nok nogle dage, men skal nok vende tilbage!

Mugs> Jeg har nogle problemer. Jeg får at vide at syntaksen til komandoknappen er forkert.
Samtidig vil jeg lige sige, at de forskellige uger hedder:
- Opstartsdato = uge
- Korrekturdato = Kuge
- Produktionsdato = Puge
- Leveringsdato = Luge

Jeg tror ikke der er taget højde for det i din formel - eller er det mig der ikke kan læse det ordentligt?

h_s -> Jeg er på vej til arbejde, og har ikke tid nu. Jeg er hjemme ca. 19:00, og kan lave et eksempel. Blot læg din e-mail.

Det vil godt nok være dejligt - henrik@southfarm.dk
Jeg kunne også sende den til dig ;-)

Jeg er først hjemme kl. 21.30!

Du må meget gerne sende: mugs@mail.dk

Mugs> Jeg har fået lavet forspørgslen men har en del problemer med formularen. Jeg forstår ikke helt dine forklaringer i formular! Jeg forstår heller ikke hvorfor der skal være 2 formularer!

Mugs> Nu har jeg prøvet at arbejde videre med det og så vidt jeg kan se har jeg følgende problemer:
- Kørselsfejl 2450: (Kan ikke finde Formular1)
Private Sub Form_Current()
Me.Tekst34 = [Forms]![Formular1]![Tekst17]<------ Fejlen opstår her
Me.Filter = "opstartsår = " & Me.Tekst34
Me.FilterOn = True
End Sub

Der er en formular1!! Det sker når jeg prøver at køre Formular2 uden om Formular1. Når jeg køre Formular1 kommer der ingen "hits". Det gør der, når jeg køre forespørgslen!

Jeg kan ikke finde feltet VedAktuel (Current) i formularen1

Hvad gør jeg galt?

Forespørgslen skal have nogle kriterier for at finde de poster du ønsker. Disse kriterier er indtastet i forespørgslen på den måde, at forespørgslen henter data fra Formular1, som har 5 ubundne tekstbokse som du kan indtaste i. Når du har gjort det trykker du på kommendoknappen som åbner Formular2. Denne formular får sine data fra forespørgslen undtagen året. Året skriver du i Formular1 i den nederste felt. Årstallet i formular2 står i Tekst34 som refererer til Formular1, som du ser nedenfor:

Me.Tekst34 = [Forms]![Formular1]![Tekst17]<------ Fejlen opstår her

Du kan ikke køre Formular2 uden at du har formular åben. Netop fordi formular2 skal bruge data fra Formular1. Hvis du gør det, får du fejlen, at formular ikke findes. Og det er fuldstændig korrekt, for du kan ikke referere til an formular der ikke er åben.

Jeg kan ikke finde feltet VedAktuel (Current) i formularen1
VedAkruel er intet felt, men en status formular opnår når du enten pbner formularen eller skifter post. Koden skal indsættes i formular2 vedAktuel. Du finder VedAktuel således:

Åbn databasen  > Åbn formular2 i Designvisning > Højreklik et sted i det MØRKEGRÅ område > Egenskaber > Fanen Hændelser > Sær markøren på linien VedAktuel (Current i engelske versioner) > Tryk på de 3 små ... i højre side.

Du kommer nu ind i VBA-editoren og du sætter koden ind der hvor markøren står og blinker mellem 2 linier:

Private Sub o.s.b.
Her er markøren og her indsætter du koden
End Sub

Håber det gav lidt meer uddybende forklaring ellers må du vende tilbage.

Efter at have postet ovenstående ser jeg, at have modtaget en mail fra spørgeren med en vedhæftet db. Db er rettet og returneret.
Fejlen var at spørgeren i en forespørgsel havde refereret til 4 felter i en formular, hvor felterne ikke eksisterede. Efter at have givet forespørgslen de rette referencer fungerer det.

mugs du har været en stor hjælp - Tak, men for at du kan få dine velfortjente point, så kræver det at du laver et "svar" :-)

Selv tak. Men det er længe siden du har giver mig point.

mugs> nu er jeg forviret på højere plan: Når jeg har indtastet mine værdier i formular1 og åbner formular2 beder den om parameterværdi: test.Opstart. Jeg har kigget både i forespørgslen Test og Formularen Formular2 uden at finde værditen Opstart. Har du nogle gode forslag - Jeg må have ødelagt noget :-(

h_s -> Vil du sende din db: mugs@mail.dk

mugs> sender den når jeg kommer på arbejde den 5. januar 2004 - Godt Nytår :-)

OK - Også Godt Nytår fra det Sønderjyske. Er du venlig at referere til dette spørgsmål når du mailer din db?