11. januar 2004 - 12:29Der er
8 kommentarer og 1 løsning
Find post i formular
Hej, Er der en der kan hjælpe mig med lidt kode til en knap på en formular der kan "spole" mig frem til en bestemt post ? Jeg har en formular til indtastning af kunder - frmKunder. Lige for øjeblikket er der kun indtastet 10 stk, så det er overskueligt at finde kundeID 9 frem. MEN når der er 3-400 forskellige poster vil det være besværligt at bruge postvælgeren eller scrolle sig frem. Jeg vil gerne have en lille box hvor jeg kan indtaste "KundeNummer" og så findes posten frem. På forhånd tak
I dette særtema om aspekter af AI ser vi på skiftet fra sprogmodeller til AI-agenter, og hvordan virksomheder kan navigere i spændet mellem teknologisk hastighed og behovet for menneskelig kontrol.
Lav en tekstboks som du kalder "FindKundenummer". På tekstboksens "Efter Opdatering"-hændelse skriver du denne kode (i VBA): Me.Filter = "Kundenummer = " & Me!FindKundeNummer Me.Filteron = True
Indsæt en ubundet tekstbox i formularen. Herefter sætter du kriterier på det eller de felter i forespørgslen du vil gøre det muligt at søge på. Kriteriet er LIKE "*" & forms!DinFormular!tekstfeltet & "*"
Dim a As Long a = InputBox(Prompt:="Indtast kundenr.", Title:="Find kunde.", Default:="") DoCmd.GoToControl "kundenr" DoCmd.FindRecord a, acEntire, False, , True, acCurrent, True
Så vidt jeg kan se, er der et par ulemper ved de 2 øvrige forslag. Bruges filterløsningen skal der være en funktion, der kobler filteret fra igen. Bruges forslaget med en forespørgsel, skal der være en yderligere en formular med forespørgsel.
Du har ret i, at mit forslag kræver at man slår filteret fra igen. Men det er der allerede en knap til på værktøjslinien (tilføj/fjern flter)
Fordelen ved min Filter-funktion er at den kan udbygges til at fungere på flere felter, ligesom man kun bruge Like i stedet for "=" og dermed få flere resultater end blot én post.
Hej - Lidt frustrerende....eller ? >>Thomasjepsen - din løsning giver mig en feler - "Du har annuleret den forrige handling. >>Clausgold - din løsning "spoler" frem til næste post. >>mugs - din løsning med en msgbox hvor man kan indtaste et kundenummer er faktisk den løsning jeg gerne vil bruge, men lige nu "gør den ingenting"
I kundetabellen har jeg et autonummerfelt som bruges mange steder i DB´en til ID. Jeg har også et felt der indeholder kundenummer, eks. 000160. Det er kundenummeret jeg gerne vil bruge for at finde posten frem i formularen.
Yepper og det burde jeg have nævnt - og set....Dim as Long er rettet til Dim as String, og så kører den - Perfekt ! Tak for hjælpen - alle 3.
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.
