Suche im Kombinationsfeld wie Ajax?

24/10/2008 - 06:54 von Carsten Ulinski | Report spam
Hallo zusammen,

in meinem Veranstaltungsmanagement wird es mit zunehmender Planung
immer schwieriger nach einer Veranstaltung über ein Kombinationsfeld
zu suchen. Nun bin ich zufàllig auf eine Suche im Internet gestoßen,
bei der es genügt in einem Kombinationsfeld eine Buchstabenfolge
einzugeben. Nach dem 2. Buchstaben (Bsp.: ST) werden alle Eintràge mit
der Buchstabenfolge ST angezeigt (VeranSTaltungsname). Hat das jemand
schon in Access hingekriegt?

Viele Grüße
Carsten
 

Lesen sie die antworten

#1 Jürgen Volke
24/10/2008 - 08:04 | Warnen spam
Hallo Carsten

******************************************************
in meinem Veranstaltungsmanagement wird es mit zunehmender Planung
immer schwieriger nach einer Veranstaltung über ein Kombinationsfeld
zu suchen. Nun bin ich zufàllig auf eine Suche im Internet gestoßen,
bei der es genügt in einem Kombinationsfeld eine Buchstabenfolge
einzugeben. Nach dem 2. Buchstaben (Bsp.: ST) werden alle Eintràge mit
der Buchstabenfolge ST angezeigt (VeranSTaltungsname). Hat das jemand
schon in Access hingekriegt?
*******************************************************

klar:

Private Sub cboSucheName1_3_KeyUp(KeyCode As Integer, Shift As Integer)
Dim strSQL As String
If (KeyCode >= vbKeyA And KeyCode <= vbKeyZ) Or _
KeyCode = vbKeyDelete Or KeyCode = vbKeyBack Then
strSQL = "SELECT A.KundenId, Name1, " _
& "Name2, Name3, Straße, PLZ, Ort" _
& " FROM SVG_Kunden.dbo.VW_Adressen A INNER JOIN qryKundenStamm ON
A.KundenId = qryKundenStamm.ID" _
& " WHERE AdressArt=1 AND (Name1 LIKE '%" & Me.cboSucheName1_3.Text
& "%' OR Name2 LIKE '%" _
& Me.cboSucheName1_3.Text & "%' OR Name3 LIKE '%" &
Me.cboSucheName1_3.Text & "%');"
'Debug.Print strSQL
Me.cboSucheName1_3.RowSource = strSQL
Me.cboSucheName1_3.Dropdown
End If
End Sub

hier wird in den drei Feldern Name_1, Name_2, Name_3 die Buchstabenfolge
gesucht

HTH Jürgen

Ähnliche fragen