VBA Filter Access Fehler

Computer: Software & Programmierung Microsoft Access
#1

Hallo ihr Lieben,

Lustiges Fehlersuchen, wer macht mit ?! :wink:

Folgende Frage: Ich habe ein Formular (Tab: Filiale), da kommen alle Infos zu den Filialen, im nächsten möchte ich nun die GEZ Rundfunkgeräte zu EINER filiale gefiltert aufrufen. Also, bin auf Berlin, dann klick ich auf meinen GEZ Button und dann sollte das GEZ Formular gefiltert für Berlin aufrufen. Filter wär hier die Kostenstelle, weil eindeutig.

Dim Filter
Filter = Me.Kostenstelle
DoCmd.OpenForm „GEZ“, , , „[Kostenstelle] = & Filter &“

wo ist der fehler?
habe auch folgendes versucht

Dim Filter
Filter = Me.Kostenstelle
DoCmd.OpenForm „GEZ“, , , „[Kostenstelle] = ‚& Filter &‘“

GLG und vielen Dank
Cristina

#2

Hallo du Liebe,

die Frage ist zunächst, welchen Datentyp „Kostenstelle“ in der Tabelle hat.

Wenn „Text“:

Dim strFilter As String ' reservierte Wörter vermeiden, definierten Datentyp deklarieren.
strFilter = nz(Me!Kostenstelle,"") ' falls in Me!Kostenstelle nichts enthalten ist. Ausrufezeichen vor selbsterstellten Objekten bei Kurz-Schreibweise benutzen.
DoCmd.OpenForm "GEZ", , , "[Kostenstelle] ='" & strFilter & "'"

oder einfach:

DoCmd.OpenForm "GEZ", , , "[Kostenstelle] ='" & nz(Me!Kostenstelle,"") & "'"

bei Zahl (Long):

Dim lngFilter As Long 
lngFilter = nz(Me!Kostenstelle,0) DoCmd.OpenForm "GEZ", , , "[Kostenstelle] =" & strFilter

oder einfach:

DoCmd.OpenForm "GEZ", , , "[Kostenstelle] =" & nz(Me!Kostenstelle,0)

Viele Grüße vom Bodensee
Franz , DF6GL

PS: Feedback erwünscht!

#3

JA da schau her … mei, so leicht würds gehn :wink:

Danke!!!