Guten Morgen,
Beim Schreiben eines Programm, bin ich auf folgende Fehlermeldung gestoßen:
Zitat:
Laufzeitfehler 3464 - Kriterienausdruck unverträglich
Mein Code ist wiefolgt:
Code:
'Deklaration
Dim db As DAO.Database
Dim BelegNummer As Double
Dim rstMIP_eKV As DAO.Recordset
'Belegnummer eingeben
BelegNummer = InputBox("Geben Sie bitte eine Belegnummer ein")
'Auf Sonder/Leerzeichen oder Text prüfen
If IsNumeric(BelegNummer) Then
Else: MsgBox ("Entweder Sonderzeichen, Leerzeichen oder Text in der Belegnummer")
End If
'DAO
Set db = CurrentDb()
Set rstMIP_eKV = db.OpenRecordset("select * from T_HM1KOP where T_HM1KOP.VORGNR = 'BelegNummer'", dbOpenDynaset)
End Sub
Könnte mir vielleicht jemand Helfen ? :)
Hallo,
klar doch...
Warum ist die Variable "Belegnummer" vom Datentyp DOUBLE?
Die Eingabe und Überprüfung eines Wertes mittels der Inputbox ist tricky und fehlerträchtig.
Wenn schon Prüfung der Belegnummer, dann im "Fehlerfall" auch eine Konsequenz vorsehen.
Die Where-Condition im SQL-String ist falsch aufgebaut und muss so lauten:
Dim Belegnummer as String ' TEXT , nicht DOUBLE !
Set rstMIP_eKV = db.OpenRecordset("select * from T_HM1KOP where T_HM1KOP.VORGNR = '" & BelegNummer & "'", dbOpenDynaset)
Voraussetzung: "T_HM1KOP.VORGNR" ist in der Tabelle (auch) vom Datentyp TEXT
Hallo,
Die Variable Belegnummer ist von Datentyp String, habe für Testzwecken mal kurze geändert.
Wie kann ich jetzt noch verursachen das nach der DAO abfrage eine MsgBox ausgeben wird ??
Grüße
Kiwi_31
Hallo,
??
Msgbox rstMIP_eKV![DeinGewünschtesFeld]
Ich weiß wie man eine Msgbox ausgibt, das Problem ist das ich will das sobald Belegnummer = Vorgnr ist eine MsgBox erscheint "Belegnummer vorhanden" aber wenn das nicht der fall soll diese Msgbox nicht auftauchen !
Hat sich erledigt, habe es herausgefunden :D
Danke !
Hallo,
If rstMIP_eKV.Recordcount >0 Then
Msgbox " VORGNR schon vorhanden"
End If
Hallo,
ZitatHat sich erledigt, habe es herausgefunden
Bist Du sicher, dass
Du es herausgefunden hast?
http://www.office-loesung.de/ftopic536634_0_0_asc.php (http://www.office-loesung.de/ftopic536634_0_0_asc.php)