Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Neues Problem mit Kriterium
Autor: Misterlm
Datum: 20.09.04 10:38
Hallo ich schon wieder, nachdem ich das alte Problem mit Hilfe dieses Forums lösen konnte ergibt sich ein neues Problem. BEi folgender Procedur kommt die MEldung Laufzeitfehler 13 "Typen unverträglich" Private Sub btn3_Click() Dim Bedingung1 As String Dim Bedingung2 As String Dim Bedingung3 As String Dim txtDatum As String Dim locdate As Date Dim dbDatenbank As Database Dim dtnamenstab As Recordset Bedingung1 = [Mitgliedsnummer:] Set dbDatenbank = CurrentDb Set dtnamenstab = dbDatenbank.openrecordset("Anwesenheit", DB_OPEN_DYNASET) Bedingung2 = [Monat] Bedingung3 = [Jahr] dtnamenstab.FindFirst "[Mitgliedsnummer:] = " & Bedingung1 And "[Monat] = " & Bedingung2 And "[Jahr] = " & Bedingung3 If dtnamenstab.NoMatch = False Then dtnamenstab.Edit dtnamenstab![bt5] = 1 Else dtnamenstab.AddNew dtnamenstab![bt3] = 1 End If dtnamenstab.Update End Sub Lasse cih die Procedur nur mit einer Bedingung laufen also dtnamenstab.FindFirst "[Mitgliedsnummer:] = " & Bedingung1 funktioniert sie. In der aus zu wertenden Tabelle sind alle felder im gleichen Format definiert. Wie könnt Ihr mir weiter helfen?

Neues Problem mit Kriterium	858	Misterlm	20.09.04 10:38
Re: Neues Problem mit Kriterium	490	wincnc	20.09.04 10:49
Re: Neues Problem mit Kriterium	502	Misterlm	20.09.04 10:57

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