Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Hmm,, poste mal diese Filterfunktion von Dir (oT)
Autor: Michael
Datum: 20.08.02 13:29
Private Sub Form_Load() Dim strPfad$, SqlString$, strUser$ Dim r As DAO.Recordset On Error GoTo Fehler ' Benutzer zuweisen strUser = "Bothner, W." ' Pfad der Excel-Tabelle zusammensetzen. Tabelle ist im Anwendungsverzeichnis strPfad = App.Path & "\" & XLS_Path ' Datenbank mit allen Daten öffnen Set db = DBEngine.OpenDatabase(strPfad, False, False, "Excel 8.0;") Set rs = db.OpenRecordset("Arbeit$", dbOpenDynaset) SqlString = "Name= '" & strUser & "'" rs.Sort = "Name" rs.Filter = SqlString <= hier steigt er aus!!!!! Set r = rs.OpenRecordset(dbOpenDynaset) End Sub

Excel als ISAM	38	Michael	20.08.02 08:42
Re: Excel als ISAM	265	unbekannt	20.08.02 12:55
Re: Excel als ISAM	25	Michael	20.08.02 13:08
Hmm,, poste mal diese Filterfunktion von Dir (oT)	287	unbekannt	20.08.02 13:14
Re: Hmm,, poste mal diese Filterfunktion von Dir (oT)	29	Michael	20.08.02 13:29
Re: Hmm,, poste mal diese Filterfunktion von Dir (oT)	275	unbekannt	20.08.02 13:49
Re: Hmm,, poste mal diese Filterfunktion von Dir (oT)	14	Michael	20.08.02 15:20
Re: Hmm,, poste mal diese Filterfunktion von Dir (oT)	15	Michael	20.08.02 20:04
Re: Hmm,, poste mal diese Filterfunktion von Dir (oT)	292	unbekannt	20.08.02 20:30
Re: Hmm,, poste mal diese Filterfunktion von Dir (oT)	19	Michael	22.08.02 09:17

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