Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
fehler in Me.Visible Funktion
zurück: Felder Überprüfen weiter: Anzeige aller nicht belegten Nummern Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Rückfrage Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
highjumper83
VBA-einsteiger


Verfasst am:
23. Nov 2007, 11:40
Rufname:
Wohnort: Bautzen

fehler in Me.Visible Funktion - fehler in Me.Visible Funktion

Nach oben
       Version: Office 2003

Hallo,

ich habe einen Fehler in folgendem Code, weiß aber nicht welchen?!
Code:
    If (Feld1) > 0 Then
        Me.Feld1.Visible = True
      Else
        Me.Feld2= True
    End If
Ich habe zwei Felder die Standartmäßig ausgeblendet sind. Wenn das Feld1 größer als 0 ist soll es angezeigt werden, wenn es kleiner ist soll das Feld2 angezeigt werden. Allerdings zeigt der mir bei diesem Code immer das zweite Feld an.

Eine zweite Frage:
Ich möchte was ähnliches mit der Schriftfarbe machen. Also wenn das Feld1 > 0 ist soll die Schrift dieses Feldes grün werden andernfals soll die Schriftfarbe rot sein.

Bitte helft mir!
KlausMz
Moderator Access


Verfasst am:
23. Nov 2007, 12:02
Rufname:
Wohnort: Irgendwo in der Pfalz


AW: fehler in Me.Visible Funktion - AW: fehler in Me.Visible Funktion

Nach oben
       Version: Office 2003

Hallo,
zu 1)
Zeige bitte mal die ganze Prozedur.
Und ist das ein Endlosformular, Datenblatt oder Einzelformular?

Zu 2)
Das ist ein Fall für die bedingte Formatierung:
Zitat:
Feld anklicken >Menü >Format >Bedingte Formatierung

_________________
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.
highjumper83
VBA-einsteiger


Verfasst am:
23. Nov 2007, 12:10
Rufname:
Wohnort: Bautzen

AW: fehler in Me.Visible Funktion - AW: fehler in Me.Visible Funktion

Nach oben
       Version: Office 2003

1.
Code:
Private Sub Form_Open(Cancel As Integer)
    If (Summe_LM_P) > 0 Then
        Me.Summe_BR_P.Visible = True
      Else
       Me.Summe_BR_N.Visible = True
    End If
End Sub
Das ist meine ganze Prozedur.
Es handelt sich um ein Endlosformular.

2.
Funktioniert wunderbar! Danke!
KlausMz
Moderator Access


Verfasst am:
23. Nov 2007, 12:25
Rufname:
Wohnort: Irgendwo in der Pfalz

AW: fehler in Me.Visible Funktion - AW: fehler in Me.Visible Funktion

Nach oben
       Version: Office 2003

Hallo,
Zitat:
Es handelt sich um ein Endlosformular.
Bist Du Dir bewusst, dass das dann immer für die ganze Spalte gilt?

Versuche mal wie folgt:
Code:
Private Sub Form_Open(Cancel As Integer)
    Me!Summe_BR_P.Visible = Me!Summe_LM_P) > 0
    Me!Summe_BR_N.Visible = Me!Summe_LM_P) > 0
End Sub
Achte auch auf die richtige Verwendung von Punkt und Rufzeichen.
Siehe hierzu:
FAQ 6.3 Punkt und Rufzeichen

_________________
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.
highjumper83
VBA-einsteiger


Verfasst am:
23. Nov 2007, 13:03
Rufname:
Wohnort: Bautzen

AW: fehler in Me.Visible Funktion - AW: fehler in Me.Visible Funktion

Nach oben
       Version: Office 2003

Ja bin mir bewusst, dass das für die ganze Spalte zählen würde. Allerdings arbeite ich im Formularfuß.
Der Code muss sicher ohne ")" sein? Dann funktioniert er trotzdem nicht. Sad
KlausMz
Moderator Access


Verfasst am:
23. Nov 2007, 13:27
Rufname:
Wohnort: Irgendwo in der Pfalz


AW: fehler in Me.Visible Funktion - AW: fehler in Me.Visible Funktion

Nach oben
       Version: Office 2003

Hallo,
kannst Du mal ein kleines Beispiel machen und hier hochladen?

Anleitung zum Anhängen von Dateien

Aber bitte mit anonymisierten Daten

_________________
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Fehler in Löschabfrage!! 4 BorisDieKlinge 1623 12. Apr 2006, 13:17
BorisDieKlinge Fehler in Löschabfrage!!
Keine neuen Beiträge Access Tabellen & Abfragen: verschachtelte wenn- Funktion 1 Kanngarnix 1420 18. März 2006, 18:54
Nouba verschachtelte wenn- Funktion
Keine neuen Beiträge Access Tabellen & Abfragen: Übergabe eine Variable verursacht Fehler 2 blicki 714 16. Feb 2006, 10:42
blicki Übergabe eine Variable verursacht Fehler
Keine neuen Beiträge Access Tabellen & Abfragen: Runden Funktion in Abfrage fehlerhaft? 2 c0bRa 810 07. Feb 2006, 10:39
c0bRa Runden Funktion in Abfrage fehlerhaft?
Keine neuen Beiträge Access Tabellen & Abfragen: Wenn Funktion bei Kriterien in einer Abfrage 2 Transputor 11390 13. Dez 2005, 17:37
Transputor Wenn Funktion bei Kriterien in einer Abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Format nach Funktion Nz 1 audio 1314 06. Dez 2005, 19:27
Willi Wipp Format nach Funktion Nz
Keine neuen Beiträge Access Tabellen & Abfragen: iif Funktion 3 hp80 5808 03. Nov 2005, 20:45
lothi iif Funktion
Keine neuen Beiträge Access Tabellen & Abfragen: wo ist der fehler (sql) ? 4 Gast 913 26. Okt 2005, 17:59
jens05 wo ist der fehler (sql) ?
Keine neuen Beiträge Access Tabellen & Abfragen: Fehler beim Abfrage Gruppieren 0 hafisch 900 22. Sep 2005, 12:39
hafisch Fehler beim Abfrage Gruppieren
Keine neuen Beiträge Access Tabellen & Abfragen: eigene Funktion in einer Abfrage einbauen ? 1 magnum 5230 28. Mai 2005, 18:39
Gast eigene Funktion in einer Abfrage einbauen ?
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Tabellen & Abfragen: Fehler beim Filtern von unterschiedlich langen Datensätzen! 1 SteffenL 515 20. Apr 2005, 15:15
Willi Wipp Fehler beim Filtern von unterschiedlich langen Datensätzen!
Keine neuen Beiträge Access Tabellen & Abfragen: Funktion "Finden", "Teil" zum extrahiere 1 marwa 710 31. März 2005, 12:52
marwa Funktion "Finden", "Teil" zum extrahiere
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web