Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

select problem
Autor: Matthias
Datum: 19.03.02 11:21
hallo, ich habe eine access tabelle und möchte diese nach bestimmten Kriterien durchsuchen und das ergebnis in einer liste ausgeben. nur leider kommt immer ein fehler (laufzeitfehler 3078). in der variable SEL_ALL muesste dann der select-string stehen. DANKE MATTHIAS HIER MEIN CODING: ----------------------- Private Sub cmdSuchen_Click() sel_1 = "select * from rekla where" sel_2 = "" sel_3 = " order by Datum_der_Anfrage" If Len(Me.txtdate) > 0 Then sel_2 = sel_2 & " format(Datum_der_Anfrage,""dd.mm.yyyy"") = " & Format(Me.txtdate.Text, "dd.mm.yyyy") End If If Len(Me.txtdate) > 0 Then If Len(Me.txtaufangnr) > 0 Then sel_2 = sel_2 & " and Auf_Ang_Nr = " & Me.txtaufangnr.Text End If Else If Len(Me.txtaufangnr) > 0 Then sel_2 = sel_2 & " Auf_Ang_Nr = " & Me.txtaufangnr.Text End If End If If Len(Me.txtdate) > 0 Or Len(Me.txtaufangnr) > 0 Then If Len(Me.txtkunde) > 0 Then sel_2 = sel_2 & " and Kunde = " & Me.txtkunde.Text End If Else If Len(Me.txtkunde) > 0 Then sel_2 = sel_2 & " Kunde = " & Me.txtkunde.Text End If End If If Len(Me.txtdate) > 0 Or Len(Me.txtaufangnr) > 0 Or Len(Me.txtkunde) > 0 Then If Len(Me.txtmaschnr) > 0 Then sel_2 = sel_2 & " and Masch_Nr = " & Me.txtmaschnr.Text End If Else If Len(Me.txtmaschnr) > 0 Then sel_2 = sel_2 & " Masch_Nr = " & Me.txtmaschnr.Text End If End If If Len(Me.txtdate) > 0 Or Len(Me.txtaufangnr) > 0 Or Len(Me.txtkunde) > 0 Or Len(Me.txtmaschnr) > 0 Then If Len(Me.txtbemerkung) > 0 Then sel_2 = sel_2 & " and Bemerkungen = " & Me.txtbemerkung.Text End If Else If Len(Me.txtbemerkung) > 0 Then sel_2 = sel_2 & " Bemerkungen = " & Me.txtbemerkung.Text End If End If sel_all = sel_1 & sel_2 & sel_3 'MsgBox sel_all Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & " ekla.mdb") Set rs = db.OpenRecordset("'" & sel_all & "'") List1.Clear Do While Not rs.EOF List1.AddItem rs.Fields("Datum_der_Anfrage") rs.MoveNext Loop End Sub -----------------------

select problem	43	Matthias	19.03.02 11:21
Re: select problem	193	Dieter	19.03.02 12:19

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