Textfeld im Formular blinken lassen wenn ja/nein Feld ja hat

[HabNeFrage]

Hallo,
habe hier gesucht, aber konnte nix passendes finden.

Ich möchte gern ein Textfeld in einem Formular abhängig von einem JA/NEIN Feld anzeigen (besser noch blinken lassen)
Darstellen wird es wenn ein JA/NEIN Feld > JA < bringt,  ansonsten soll das Textfeld nicht sichtbar sein.
Das JA/NEIN Feld (heißt Duplikat) wird sonst nicht benötigt, sondern bringt nur eine Information mit.

Das Formular heißt Formular1, und das JA/NEIN Feld Duplikat (hat nichts mit Duplikaten in DS oä. zu tun)

Wie kann ich das einrichten... Ich hatte es mal vor SEHR langer Zeit noch unter ACC2.0 gemacht... weiß nicht mehr wie.

[MzKlMu]

Hallo,
erkläre das mal bitte genauer.
Was willst Du jetzt ausblenden, das Ja/Nein Feld selbst ?

Im Prinzip geht das so:

Code [Auswählen] Erweitern

Me.Textfeldname.Visible = Me.JaNeinFeld = True
Im Formularereignis "Beim Anzeigen" und im Ereignis "Nach Aktualisierung" des JaNein Feldes.

Das Blinken vergisst Du besser. Blinken erfordert einen ständig laufenden Formulartimer, was nicht zu empfehlen ist.

[HabNeFrage]

Hallo MzKlMu,
Danke !!!
Ich konnte das Probl. bereits (vor 3min) lösen.
Ich hatte ein Feld in dem ein Schriftzug kommen soll wenn zu dem DS im JA/NEIN Feld ein > JA < erscheint.
OK, das blinken lasse ich, hab den Text rot gemacht, das reicht. Das soll den Nutzer nur aufmerksamer machen.

Habe in der "darunter liegenden Abfrage" ein Feld eingefügt "DuplText: Wenn([Dupl]=Ja;"Duplikate vorhanden";"")" und das Feld lasse ich nur darstellen wenn´s so ist.
Dazu habe ich unter Ereignis Nach Aktualisierung (von dem Feld) den Code eingefügt.

Code [Auswählen] Erweitern


Private Sub DuplikatVorhanden_AfterUpdate()
    If Me!Dupl = JA Then
        Me!DuplikatVorhanden.Visible = True
      Else
        Me!DuplikatVorhanden.Visible = False
    End If
End Sub

Schon klappts.
Mei, das ich mal zur Lösung beitragen konnte 

[MzKlMu]

Hallo,
wie oben schon gezeigt, geht das auch mit einem Einzeiler ohne If Then ...
Nicht gesehen?

Code [Auswählen] Erweitern

Private Sub DuplikatVorhanden_AfterUpdate()
        Me!DuplikatVorhanden.Visible = Me!Dupl = True
End Sub

[HabNeFrage]

Dann benötige ich auch das Feld in der Abfrage nicht...
oh, doch habs gerade ausprobiert, das Formular greift ja drauf zu.
Danke Dir.

Ich habe heute echt noch was vor hier,
könntest Du ab und an mal rein schauen?
Nat. wenn es Deine Zeit her gibt.