Avatar billede henrikden8 Nybegynder
17. oktober 2005 - 14:08 Der er 8 kommentarer og
3 løsninger

Filtrering – søgning i formular

Jeg har en formular: for_Opstillingsinstruktion_søgning  med et ubundet tekstfelt: Varesoeg  i formularhovedet.

I detaljesektionen er listet samtlige poster – som bl.a. består af et ID felt samt et tekstfelt: varenummer

Jeg ønsker at afgrænse posterne i detaljesektionen ved at indtaste i det ubundne tekstfelt: Varesoeg

Formularen er baseret på forespørgslen: fsp_varenummer_soegning

Jeg har prøvet flere måder; jeg kunne godt ønske mig noget i retning af

Private Sub Varesoeg_Exit(Cancel As Integer)
Me.RecordSource = "SELECT * FROM fsp_varenummer_soegning WHERE Varenummer = Me.Varesoegning "
End Sub

Der skal dog * på begge sider af det man indtaster i feltet
Avatar billede Slettet bruger
17. oktober 2005 - 14:51 #1
Du kan lave en ny formular med det ubundne tekstfelt, evt. en kombiboks, som indeholder alle varenumrerne. Så indsætter du din formular for_Opstillingsinstruktion_søgning som underformular og kæder de to sammen sammen ved hjælp af varenummer!~)
Avatar billede henrikden8 Nybegynder
17. oktober 2005 - 15:24 #2
Der hvor jeg opretter de enkelte poster, - finder jeg varenumrene v hj a en kombiboks der slår op i en forespørgsel; men her, hvor jeg søger efter de poster hvor varenumrene indgår - ønsker jeg, at kunne skrive en del af varenummeret f.eks. indtaster jeg 480 og får returneret de poster med f.eks. varenumrene xa480sr3, xb480sr4, y480s osv. - det jeg især er i tvivl om, er hvordan jeg skal benyttet tegnene & " * i forbindelse med sql strengen i vba koden.
Slutter den sådan her:
WHERE (((fsp_varenummer_soegning ) Like " * " & Me.Varesoegning  & " * ")); "
Avatar billede Slettet bruger
17. oktober 2005 - 15:27 #3
Avatar billede henrikden8 Nybegynder
17. oktober 2005 - 15:57 #4
Nu har jeg sat følgende ind:
Me.RecordSource = "SELECT * FROM fsp_varenummer_soegning WHERE Varenummer = Like ("*" & [Forms]![ for_Opstillingsinstruktion_søgning]![Me.Varesoegning] & "*")"

Jeg får følgende fejlmeddelse : Type Mismatch  (begge felter Varesoegning og Varenummer er tekstfelter)
Avatar billede kabbak Professor
17. oktober 2005 - 17:15 #5
Me.RecordSource = "SELECT * FROM fsp_varenummer_soegning WHERE Varenummer = Like *" & me.Varesoegning] & "*"
Avatar billede nhoff Nybegynder
17. oktober 2005 - 19:05 #6
Du skal have indsat ' før og efter det du søger efter, når der er tale om en tekststreng:

Me.RecordSource = "SELECT * FROM fsp_varenummer_soegning WHERE Varenummer = Like '*" & me.Varesoegning] & "*'"
Avatar billede henrikden8 Nybegynder
17. oktober 2005 - 19:46 #7
Så virker det - efter mange forskelige versioner!!!

Private Sub Varesoegning_AfterUpdate()
Me.RecordSource = "Select * from fsp_varenummer_soegning Where Varenummer Like '*" & [Forms]![for_Opstillingsinstruktion_søgning]![Varesoegning] & "*'"
End Sub

spg, kabbak og nhoff - I hjalp mig alle et skridt videre - 20 poink til hver af jer der sender et svar til mig - og så må jeg se om jeg kan finde ud af at lukke spørgsmålet i morgen
Avatar billede nhoff Nybegynder
17. oktober 2005 - 20:12 #8
Svar :-)
Avatar billede kabbak Professor
17. oktober 2005 - 20:43 #9
et svar
Avatar billede Slettet bruger
18. oktober 2005 - 07:12 #10
!~)
Avatar billede kabbak Professor
18. oktober 2005 - 08:02 #11
tak for point
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