Office: Textfeldinhalt soll blinken ?

Hallo NG,

Acc97+W2K

Ich habe ein Formular auf dem ich eine Suchfunktionnalität habe.
nach der suche wird mir in einem textfeld (txtAnzahl) die Anzahl der gefundenen Datensätze angezeigt.
Ich würde es jetzt gerne so realisieren, das nach der suche der wert der im textfeld steht blinkt so das der user darauf aufmerksam wird ...wieviele datensätze gefunden wurden ...

hat da jemand ein tipp für mich .. ?
wie ich sowas realiesieren kann .. für ein syntaxbeispiel wäre ich sehr dankbar da ich newbie bin ..


thx

Michael

:)

 

nachdem du die Datensätze gezählt hast fügst du ein:

me.TimerIntervall = 1000


... und im Formular 'Bei Zeitgeber'
Code:

... irgendwann solltest du das Timerintervall = 0 setzen

Me.Timerintervall = 0

*confused.gif*

 

hallo ..
erst mal danke für den hinweis ..
klappt aber nich so wie ich mir das vorstelle ...
ich habe es so gemacht wie du es gesagt hast und die timer prozedur angepasst auf mein textfeld ..

Private Sub Form_Timer()

If txtAnzahl.Forcolor = 0 Then
Text.ForeColor = 255 'setzt schrift auf Rot
Else
txtAnzahl.ForeColor = 0 'setzt schrift auf Schwarz
End If

End Sub

habe dann auch den me.timer = 1000 eigefügt
wo muss ich den timerwert genau auf 0 setzen... ?

bekomme eine fehlermeldung (siehe Blid) .. *confused.gif*
hat das was mit irgendwelchen verweisen zu tun ?

hilfe ??
jemand eine idee ..

thx

michael

 

... wo kommt der Fehler? *bawling

hier ist auch noch ein Fehler:
Code:

*confused.gif*

 

Me.TimerInterval = 1000
(daher die Fehlermeldung, das Objekt Me hat keine Methode Timer)
und auf 0 musst Du es dann setzen, wenn es nicht mehr blinken soll, z.B. wenn eine neue Berechnung/Suche durchgeführt wird, also im Code des auslösenden Buttons.

Gruß

Alex

 

also es müsste bei dir so aussehen:

If txtAnzahl.Forecolor = 0 Then
txtAnzahl.ForeColor = 255 'setzt schrift auf Rot
Else
txtAnzahl.ForeColor = 0 'setzt schrift auf Schwarz
End If

End Sub

... hier wird der Text von rot aus Schwarz gestellt. Wenn du das Feld blinken lassen willst, dann musst du
z. B. weissem Hintergrund die Schrift auf weiss (= 16777215) setzen!

*confused.gif*

 

hmm sorry aber wahrscheinlich bin ich zu doof ..
also meine prozedur sieht nun so aus ...

Code:

Private Sub Form_Timer()

If txtAnzahl.ForeColor = 0 Then
txtAnzahl.ForeColor = 255 'setzt schrift auf Rot
Else
txtAnzahl.ForeColor = 0 'setzt schrift auf Schwarz
End If

End Sub

....


eingefügt habe ich die :
me.timerintervall = 1000
nach dem zählen der Datensätze

eingefügt habe ich die :
me.timerintervall = 0
wenn ich eine neuen ds suche..


es kommt aber nach wie vor die gleiche Fehlermeldung und stehen tut die fehlermeldung dann auf dem wort timerintervall

??

keine ahnung ..  *confused.gif*

 

TimerInterval (mit einem L - ist Englisch) *wink.gif*

 

du musst dein Timerinterval richtig schreiben *bawling

 

... ich sehe gerade, dass ich es falsch vorgegeben habe *bawling *bawling entschuldigung *mad.gif*

 

jo eben klappt es ..
ich danke euch allen für eure spitzen hilfe ...

thx und bis zum nächsten mal ..

michael *Smilie *biggrin.gif*