Avatar billede hammet Nybegynder
24. april 2002 - 08:36 Der er 10 kommentarer og
1 løsning

søge funktion

jeg prøver at lave en søge funktion så jeg kan søge i tabelerne som jeg har oprette, men jeg ved ikke hvordan...
ps. jeg er low level bruger i access!!!
24. april 2002 - 08:38 #1
kan du forklare lidt nærmere?

Hvordan skal søgefunktionen adskille sig fra den indbyggede søgefunktion (Kikkerten)?

Jeg går ud fra at du arbejder med formularer!?
Avatar billede hammet Nybegynder
24. april 2002 - 08:52 #2
ja, det gør jeg...  men problemet er at den indbyggede er standart med (søg i feltet) og den skal søge på helle formularen!!! derfor er det jo måske nemest med at lave en søge funktion selv?!? eller hvad*?
24. april 2002 - 08:54 #3
Hvis du vælger kikkerten kan du jo angive om den skal søge i hele tabellen eller blot det aktive felt.
Avatar billede hammet Nybegynder
24. april 2002 - 08:56 #4
ja... men den skal værer på standart på helle feltet!!!
24. april 2002 - 09:02 #5
okay...men du kan sagtens lave din egen søge-funktion. Der er bare mange måder at gøre det på.

Du kan f.eks. lave et søgefelt i toppen af formularen, hvor brugeren kan indtaste sit kriterie. kald f.eks. feltet for txtSøg. På dette felts EfterOpdatering-hændelse skriver du f.eks.:
Me.Recordset.FindFirst "[Felt i tabel] = '" & Me!txtSøg & "'"
Avatar billede hammet Nybegynder
24. april 2002 - 09:11 #6
ps.... meget low level bruger : )

jeg ser sort :-!
24. april 2002 - 09:17 #7
Sorry ;o)

På din formular laver du som sagt en tekstboks. I Egenskaberne for tekstboksen angiver du "Navn" til at være: txtSøg

Efterfølgende finder du den egenskab (stadig på tekstboksen) som hedder "EfterOpdatering" (den står blandt Hændelser). Når du stiller markøren i feltet får du en knap med 3 prikker i højre side. Klik på den og vælg "Kode generator".

Herefter kommer du ind i VBA editoren. Det er her, alt det sjove sker ;o)

Der vil bla. stå:

Private Sub txtSøg_AfterUpdater()
 
End sub

Mellem disse 2 linier sætter du sætningen ind, så der står:

Private Sub txtSøg_AfterUpdater()
  Me.Recordset.FindFirst "[Felt i tabel] = '" & Me!txtSøg & "'"
End sub

[Felt i tabel] skal du erstatte med navnet på det felt, som du ønsker at søge på.

Giver det mening?
Avatar billede jkrons Professor
24. april 2002 - 09:27 #8
Vælg Funktioner - Indstillinger -Fanebladet Rediger/Søg. Marker "Fuld Søgning". Så vil kikkerten som standard søge på alle felter i formularen og på alle dele af feltet.
Avatar billede hammet Nybegynder
24. april 2002 - 09:31 #9
Jkrons tak for hjælpen det virkede : )
Thomas jepsen tak for hjælpen men det er Jkrons der havde det rigtig svar!!
Avatar billede jkrons Professor
24. april 2002 - 09:34 #10
Thoms svar var nu også rigtigt - bortset fra at det kun søgte på et felt ad gangen.

Tak for point.
24. april 2002 - 09:37 #11
jkrons-> ja, det var så næste skridt, at man kan udvide den til flere søgefelter. Jeg synes at det er mere brugervenligt med søgefelterne på formularen - men det er jo en smagssag :o)

Jeg havde faktisk selv glemt den indstilling, du nævnte. Netop fordi jeg aldrig bruger den indbyggede søgefunktion selv.
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

IT-JOB