Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Ich geb´s gleich auf...
Autor: WebMassa
Datum: 30.09.01 19:44
Hi Lordchen, Es funzt immer noch nich. Hier noch mal der Code: Private DB As Database Private Rs As Recordset Private Const WMAP As String = "CDs" Private Const WSHEET As String = "Tabelle1" Private Sub ClearAll() Dim Target As Control Dim f As Integer For Each Target In Form1.Controls f = InStr(Target.Name, "txt") If f > 0 Then Target.Text = "" Next End Sub Private Sub Form_Activate() Ladealles End Sub Private Sub dftxtcdname_Click() Dim nr As Long nr = dftxtCDName.ListIndex dftxtCDNr.ListIndex = nr dftxtKategorie.ListIndex = nr End Sub Private Sub dftxtCDnr_Click() Dim nr As Long nr = dftxtCDNr.ListIndex dftxtCDName.ListIndex = nr dftxtKategorie.ListIndex = nr End Sub Private Sub dftxtKategorie_Click() Dim nr As Long nr = dftxtKategorie.ListIndex dftxtCDName.ListIndex = nr dftxtCDNr.ListIndex = nr End Sub Private Sub cmdSearchStart_Click() Dim SQL As String, a As String Dim lkBool As Boolean Dim nrs As Recordset Dim i As Long Dim janein As Variant If txtSearch.Text = "" Then MsgBox "Sie haben keinen Suchbegriff eingegeben.", vbInformation, "Suche Stopp" txtSearch.SetFocus Exit Sub End If 'Wurde eine Zahl angegeben,wird nach CD NR gesucht. 'Wurde Text eingegeben, so wird nach CD Name gesucht. If IsNumeric(txtSearch.Text) Then SQL = "[CD Nr] = " & txtSearch.Text Else lkBool = False If InStr(txtSearch.Text, "*") <> 0 Then lkBool = True If InStr(txtSearch.Text, "?") <> 0 Then lkBool = True If lkBool Then a = " Like " Else a = " = " End If SQL = "[CD Name]" + a + "'" + txtSearch.Text + "'" End If 'Excel-Arbeitsmappe als ISAM-Datenquelle öffnen Set DB = DBEngine.OpenDatabase(WMAP, False, False, "Excel 8.0;") 'Exceltabellen enthalten immer ein $-Zeichen ExlTab = WSHEET + "$" Set Rs = DB.OpenRecordset(ExlTab, dbOpenDynaset) If Not Rs.EOF Then Rs.Filter = SQL Set nrs = Rs.OpenRecordset(dbOpenDynaset) If Not nrs.EOF Then With nrs .MoveLast .MoveFirst janein = MsgBox("Es wurden " + Trim(Str(.RecordCount)) + _ "Datensätze gefunden. Sollen die Datensätze geladen werden?", _ vbQuestion + vbYesNo, "Suchergebnis:") If janein = vbNo Then DB.Close Exit Sub End If dftxtCDNr.Clear dftxtCDName.Clear dftxtKategorie.Clear ClearAll For i = 0 To .RecordCount - 1 dftxtCDNr.AddItem nrs.Fields(0).Value dftxtCDName.AddItem nrs.Fields(1).Value dftxtKategorie.AddItem nrs.Fields(2).Value Next End With End If End If End Sub Private Sub Ladealles() Dim ExlTab As String Dim DS As Long, i As Long 'Excel-Arbeitsmappe als ISAM-Datenquelle öffnen Set DB = DBEngine.OpenDatabase(WMAP, False, False, "Excel 8.0;") 'Exceltabellen enthalten immer ein $-Zeichen ExlTab = WSHEET + "$" Set Rs = DB.OpenRecordset(ExlTab, dbOpenDynaset) 'Inhalt der Tabelle in die ComboBoxen laden: If Not Rs.EOF Then Rs.MoveLast DS = Rs.RecordCount Rs.MoveFirst End If For i = 0 To DS - 1 dftxtCDNr.AddItem Rs.Fields(0) dftxtKategorie.AddItem Rs.Fields(1) dftxtCDName.AddItem Rs.Fields(2) Rs.MoveNext Next End Sub Die Fehlermeldung bleibt die selbe!! CU Chris

Ich geb´s gleich auf...	79	WebMassa	30.09.01 19:44
Re: Ich geb´s gleich auf...	246	unbekannt	30.09.01 19:48
AHA!!!	36	WebMassa	30.09.01 20:02
Tja, dann steckt doch mehr dahinter:	319	unbekannt	30.09.01 21:07
E-Mail ist unterwegs!! (oT)	34	WebMassa	01.10.01 15:02
Und angekommen, ich guck mal (oT)	249	unbekannt	01.10.01 19:47
Eins fehlt noch:	247	unbekannt	01.10.01 20:15
Kommando zurück War doch dabei! (oT)	242	unbekannt	01.10.01 20:20
Done, ...	438	unbekannt	01.10.01 20:37
Tausend und einen Dank...	29	WebMassa	01.10.01 20:50
Nö, schon dabei ... (oT)	255	unbekannt	01.10.01 20:59
Re: Nö, schon dabei ... (oT)	28	WebMassa	02.10.01 12:04
Nein, aber in der Birne schon damit beschäftigt. OT	246	unbekannt	02.10.01 19:12
Webbi sagt "DANKE" und wartet gedulldig..(oT)	33	WebMassa	02.10.01 22:13

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