Office: (Office 2010) Dcount Funktion mit variable

Hallo,
ich habe ein Problem mit meinem vba-code:
Ich möchte in einer Tabelle zählen in wie vielen "Beschriftungen" es in den "Türmen" (A1, A2, A3) gibt.

Dieser Code funktioniert einwandfrei:
MsgBox DCount("[Beschriftung]", "tblBoxnamen", "[Turm] = 'A1'")
MsgBox DCount("[Beschriftung]", "tblBoxnamen", "[Turm] = 'A2'")
MsgBox DCount("[Beschriftung]", "tblBoxnamen", "[Turm] = 'A3'")

Wenn ich allerdings mit Variablen arbeiten will, weil es noch einige Türme mehr gibt, dann zählt er immer 0. Ich habe nicht sehr viel Erfahrung mit Access..wäre super wenn ihr mir helfen könnt *Smilie

Der Code:

Dim a As Integer
Dim b As String
For a = 1 To 3
b = "A" & a
MsgBox DCount("[Beschriftung]", "tblBoxnamen", "[Turm] = 'b'")
Next a

Danke!

:)

 

Hallo!

Ein Tipp zur Fehlersuche:

Code:

Anm.: Der Fehler im Code ist ein oft gesehener Fehler. VBA füllt Texte in einem String, die einem Variablennamen gleichen, nicht mit dem Variableninhalt aus. Was einmal Text ist, bleibt Text. *wink.gif*

mfg
Josef

 

DANKE!!! So bin ich auf diese Lösung gekommen:

Dim a As Integer
Dim b As String
Dim FilterString As String

For a = 1 To 3
b = "A" & a
FilterString = "[Turm] ='" & b & "'"
MsgBox DCount("[Beschriftung]", "tblBoxnamen", FilterString)
Next a

mfg Michi