DCount mit Bedingung

[zorlayan]

Hi Leute,

egal was für einen Datentyp ich definiere bekomme jedes Mal die gleiche Fehlermeldung. "Datentypenkonflikt in Kriterienausdruck"
Was mache ich falsch?
Ich will im Textfeld "me.counter" den Anzahl von "KundenNr" in der Tabelle "Autos" nach "me.KundenNr" zeigen lassen.

Code

Code (vb) [Auswählen] Erweitern

Dim Kdnr As Integer
Kdnr = Me.KundenNr
Me.counter = DCount("KundenNr", "Autos", "[KundenNr] = '" & Kdnr & "'")

PS: KundenNr ist nicht Unikat, darf mehr Male vorkommen!

MfG,
Zorlayan

[MzKlMu]

Hallo,
wenn die KundenNr eine Zahl ist dann so:

Code [Auswählen] Erweitern

Me.counter = DCount("KundenNr", "Autos", "[KundenNr] = " &  Me.KundenNr)
Die anderen beiden Zeilen sind überflüssig. Die Hochkomma entfallen bei einer Zahl auch.

[zorlayan]

Vielen Dank!

Es funktioniert tadellos