Søgning/filtrering via formular

Hvis du indtaster noget i navnefeltet, vil posten blive ændret. Denne kode benytter en inputbox hvori du indtaster en værdi, som der så søges efter:

Dim a As String
a = InputBox(Prompt:="Indtast kundenr.", Title:="Find kunde.", Default:="")
DoCmd.GoToControl "kundenr"
DoCmd.FindRecord a, acEntire, False, , True, acCurrent, True

Få evt inspiration i "Filter og søgefunktionen", som jeg har liggende her: http://www.makeiteasy.dk/eksempler/Downloads.htm

Jamen hvordan laver jeg det så, skåret helt ud i pap

Lav en komandoknap på din formular og i dennes VedKlik hændelse kopierer du og indsætter min kode. Ret herefter tabel- og feltnavne tilk så de passer til din database.

Nu fatter jeg da slet ikke en klap.

Hvad er problemet?

Til dels at min lille hjerne er brændt sammen. ;-)

Nej, jeg har fået kommendokanppen til et virke nu, men hvad nu hvis jeg godt vil have de skal skrive navnet i en tekstboks, og søgeknappen så skal tage navnet derfra.

Sæt en tekstboks på din formular. Den kan f.eks hedde Tekst0:

Dim a As String
a = Me.Tekst0
DoCmd.GoToControl "kundenr"
DoCmd.FindRecord a, acEntire, False, , True, acCurrent, True

Fantatisk, det virker sgu. Hvis du lige gider forklare hvad koden gør.
Disse kan jeg dog godt selv regne mig frem til, med ret mig endelig, hvis det er forkert.

Dim a As String -> dimitionere variablen (a) som String
a = Me.Tekst0 -> variablen bliver sat lig indholdet af tekstfelt0 på denne form (me)
DoCmd.GoToControl "kundenr" -> udfør commandoen "gå til" feltet (kundenr) i tabellen
DoCmd.FindRecord a -> find record med indhold lig variablen.

Men så kender jeg ikke resten, kan jeg godt se det er noget med om den finde noget eller ej, men hvordan de lige fungerer ved jeg ikke. Kan du hjælpe med det?

Fuldstændig korrekt. Du må have problemer med denne linie:

DoCmd.FindRecord a, acEntire, False, , True, acCurrent, True

DoCmd.FindRecord a siger jo sig selv. Resten er de forskellige argumenter der følger til handlingen. Det nemmeste vil være, hvis du laver en makro og bruger handlingen SøgEfterPost. Når du har valgt denne handling, kan du nederst til venstre se de handlingsargumenter der følger handlingen.

Et fif til at komme videre er, at du laver en makro når du vil programmere. Afprøv makroen i din formular og når det fungerer kan du åbne db i databasevinduet og i menuen Funktioner > Makro > Konverter til VBA "oversætte" dine valg til VBA. Programmeringen indsættes nu i et modul og du kan kopiere relevante linier om indsætte dem  på det sted i din formular, hvor makroen var indsat.

Når dette fungerer kan du slette både makro og modul.

Jeg kan se, at hvis jeg siger Cancel til søgeknappen, eller ikke skriver noget, så får jeg en fejl, og mulighed for debugge. Hvordan kan det løses ?

Hvis du trykker cancel eller søger efter en tom streng får du fejl, da du jo netop har bedt Access om at søge, og nu vil du søge "efter ingenting". Det kan Access ikke klare.

Men når du får en fejl, må du jo også have et fejlnummer. Du kna derfor opfange denne fejl med en rutine der opfanger denne:

On Error GoTo Errorhandler
Her følger din kode
Errorhandler:
If Errornumber = 1234
Then Resume Next
End If

Jeg er ikke sikker på om Errornumber ikke skal erstatttes af Errno eller noget andet. Undersøger det lige.

Sådan:

If Err.Number = 1234 Then

Jeg får stadig en fejl (2142).

Jeg satte dette ind:

On Error GoTo Errorhandler
Errorhandler:
If Err.Number = 1234 Then
Resume Next
End If

Fejl 1234 var blot en prøve:
If Err.Number = 1234 Then
Erstat 1234 med 2142

hjælper ikke

Kan du sende db zippet til:

mugs@mail.dk

sendt

Modtaget, rettet og returneret.
Fejlen opstår hvis variablen a er Null. Jeg har tilføjet:

If a = "" Then
MsgBox "Der er ikke indtastet et søgekriterie."
Exit Sub
End If
og så en normal kode til søgning

Så virkede det. Tak for hjælpen

Selv tak