Fehler:464 'Datentypen in Kriter.unverträglich'

Computer: Software & Programmierung Microsoft Access
#1

Hallöchen nochmal,

kann mir mal bitte jemand helfen…

Bekomme Fehlermeldung: „Datentypen in Kriterienausdruck unverträglich“

Das Ganze soll Datensätze im Bericht öffnen und drucken.
(StartP = Startposition des Druckens
EndP = Endposition des Druckens)

Code: (Debugger bei >>!)

Private Sub Drucken_Click()
Dim Itm, Krit, Ans
Gbl_Anz = Me!Anz
Gbl_StartP = Me!StartP
Gbl_EndP = Me!EndP
Krit = „“
For Each Itm In Me!Datensatzauswahl.ItemsSelected
Krit = Krit & „,“ & Me!Datensatzauswahl.ItemData(Itm)
Next Itm
If Krit „“ Then
If Me![Vorschau] Then
Ans = acViewNormal
Else
Ans = acViewPreview
End If
Krit = „Nr IN (“ & Mid(Krit, 2) & „)“
>>>DoCmd.OpenReport „rptEtiketten“, Ans, , Krit

#2

Hallöchen nochmal,

Haile Sarotti :wink:

Krit = „Nr IN (“ & Mid(Krit, 2) & „)“

Des Pfeffers Hund hat genau hier die Flinte in die andere Krähe geschmissen, oder so. Mid(Krit,2) liefert eine Zahl. Diese Zahl versuchst Du (bzw. derjenige, der den gar grauenvollen Code verbrach) in einen String einzubauen, was den Debugger Schluckprobleme bekommen lässt.

Versuch es mit Krit=„Nr IN (“&STR$(Mid(Krit,2))&")"

Das sollte eigentlich einer gar heftigen Klappung teilhaftig werden können.

Gruß kw

#3

Seit wann liefert Mid eine Zahl? … ist mir neu …

Gruß aus dem Norden
Reinhard Kraasch
(http://www.kraasch.de - Access Tipps & Tricks)

#4

Vermutlich ist dein Feld „Nr“ gar keine Nummer bzw. Zahl… (Obwohl du es dann nicht so nennen solltest!)

Dann muss es heissen:

Krit = Krit & ",'" & Me!Datensatzauswahl.ItemData(Itm) & "'"

Der Rest ist schon OK so!

Gruß aus dem Norden
Reinhard Kraasch
(http://www.kraasch.de - Access Tipps & Tricks)

#5

Seit wann liefert Mid eine Zahl? … ist mir neu …

Mir jetzt beim erneuten Lesen irgendwie auch. Schäm … was habe ich da wohl rein halluziniert? *kopfkratz* *kalkriesel*