vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Fehler beim Ausführen 
Autor: kyle
Datum: 29.05.04 08:53

Hallo!

Ich bekomme beim Ausführen des Programmes einen Fehler. Ich erkenne leider nicht woran es liegt. Kann mir jemand helfen?

Hier ist der Code:

Dim db As Database
            Dim Tabelle As Recordset
            Dim SQL As String
 
            SQL = "SELECT * FROM tbl_wbuch"
            Set db = OpenDatabase(frmLogin.DbPathAndName, False, False, ";pwd=" _
              & sPasswort)
            Set Tabelle = db.OpenRecordset(SQL)
 
            Tabelle.MoveFirst
 
            With Tabelle
                .Edit
                !Von = Trim(txtBeVon.Text)
                !Bis = Trim(txtBeBis.Text)
                .Update
            End With
 
            Tabelle.Close
            db.Close
 
            'Ist ein Datensatz verfügbar?
            SQL = "SELECT * FROM tbl_wbuch WHERE Status = " & Chr$(34) & _
              "offen" & Chr$(34) & " AND Zugangdatum BETWEEN " & Chr$(34) & _
              txtBeVon.Text & Chr$(34) & " AND " & Chr$(34) & txtBeBis.Text & _
              Chr$(34)
            Set db = OpenDatabase(frmLogin.DbPathAndName, False, False, ";pwd=" _
            & sPasswort)
            Set Tabelle = db.OpenRecordset(SQL)
 
            If Tabelle.RecordCount = 0 Then
                MsgBox "Es sind keine Daten für einen Druck vorhanden.", _
                  vbOKOnly + vbCritical, "Druck"
            Else
                If (chBeVorschau) Then 'Ja dann Druck
                    BerichtOffenVonBis.Show (vbModal)
                Else
                    BerichtOffenVonBis.PrintReport
                End If
            End If
 
            Set Tabelle = Nothing
            Set db = Nothing
Und Zwar kommt der Fehler Laufzeitfehler 3464 - Datentypen in Kriterienausdruck unverträglich und zwar an dieser Stelle:

SQL = "SELECT * FROM tbl_wbuch WHERE Status = " & Chr$(34) & "offen" & Chr$(34) _
  & " AND Zugangdatum BETWEEN " & Chr$(34) & txtBeVon.Text & Chr$(34) & " AND " _
  & Chr$(34) & txtBeBis.Text & Chr$(34)
Set db = OpenDatabase(frmLogin.DbPathAndName, False, False, ";pwd=" & sPasswort)
Set Tabelle = db.OpenRecordset(SQL) <===== Fehler
Danke für Eure Hilfe.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Fehler beim Ausführen539kyle29.05.04 08:53
Re: Fehler beim Ausführen277Zero-G.29.05.04 10:59
Re: Fehler beim Ausführen255kyle29.05.04 16:33
Re: Fehler beim Ausführen246kyle30.05.04 15:10
Re: Fehler beim Ausführen298T.i.m.30.05.04 15:36
Re: Fehler beim Ausführen283SailSteam30.05.04 20:18

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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel