Neuigkeiten:

Ist euer Problem gelöst, dann bitte den Knopf "Thema gelöst" drücken!

Mobiles Hauptmenü

Bild nach Kombinationsfeldauswahl sichtbar / nicht sichtbar schalten

Begonnen von woop, Dezember 21, 2011, 14:52:45

⏪ vorheriges - nächstes ⏩

Beaker s.a.

Hallo daolix,

ZitatWürde das jetzt nicht bedeuten das auch "nicht giftig" mit dem Totenkopf belegt wird?

Jau, stimmt, mal WIEDER nicht richtig gelesen  >:(.
Ich würde allerdings auch nicht das Attribut "nicht giftig" vergeben; eher "essbar" und "nicht geniessbar", da IMO informativer.

gruss ekkehard
Alles, was geschieht, geschieht. - Alles, was während seines Geschehens etwas anderes geschehen lässt, lässt etwas anderes geschehen. - Alles, was sich selbst im Zuge seines Geschehens erneut geschehen lässt, geschieht erneut. - Allerdings tut es das nicht unbedingt in chronologischer Reihenfolge.
(Douglas Adams, Mostly Harmless)

woop

Hallo database

Der Code funktioniert. Super. :)

Aber wie schon angemerkt wurde. Wenn eine Pflanze sehr giftig ist, sollen zwei Totenköpfe erscheinen. Hier der Code:

Private Sub Giftigkeit_AfterUpdate()

    Select Case Me!Giftigkeit
   
        Case "Leicht giftig"
            Me.Totenkopf1.Visible = True
        Case "Stark Giftig"
            Me.Totenkopf1.Visible = True
            Me.Totenkopf2.Visible = True
        Case Else
            Me.Totenkopf1.Visible = False
            Me.Totenkopf2.Visible = False
    End Select
   
End Sub

Wenn ich "stark giftig" gewählt habe erscheinen die Köpfe auch bei "leicht giftig".

Was habe ich falsch gemacht? ???

Gruß woop


database

#18
Hallo,

Zitat DF6GL...
ZitatDu musst bei "Leicht giftig" das unerwünschte Bild explizit unsichtbar setzen....

....weil Weihnachten ist ....   ;) ;D


Private Sub Giftigkeit_AfterUpdate()

   Select Case Me!Giftigkeit
   
       Case "Leicht giftig"
           Me.Totenkopf1.Visible = True
           Me.Totenkopf2.Visible = False
       Case "Stark Giftig"
           Me.Totenkopf1.Visible = True
           Me.Totenkopf2.Visible = True
       Case Else
           Me.Totenkopf1.Visible = False
           Me.Totenkopf2.Visible = False
   End Select
   
End Sub



Kleiner Nachtrag - den Code in 'Form_Current' mußt du natürlich auch entsprechend ergänzen!

DF6GL

Hallo,


@database:

eigentlich solltest Du eine solche Signatur haben::

Learning by doing spoon-feed    ;D ;D ;D

woop

An alle die mir geholfen haben.

Problem gelöst!!! :) :) :)!!!!

Vielen vielen Dank und ein angenehmes Weihnachtsfest.  ::)

    woop

database


DF6GL

Hallo,

ja, und deswegen wünsche ich allen Lesern hier ein frohes Weihnachtsfest und viel Erfolg im Neuen Jahr, besonders was Access angeht...  :)