Suche in Kombinationsfeld wie Ajax - die 2.

28/10/2008 - 14:00 von Carsten Ulinski | Report spam
Hallo zusammen,

sorry, dass ich einen neuen Thread eröffne, aber meine Antworten im
alten Thread werden in GoogleGroups nicht mehr angezeigt. Habe
erfolgreich den Code von Jürgen auf meine Bedürfnisse angepasst.

'Mit jedem Tastenanschlag von Buchstaben oder Zahlen, Backspace oder
Entf. wird im Kombifeld nach dem
'eingegebenen String gesucht und bei geöffneten Kombifeld angezeigt.

Private Sub Kombinationsfeld29_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 Veranstaltungen.Veranstaltungsnr,
Veranstaltungen.Veranstaltungsname, Veranstaltungen.Veranstaltungsort,
Veranstaltungen.Anfangsdatum" _
& " FROM Veranstaltungen" _
& " WHERE Veranstaltungen.Veranstaltungsname Like '*" &
Me.Kombinationsfeld29.Text & "*'"
Me.Kombinationsfeld29.RowSource = strSQL
Me.Kombinationsfeld29.Dropdown
End If
End Sub

Funktioniert, aber ich möchte nun erreichen, dass die Felder
Veranstaltungsname und Veranstaltungsort als ein Feld namens
Veranstaltungen in Kombifeld angezeigt werden. Wie baue ich das in das
strSQL ein?

Vielen Dank im Voraus
Carsten
 

Lesen sie die antworten

#1 Mark Doerbandt
28/10/2008 - 14:08 | Warnen spam
Hallo, Carsten,

Carsten Ulinski:

sorry, dass ich einen neuen Thread eröffne, aber meine Antworten im
alten Thread werden in GoogleGroups nicht mehr angezeigt.



nutze doch mal einen Newsreader...

http://www.donkarl.com/Newsgroup.htm

Private Sub Kombinationsfeld29_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 Veranstaltungen.Veranstaltungsnr,
Veranstaltungen.Veranstaltungsname, Veranstaltungen.Veranstaltungsort,
Veranstaltungen.Anfangsdatum" _
& " FROM Veranstaltungen" _
& " WHERE Veranstaltungen.Veranstaltungsname Like '*" &
Me.Kombinationsfeld29.Text & "*'"
Me.Kombinationsfeld29.RowSource = strSQL
Me.Kombinationsfeld29.Dropdown
End If
End Sub

Funktioniert, aber ich möchte nun erreichen, dass die Felder
Veranstaltungsname und Veranstaltungsort als ein Feld namens
Veranstaltungen in Kombifeld angezeigt werden. Wie baue ich das in das
strSQL ein?



strSQL = "SELECT Veranstaltungsnr, " & _
"Veranstaltungsname & ' ' & Veranstaltungsort AS Veranstaltungen, " & _
"Anfangsdatum FROM Veranstaltungen" & _
"WHERE Veranstaltungsname Like '*" & _
Me.Kombinationsfeld29.Text & "*'"

Gruss - Mark

Informationen fuer Neulinge in den Access-Newsgroups unter
http://www.doerbandt.de/Access/Newbie.htm

Bitte keine eMails auf Newsgroup-Beitràge senden.

Ähnliche fragen