Feld sichtbar wenn

Moderator: ModerationP

Feld sichtbar wenn

Beitragvon Umpf1984 » 18. Sep 2021, 13:10

Hallo zusammen

ich habe ein Formular mit ein Kombifeld Name = Sparte, Auswahl Möglichkeit = Mittag, Pauschale, Reinigung, Kaffee, Bewirtung

Im Formular möchte ich nun, die dazugehörige Felder nur angezeigt bekommen, wenn ich die richtige Sparte auswähle.

Für Mittag, Bewirtung habe ich es ohne Probleme hinbekommen

Private Sub Form_Current()

Me.Bezeichnungsfeld53.Visible = Me.Sparte = "Bewirtung"
Me.Betrag_Bewirtung_7.Visible = Me.Sparte = "Bewirtung"
Me.Bezeichnungsfeld55.Visible = Me.Sparte = "Bewirtung"
Me.Betrag_Bewirtung_19.Visible = Me.Sparte = "Bewirtung"
Me.Bezeichnungsfeld58.Visible = Me.Sparte = "Mittag"
Me.Anzahl_Mittagessen.Visible = Me.Sparte = "mittag"

End Sub

Private Sub Sparte_AfterUpdate()

Me.Bezeichnungsfeld53.Visible = Me.Sparte = "Bewirtung"
Me.Betrag_Bewirtung_7.Visible = Me.Sparte = "Bewirtung"
Me.Bezeichnungsfeld55.Visible = Me.Sparte = "Bewirtung"
Me.Betrag_Bewirtung_19.Visible = Me.Sparte = "Bewirtung"
Me.Bezeichnungsfeld58.Visible = Me.Sparte = "Mittag"
Me.Anzahl_Mittagessen.Visible = Me.Sparte = "mittag"

End Sub


Für Pauschale, Reinigung, Kaffee leider nicht , Feld ist immer der selbe
ich habe im Form_Current() + Sparte_AfterUpdate() wie folgt eingegeben :

Me.Bezeichnungsfeld59.Visible = Me.Sparte = "Pauschale"
Me.Betrag_Pauschale.Visible = Me.Sparte = "Pauschale"

Me.Bezeichnungsfeld59.Visible = Me.Sparte = "Reinigung"
Me.Betrag_Pauschale.Visible = Me.Sparte = "Reinigung"

Me.Bezeichnungsfeld59.Visible = Me.Sparte = "Kaffee"
Me.Betrag_Pauschale.Visible = Me.Sparte = "Kaffee"

leider funktioniert es nicht, das Feld wird mir im Formular nicht angezeigt

Was mache ich falsch ?
Umpf1984
 

Re: Feld sichtbar wenn

Beitragvon mmarkus » 18. Sep 2021, 15:05

Umpf1984 hat geschrieben:
Me.Bezeichnungsfeld59.Visible = Me.Sparte = "Pauschale"
Me.Betrag_Pauschale.Visible = Me.Sparte = "Pauschale"

Me.Bezeichnungsfeld59.Visible = Me.Sparte = "Reinigung"
Me.Betrag_Pauschale.Visible = Me.Sparte = "Reinigung"

Me.Bezeichnungsfeld59.Visible = Me.Sparte = "Kaffee"
Me.Betrag_Pauschale.Visible = Me.Sparte = "Kaffee"

leider funktioniert es nicht, das Feld wird mir im Formular nicht angezeigt

Was mache ich falsch ?


Bei deinem Code änderst du die Sichtbarkeit von

Me.Bezeichnungsfeld59
Me.Betrag_Pauschale

drei mal hintereinander.
Es ist also nur die letzte Änderung von Bedeutung, da diese alle vorhergehenden eleminiert.
Du musst die Logik also so ändern, dass es nur eine einzige Änderung gibt und die muss passen.

Also noch mal etwas Nachdenken.
ms access what else
mmarkus
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 2142
Registriert: 16. Apr 2012, 16:07
Wohnort: Oberösterreich

Re: Feld sichtbar wenn

Beitragvon Gast » 18. Sep 2021, 15:39

HAllo Markus,

danke dir für dein Hinweis, wie wäre dann der Code ?

Ich bin kein Profi, deshalb suche ich hilfe :-)
Gast
 

Re: Feld sichtbar wenn

Beitragvon Gast » 18. Sep 2021, 15:45

Gast hat geschrieben:HAllo Markus,

danke dir für dein Hinweis, wie wäre dann der Code ?

Ich bin kein Profi, deshalb suche ich hilfe :-)


Ich habe auch wie folgt versucht :
Me.Bezeichnungsfeld59.Visible = Me.Sparte = "Pauschale" or "Reinigung" or "Kaffee"
Me.Betrag_Pauschale.Visible = Me.Sparte = "Pauschale" or "Reinigung" or "Kaffee"
Gast
 

Re: Feld sichtbar wenn

Beitragvon mmarkus » 18. Sep 2021, 15:56

Die Logik passt bereits:

Me.Bezeichnungsfeld59.Visible = (Me.Sparte = "Pauschale" or Me.Sparte = "Reinigung" or Me.Sparte = "Kaffee")

Schreibweisen gibts es natürlich auch noch andere.
Vor allem könnte man das Ergebnis in einer Variable speichern:

Code: Alles auswählen
dim bShow as boolean

bShow = (Me.Sparte = "Pauschale" or Me.Sparte = "Reinigung" or Me.Sparte = "Kaffee")
Me.Bezeichnungsfeld59.Visible = bShow
Me.Betrag_Pauschale.Visible = bShow



Ich hoffe es gibt keinen Schreibfehler - also Luftcode.
ms access what else
mmarkus
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 2142
Registriert: 16. Apr 2012, 16:07
Wohnort: Oberösterreich

Re: Feld sichtbar wenn

Beitragvon Gast » 18. Sep 2021, 16:07

ok, vielen Dank. das funktioniert
Gast
 


Zurück zu Access Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 7 Gäste