Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

eine Frage an Dieter
Autor: Michael
Datum: 18.09.01 12:06
Hallo Dieter, ich habe folgenden Code : Private Sub Data1_Reposition() Data1.RecordSource = String1 Data1_Validate 0, 0 End Sub Private Sub Data1_Validate(Action As Integer, Save As Integer) Data1.RecordSource = String1 If test = 1 Then Bemerkung.Clear End If If Data1.Recordset!Bemerkung > "" Then Bemerkung.AddItem Data1.Recordset!Bemerkung test = 1 End If If Data1.Recordset!Rückrufja = 1 Then ja1 = 1 nein1 = 0 If Data1.Recordset!Rückrufwann > "" Then wann1.Visible = True wann.Visible = True wann1.Text = Data1.Recordset!Rückrufwann End If End If If Data1.Recordset!Rückrufnein = 1 Then ja1 = 0 nein1 = 1 End If If Data1.Recordset!Werbematerialja = 1 Then ja3 = 1 nein3 = 0 End If If Data1.Recordset!Werbematerialnein = 1 Then ja3 = 0 nein3 = 1 End If If Data1.Recordset!Besuchja = 1 Then ja2 = 1 nein2 = 0 If Data1.Recordset!Besuchwann > "" Then wann2.Visible = True Label1.Visible = True wann2.Text = Data1.Recordset!Besuchwann End If End If If Data1.Recordset!Besuchnein = 1 Then ja2 = 0 nein2 = 1 End If If ja1 = 1 Then If wann1 = "" Then wann1.Visible = False wann.Visible = False End If End If If ja2 = 1 Then If wann2 = "" Then wann2.Visible = False Label1.Visible = False End If End If If nein1 = 1 Then wann1.Visible = False wann.Visible = False End If If nein2 = 1 Then wann2.Visible = False Label1.Visible = False End If End Sub Private Sub Form_Load() Frame1.Enabled = False Frame2.Enabled = False Frame6.Enabled = False Frame17.Enabled = False Frame14.Enabled = False Frame13.Enabled = False Bemerkung.Clear Data1.DatabaseName = (App.Path + "\" + "KundenDaten.mdb") If Suchen.wert1 = 1 Then Data1.RecordSource = "Select * from Stammdaten where (Rückrufja = 1)" String1 = Data1.RecordSource End If If Suchen.wert2 = 1 Then If Suchen.wert1 = 0 Then If Suchen.wert3 = 0 Then Data1.RecordSource = "Select * from Stammdaten where (Werbematerialja = 1)" String1 = Data1.RecordSource End If End If End If If Suchen.wert3 = 1 Then If Suchen.wert1 = 0 Then If Suchen.wert2 = 0 Then Data1.RecordSource = "Select * from Stammdaten where (Besuchja = 1)" String1 = Data1.RecordSource End If End If End If Data1.Refresh End Sub jedoch bricht er beim starten immer mit der Fehlermeldung : "Datentypen in Kriterienausdruck unverträglich " !!!! Was mache ich falsch ? Danke Gruß Michael

eine Frage an Dieter	33	Michael	18.09.01 12:06
Antwort an Markus	276	Dieter	18.09.01 12:37
Re: Antwort an Markus	16	Michael	18.09.01 14:54
Sorry	267	Dieter	18.09.01 14:58

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