Laufzeit Fehler 3464

[Kiwi_31]

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 ? 

[DF6GL]

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

[Kiwi_31]

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

[DF6GL]

Hallo,

??


Msgbox rstMIP_eKV![DeinGewünschtesFeld]

[Kiwi_31]

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 !

[Kiwi_31]

Hat sich erledigt, habe es herausgefunden

Danke !

[DF6GL]

Hallo,

If rstMIP_eKV.Recordcount >0 Then
Msgbox " VORGNR   schon vorhanden"
End If

[MzKlMu]

Hallo,

Hat sich erledigt, habe es herausgefunden

Bist Du sicher, dass Du es herausgefunden hast?

http://www.office-loesung.de/ftopic536634_0_0_asc.php