Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Ui, da fehlt noch ein &
Autor: unbekannt
Datum: 11.02.02 18:33
ring Dim oX As Control Dim n As Integer Dim f As Long Dim AndOr As String AndOr = " AND " For Each oX in Form1.Controls If oX.Tag <> "" And oX.Text <> ""then SQL=SQL & oX.Tag & " = '" & oX.Text & "'%$%" n = n + 1 End If Next If n = 0 Then Exit Sub If n = 1 Then SQL = Left(SQL, Len(SQL)-3) Else SQL = Trim(Replace(SQL,"%&%", AndOr)) f = InstrRev(SQL," ") SQL=Left(SQL,f-1) End If

SQLString zusammensetzen	58	Levis	11.02.02 17:11
Re: SQLString zusammensetzen	332	unbekannt	11.02.02 17:45
Danke	62	Levis	11.02.02 18:22
Ui, da fehlt noch ein &	236	unbekannt	11.02.02 18:33
Danke, hatte ich trotzdem geschafft	30	Levis	11.02.02 19:43

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen