Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Ausblenden von Kombinationsfeldern Access 2003
zurück: Seitenfuß im Formular läst nichts anzeigen weiter: Angaben mit Enter vervollständigen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gast



Verfasst am:
01. Aug 2006, 12:08
Rufname:

Ausblenden von Kombinationsfeldern Access 2003 - Ausblenden von Kombinationsfeldern Access 2003

Nach oben
       

Hallo ich habe ein Problem.

Ich möchte in einem Formular kombinationsfelder ausblenden.
Das gelingt mir auch mit folgendem Code
Code:
Private Sub Patient_AfterUpdate()
    Dim varmo_früh_sgbxi As Variant
   
    varmo_früh_sgbxi = DLookup("[mo_früh_sgbxi]", _
                               "tbl_Patienten_konfigurieren", _
                               "[Patient] = '" & Me!Patient & "'")
'MsgBox varmo_früh_sgbxi
    If varmo_früh_sgbxi = 0 Then
        Me!mo_früh_sgbxi.Visible = False
      Else
        Me!mo_früh_sgbxi.Visible = True
    End If
End Sub
Das klappt prima. Das Problem ist, dass in dem Formular theoretisch 84 dieser Felder drin sein können.

Kann man das auch einfacher machen? Ode geht das nur über die Fleißarbeit. Ob die Felder ausgebelndet werde, liegt an den Werten die in einer zweiten tbl. abgelegt sind. Wäre toll, wenn jemand einen Vorschlag hätte, der mir das vereinfacht. Danke!
rita2008
Im Profil kannst Du frei den Rang ändern


Verfasst am:
01. Aug 2006, 18:55
Rufname:
Wohnort: Berlin


AW: Ausblenden von Kombinationsfeldern Access 2003 - AW: Ausblenden von Kombinationsfeldern Access 2003

Nach oben
       

Leider schreibst Du nicht, wann welche Kombifelder unsichtbar werden sollen. Deshalb erstmal 2 allgemeine Hinweise:

1. False entspricht der Zahl 0(oder Null), alles andere wird wahr Du könntest Dein Programmstück also vereinfacht schreiben:
Code:
    Me!mo_früh_sgbxi.Visible = varmo_früh_sgbxi

2. Um auf alle Comboboxen des Formulars zuzugreifen, kannst Du folgende Schleife verwenden:
Code:
    Dim ctl As Control

    For Each ctl in Me.Controls
        If clt.ControlType = acComboBox Then
            ctl.Visible =  ' hier fehlt noch die jeweilige Bedinung
        End If
    Next ctl

_________________
mfg Rita

Antworten bitte hier im Forum, nicht als private Nachricht. Danke
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: Werte aus 2 Kombinationsfeldern an Abfrage übergeben 14 Dan0032 5588 26. Jan 2009, 23:05
Dan0032 Werte aus 2 Kombinationsfeldern an Abfrage übergeben
Keine neuen Beiträge Access Tabellen & Abfragen: Access 2003 - OLE-Feld 1 peter0600 919 02. Jun 2008, 14:24
schultzzz Access 2003 - OLE-Feld
Keine neuen Beiträge Access Tabellen & Abfragen: Name auswaehlen und Adresse anzeigen in Kombinationsfeldern 1 eierfred 307 05. Mai 2008, 14:39
Marmeladenglas Name auswaehlen und Adresse anzeigen in Kombinationsfeldern
Keine neuen Beiträge Access Tabellen & Abfragen: Access 2003 DB zu Access 2007 0 desertangle 1427 17. Apr 2008, 11:08
desertangle Access 2003 DB zu Access 2007
Keine neuen Beiträge Access Tabellen & Abfragen: Datensatz ausblenden / deaktivieren 10 schaedel 3859 17. Apr 2008, 10:19
schaedel Datensatz ausblenden / deaktivieren
Keine neuen Beiträge Access Tabellen & Abfragen: Spalten in Abfrage ausblenden bei bestimmten Werten 2 Maaadin1987 1105 24. Jan 2008, 20:05
MiLie Spalten in Abfrage ausblenden bei bestimmten Werten
Keine neuen Beiträge Access Tabellen & Abfragen: Verknüpfung von 2 Kombinationsfeldern mit Dlookup 2 Boulardier 510 22. Nov 2007, 15:09
Nouba Verknüpfung von 2 Kombinationsfeldern mit Dlookup
Keine neuen Beiträge Access Tabellen & Abfragen: Access 2003 Frontend / Backend SQL Server 0 Micha_Mi 1120 04. Nov 2007, 19:43
Micha_Mi Access 2003 Frontend / Backend SQL Server
Keine neuen Beiträge Access Tabellen & Abfragen: Access 2000/2003 Webabfragen wie mit Excel möglich? 3 Nouba 1125 01. Nov 2007, 06:07
Nouba Access 2000/2003 Webabfragen wie mit Excel möglich?
Keine neuen Beiträge Access Tabellen & Abfragen: Subquery Access 2003 2 schulle2 601 11. Okt 2007, 10:37
schulle2 Subquery Access 2003
Keine neuen Beiträge Access Tabellen & Abfragen: spalten ausblenden 3 whitenoise 493 28. Jun 2007, 19:11
Willi Wipp spalten ausblenden
Keine neuen Beiträge Access Tabellen & Abfragen: Access 2003 - Primärschlüssel - automatische Nummernvergabe 4 thema 5233 21. Aug 2006, 10:39
thema Access 2003 - Primärschlüssel - automatische Nummernvergabe
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps