Sögefunktion i en formel

Dim VARa As Date
VARa = InputBox(Prompt:="Indtast dato", Title:="Find dasto.", Default:="")
DoCmd.GoToControl "FollowUpDate"
DoCmd.FindRecord VARa, acEntire

Du kan også finde en fremragende dynamisk søgerfunktion på Thomas Jepsen's hjemmeside makeiteasy.dk

Der er også en anden mulighed:

1. Lav en formular, som lister alle poster, denne skal bruges til en underformular. Dvs. at den jo skal være en fortløbende formular
2. Lav en formular, som er lidt størrere end den foregående og brug denne som hovedformular, denne skal ikke være en fortløbende formular
3. Indsæt et tekstfelt på hovedformularen og kald den dato, den skal selvfølgelig sættes til format "kort datoformat" eller noget lignende
4. Så indsætter du en underformular og her vælger du den formular, som lister alle posterne
5. Højreklik på underformularen og skriv "dato" ved hovedformular og "FollowUpDate" som underformular

Så skulle det køre!~)

spg > det forekommer mig at være en noget omstændig løsning. Hvis den fundne post skal isoleres, kan det gøres meget simpelt med et filter:

Dim VARa As Date
VARa = InputBox(Prompt:="Indtast dato", Title:="Find dato.", Default:="")
DoCmd.GoToControl "FollowUpDate"
DoCmd.FindRecord VARa, acEntire
Me.Filter = "FollowUpDate = #" & Me!FollowUpDate & "#"
Me.FilterOn = True

mugs>Det er rigtigt, men ved rickie hvad han skal gøre ved det?~)

Man kunne jo selvfølgelig også sætte datofeltet som kriterie og så køre requery på afterupdate eller lave en knap, der kører det. Der er flere muligheder, nogen som du siger mere omstændig end andre...

Apropos... Rickie, hvordan går det!~)

Spørgeren har 570 point ude - Så dette er nok heller ikke så vigtigt!

Kedeligt!~(

Jo, det er vigtigt! Jeg har desvärre bare haft fri et par dage.....jeg kigger på det i weekenden. Tak for alle svar - vender tilbage så hurtigt som muligt!

!~)

Jeg må ärligt indrömme at jeg ikke fatter meget af:
Dim VARa As Date
VARa = InputBox(Prompt:="Indtast dato", Title:="Find dato.", Default:="")
DoCmd.GoToControl "FollowUpDate"
DoCmd.FindRecord VARa, acEntire
Me.Filter = "FollowUpDate = #" & Me!FollowUpDate & "#"
Me.FilterOn = True

Hvor skal det tastes ind? Er der nogen som vil kigge på filen (mdb)?

Note: De (fleste) points jeg har ude er feks opgaver som er slutfört og betaling er sket men hvor der ikke er svaret så jeg kan lukke ;-)

Koden kan du indsætte i en kommandoknap. Prøv at sende db til:

mugs@mail.dk

Så ser jeg på det senere. Skriv evt. en forklaring på, hvad du vil opnå og hvilken formular det drejer sig om.

Jeg har sendt det til dig Mugs - Hvordan gör vi med pointen?

point ser vi på når problemet er løst.

Tak for point ;o)

Selv tak! :-) Har oprettet et nyt som jeg har problemer med hvis du har lyst :-)
http://www.eksperten.dk/spm/708253