20. april 2003 - 21:10Der er
18 kommentarer og 1 løsning
Fritekstsøgefelt i formular
Jeg har en formular med en underformular der bygger på en forespørgsel med felterne "ID", "Fornavn", "Efternavn" og "By". På hovedformularen er der til/fra-knapper for hele alfabetet som sender en værdi til et tekstfelt. Tekstfeltet bruges som kriterie i feltet "efternavn" i forespørgslen. Nu vil jeg gerne supplere formularen med et fritekstsøgefelt som kan søge i alle felter og poster. Hvordan skal den gribes an?
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Altså: Private Sub Kommandoknap1_Click() dim s as string s = "Select ....." & _ "From ....."& _ "Where [fornavn] & " " & [efternavn] & " " & [by] LIKE *" & me.Ditfelt & "*" Me.DinUForm.Form.RecordSource = s Me.DinUForm.Requery End Sub
Jeg har allerede en Sql-sætning der ser således ud: SELECT Navne1.ID, Navne1.Fornavn, Navne1.Efternavn, Navne1.By FROM Navne1 WHERE (((Navne1.Efternavn) Like [forms]![formular2]![txtfilter])) ORDER BY Navne1.Efternavn; der bruges til alfabet-knapperne, hvordan kombineres de to sætninger?
Alfabetknapper er til/fra-knapper i en gruppeboks. Når en knap trykkes ind sendes bogstavet og et *-tegn (f.eks. G*) til den skjulte tekstboks "txtfilter" som så er kriteriet i forespørgelsen. Formularen skal nu udvides med feltet "søgefelt", et fritekstsøgefelt som kan søge i alle felter og poster.
Private Sub Kommandoknap1_Click() Dim S As String S = "Select * From Navne1 " & _ "Where [fornavn] & ' ' & [efternavn] & ' ' & [by] LIKE '*" & Me.Søgefelt & "*'" 'Debug.Print s Me.Navne.Form.RecordSource = S Me.Navne.Requery End Sub
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.
