Unterformular ein/ausblenden

[castor1]

Hi,

ich habe im Hauptformular ein Unterformular (frm_Projektleiter) im Steuerelement "frm_Projektleiter_SE" eingefügt. Ich möchte, dass das Steuerelement mit dem UF erst sichtbar wird, wenn im HF zumindest ein Datenfeld ausgefüllt wurde. Bisher habe ich folgenden code ausprobiert, der nicht funktioniert:

Code [Auswählen] Erweitern

Private Sub Form_Current()
With Me![frm_Projektleiter_SE].Form
        If .RecordsetClone.RecordCount = 0 Then
            .Visible = False
        End If
    End With
End Sub

Auch folgender Code, in dem ich die Sichtbarkeit vom Befüllen des Feldes "ID_Projektnummer" im HF abhängig machen wollt, funktioniert nicht:

Code [Auswählen] Erweitern

Private Sub Form_Current()
If Me!ID_Projektnummer = Null Then
Me!frm_Projektleiter_SE.Visible = False
Else
Me!frm_Projektleiter_SE.Visible = True
End If
End Sub


Wäre sehr dankbar für Hinweise dazu.
LG Castor

[MzKlMu]

Hallo,
auf = Null kann man nicht prüfen.
Versuche es so:

Code [Auswählen] Erweitern

Private Sub Form_Current()
    Me!frm_Projektleiter_SE.Visible = Not IsNull(Me!ID_Projektnummer)
End Sub
Der Einzeiler reicht, If Then Else ist nicht notwendig.

Zusätzlich muss der Einzeiler in noch das Ereignis "Nach Aktualisierung von "ID_Projektnummer"

[castor1]

Danke Klaus für deine Antwort. Leider scheint das nicht zu funktionieren. Beim Öffnen des HF bekomme ich die Fehlermeldung, dass "während der Kommunikation von Access mit dem OLE Server oder dem active-x-Steuerelement ein Problem aufgetreten ist".

Gibts noch Vorschläge?

[MzKlMu]

Hallo,
ist der Name des Ufo-steuerelements richtig, bitte in den Ufo Eigenschaften prüfen. Dazu den Rahmen des Ufos anklicken.

[MaggieMay]

Hi,

vielleicht hättest du das "funktioniert nicht" bereits im ersten Beitrag genauer beschreiben sollen.

[castor1]

Ja, der Name ist richtig.

[castor1]

Hat sonst niemand eine Idee?

[DF6GL]

Hallo,


Idee:  DB komprimieren/reparieren, zippen und hier hochladen, evtl. Daten reduzieren

[castor1]

Servus,

habe die DB hier hochgeladen:http://www.access-o-mania.de/forum/index.php?topic=20361.msg113616#msg113616
weil ich gleichzeitig zwei Probleme bearbeite - daher zwei Threads.

LG Castor

[MaggieMay]

Hi,

in der DB gibt es aber kein Unterformular "frm_Projektleiter" und auch keinen Versuch, ein Unterformular auszublenden.

[castor1]

Ja sorry, die DB ist ja zum Zweck der  Frage  im anderen Thread gekürzt. Selbes gilt aber für die UFs in dieser DB, nämlich frm_Auftraggeber und frm_Kooperationspartner. Die Versuche habe ich alle wieder gelöscht, weil sie ja nicht funktioniert haben.

LG castor

[MaggieMay]

OK, nach der Reparatur der DB sollte nun auch der Vorschlag von Klaus klappen.

[castor1]

Hallo!

Habe die DB repariert/komprimiert, in eine neue DB importiert, den Leistungsassistenten laufen lassen und doch funktioniert die Codezeile von Klaus nicht. Sie funktioniert auch nicht in der DB die DF6GL raufgeladen hat.
Ich bin ziemlich ratlos.

[castor1]

Hier nochmal die Fehlermeldung, die ich bekomme.

[castor1]

Habe das Problem gefunden: Glaubt es oder nicht, es war die Kopfzeile im UFo. Kopfzeile gelöscht und alles funktioniert wie immer.

Danke für eure Tipps!

LG Castor