Hallo Zusammen,
ich möchte gern auf Formularen und Berichten den "Feuerwehrname" aus der "tblUser" in Abhängigkeit des Feldes "OK" aus der "tblUser" und des Feldes "OKGlobal" auf dem "Forms.UG_frm_Formauswahl_Allg" über eine "Public Function" zur verfügung stellen.
Dazu hatte ich bereits eine "Public Function":
Public Function FWName()
FWName = DLookup("[Feuerwehrname]", "tblUser")
End FunctionDas funktioniert aber nur wenn in der "tblUser" nur ein DS vorhanden ist.
Da es nun aber verschiedene "[Feuerwehrname]", DS in der "tblUser" gibt würde ich das wie gesagt in Abhängigkeit bringen wollen:
Versucht habe ich es so:
Public Function FWNameNeu()
FWNameNeu = IIf(Forms.UG_frm_Formauswahl_Allg.OKGlobal = tblUser.OK, DLookup("[Feuerwehrname]", "tblUser"), "FEUERWEHR")
End Function
Es kommt die Fehlermeldung: Variable nicht definiert.
Da waren sie wieder meine Probleme.
Könnte mir jemand Hilfestellung geben?
Gruss
mad
FWName = DLookup("[Feuerwehrname]", "tblUser", "OK = " & Forms.UG_frm_Formauswahl_Allg.OKGlobal)Würde ich vermuten. Ob der Formularbezug der richtige ist musst du
allerdings überprüfen, da man nicht sieht wo dein Code abläuft.
Hallo,
Danke schonmal für die Unterstützung. Leider funktioniert es noch nicht.
Es wird der LZF2471 angezeigt. Habe mal etwas nachgelesen und vermute es liegt an Hochkommas, weis aber nicht wo ich da ansetzen muß.
Zur Ansicht habe ich mal eine sehr stark reduziert DB mit angefügt.
Im "gelben" Kombifeld kann man eine Vorauswahl treffen die im Normalfall über den Login gesetzt würden.
Mit dem "grünen" Button kann man zum testen das Kassenbuch öffnen. Dabei sollte im Formular "Kassenbuch" oben je nach Auswahl im "gelben" Feld:
"xx" müsste als =FWName() "FF Test xx" angezeigt werden,
bzw.
"SB" müsste als =FWName() "FF Test SB" angezeigt werden.
Würde nochmals um Unterstützung bitten.
Gruß
mad
Hallo,
habe nochmals in der Nacht im Web gesucht und ein Beispiel gefunden das mir das Problem mit den Hochkommas aufgelöst hat.
FWName = DLookup("[Feuerwehrname]", "tblUser", "OK = '" & Forms.UG_frm_Formauswahl_Allg.OKGlobal & "'")
Danke nochmals.
mad
Bei einem Feld, das "OK" heisst war ich zunächst von einem Typ "Boolean"
ausgegangen.