Forums Neueste Beiträge
 

Textfarbe bei änderung wechseln

06/02/2008 - 17:25 von Michael Martikan | Report spam
Hallo,

Ich will in meinem Formular die Felder in denen etwas geàndert wurde mit der
Textfarbe blau anzeigen

Private Sub Bezeichnung_Change()
Me.Bezeichnung.ForeColor = RGB(0, 0, 255)
End Sub

Wie Ihr seht ist mir das derzeit nur für jedes einzelne Textfeld mühsam
möglich. gibt es da eine bessere möglichkeit?

und wenn man dann den Datensatz Speichert oder die ànderungen verwirft
sollte sich in den Feldern der Text wieder schwarz fàrben

Private Sub Form_BeforeUpdate(Cancel As Integer)
If MsgBox("Änderungen speichern?", vbYesNo, "Daten ànderungen") = vbNo
Then
Dim ctlC As Control
' For each control
For Each ctlC In Me.Controls
If ctlC.ControlType = acTextBox Then
'If ctlC.Value <> ctlC.OldValue Then MsgBox ctlC.Value
ctlC.Value = ctlC.OldValue
Me.Bezeichnung.ForeColor = lngBlack

End If
Next ctlC
End If

End Sub

die Schleife "For Each ctlC In Me.Controls" gefàllt mir schon recht gut, nur
wie komme ich so auf die Textfarbe der einzelnen Textfelder?

lg
Michael
 

Lesen sie die antworten

#1 Stefan Hoffmann
06/02/2008 - 17:40 | Warnen spam
hallo Michael,

Michael Martikan schrieb:
die Schleife "For Each ctlC In Me.Controls" gefàllt mir schon recht gut,
nur wie komme ich so auf die Textfarbe der einzelnen Textfelder?


Imho so:

Private Sub Form_BeforeUpdate(Cancel As Integer)

Dim ct As Access.Control
Dim tb As Access.TextBox

Cancel = (MsgBox("Änderungen speichern?", _
vbYesNo, _
"Daten ànderungen") = vbNo)

If Cancel Then
Me.Undo
For Each ct In Me.Controls
If TypeOf ct Is Access.TextBox Then
Set tb = ct
tb.ForeColor = lngBlack
End If
Next ct
End If

End Sub



mfG

Access-FAQ http://www.donkarl.com/
KnowHow.mdb http://www.freeaccess.de
Newbie-Info http://www.doerbandt.de/Access/Newbie.htm

Ähnliche fragen