|
| |
VB & Datenbanken| Was ist hierdran falsch? | |  | | Autor: Annabelle | | Datum: 09.03.05 09:44 |
| Hallo
Ich muss leider wieder mit meinem Code zum ändern der Button Farbe ankommen
Machen soll er den Button blau, falls Formular2 Einträge hat
wenn nicht dann rot, mehr nicht, eigentlich simpel.
Fehlermeldung habe ich leider anfangs nicht gesehen deswegen hatte ich das in einem früheren Posting als erledigt angesehen, lag daran das mein ErrorHandler die weggenommen hat.
"Anwendugns- oder Objektdefinierter Fehler"
Im Debugger testet er noch ob das erste Feld leer ist, ist es das macht er auch rot, wenn nicht springt er aber nicht zu Else, dort müsste also irgendwie der Fehler liegen.
Wäre super wenn ihr mir da helfen könntet !!!!
_______________________________________
Private Function SetText(str As Variant) As String
If IsNull(str) Then
SetText = ""
Else
SetText = str
End If
End Function
___________________________________________
FormOpen-Ereignis:
DoCmd.OpenForm "Formular2", acNormal, "", "", , acNormal
Forms!Formular2.Visible = False
Dim faRot, faBlau As Long
faRot = RGB(128, 0, 0)
faBlau = RGB(0, 0, 255)
If SetText(Forms!Formular2.textfeld1) = "" Then
Me!OpenFormular2.ForeColor = faRot
ElseIf SetText(Forms!Formular2.textfeld2) = "" Then
Me!OpenFormular2.ForeColor = faRot
ElseIf SetText(Forms!Formular2.textfeld3) = "" Then
Me!OpenFormular2.ForeColor = faRot
ElseIf SetText(Forms!Formular2.textfeld4) = "" Then
Me!OpenFormular2.ForeColor = faRot
ElseIf SetText(Forms!Formular2.textfeld5) = "" Then
Me!OpenFormular2.ForeColor = faRot
ElseIf SetText(Forms!Formular2.textfeld6) = "" Then
Me!OpenFormular2.ForeColor = faRot
Else
Me!OpenFormular2.ForeColor = faBlau
End If
DoCmd.Close acForm, "Formular2"
Danke!
Gruß Anna
t?tet keine v?gel, wir v?geln auch keine toten!  | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
Neu! sevDTA 3.0 Pro 
SEPA mit Kontonummernprüfung
Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. Weitere InfosTipp des Monats Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Sie sind aktuell nicht angemeldet.
