von eBayer » Mi, 19.08.2009 12:30
Hallo,
ich habe das in folgender Form realisiert: siehe unten!
Jetzt mußt Du beim Formular noch das Ereignis "nach dem Datensatzwechsel" mit dem Sub "Datensatzwechsel" verbinden.
Viel Spaß und besten Gruß
eBayer
Sub Datensatzwechsel
oForm = ThisComponent.DrawPage.Forms.getByName("Form_Adressen") ' natürlich ist hier Dein Formularname einzutragen!
if oForm.getByName("Status").value = 1 ' hier ist natürlich Feldname und der Feldtyp zu berücksichtigen
setBackgroundColor(oForm.getByName("Nachname"), "ROT") ' hier mußt Du den Feldnamen Deines Formulars eintragen
end if
End Sub
Function setBackgroundColor(oField, sColor)
Select Case uCase(sColor)
Case "ROT"
oField.BackgroundColor = RGB(255,0,0)
Case "GELB"
oField.BackgroundColor = RGB(255,255,0)
Case "BLAU"
oField.BackgroundColor = RGB(0,0,255)
Case Else
oField.BackgroundColor = RGB(221,221,221)
End Select
End Function
Hallo,
ich habe das in folgender Form realisiert: siehe unten!
Jetzt mußt Du beim Formular noch das Ereignis "nach dem Datensatzwechsel" mit dem Sub "Datensatzwechsel" verbinden.
Viel Spaß und besten Gruß
eBayer
Sub Datensatzwechsel
oForm = ThisComponent.DrawPage.Forms.getByName("Form_Adressen") ' natürlich ist hier Dein Formularname einzutragen!
if oForm.getByName("Status").value = 1 ' hier ist natürlich Feldname und der Feldtyp zu berücksichtigen
setBackgroundColor(oForm.getByName("Nachname"), "ROT") ' hier mußt Du den Feldnamen Deines Formulars eintragen
end if
End Sub
Function setBackgroundColor(oField, sColor)
Select Case uCase(sColor)
Case "ROT"
oField.BackgroundColor = RGB(255,0,0)
Case "GELB"
oField.BackgroundColor = RGB(255,255,0)
Case "BLAU"
oField.BackgroundColor = RGB(0,0,255)
Case Else
oField.BackgroundColor = RGB(221,221,221)
End Select
End Function