Unterformulare aktivieren

[mad]

Hallo Zusammen,

ich habe ein HF mit einem UF "UFPruefpflicht" in dem sich nochmals ein UF "UFPruefungen" befindet. Da es sich hierbei nur um Unterformulare zur Ansicht handelt werden die Unterformulare mit

... .Enabled = False

geöffnet.

Da ich jetzt feststellen musste das es doch vorkommt kann kleinigkeiten am DS zu ändern, habe ich im HF einen Button erstellt der die beiden Unterformulare auf "True" setzen soll.

Code [Auswählen] Erweitern

Private Sub btnBearbeitenZulassen_Click()
    Me!UFPruefpflicht.Enabled = True
    Me!UFPruefpflicht!UFPruefungen.Enabled = True
End Sub

Mit "UFPruefpflicht" funktioniert es.
Mit dem zweiten UF "UFPruefpflicht" leider nicht.

Fehlermeldung kommt keine!
Hätte jemand einen Tipp?


Gruss
mad

[Maxel]

Probiere mal

Code [Auswählen] Erweitern

Me!UFPruefpflicht.Form!UFPruefungen.Enabled = True

Wieso stellst Du die UF nicht gleich im Entwurf entsprechend ein?

[mad]

Hallo,

funktioniert leider auch nicht.

Wieso stellst Du die UF nicht gleich im Entwurf entsprechend ein?

Ich möchte eben nicht das versehentlich geändert wird.


Gruss
mad

[Beaker s.a.]

Klassiker; - http://www.donkarl.com?FAQ4.2

[mad]

Hallo,

habe versucht das wie unter donkarl, auch nach den Syntaxbeispielen, will aber nicht klappen.
Mein aktueller Code:

Code [Auswählen] Erweitern

Private Sub btnBearbeitenZulassen_Click()
    Forms![frmInGebrauch]![UFPruefpflicht].Enabled = True
    Me![UFPruefpflicht].SetFocus
    Forms![frmInGebrauch]![UFPruefpflicht]![UFPruefungen].Enabled = True
    Me![UFPruefpflicht]![UFPruefungen].SetFocus
End Sub

Habe noch eine kleine Testdatei angehängt. Hinter dem "rote" Button verbirgt sich der obige Code.
Die Fehlermeldung zum fehlenden Formular "frm..." kann ignoriert werden.

Gruss
mad

[DF6GL]

Hallo,

allein "enablen" setzt nicht "Bearbeiten zulassen" auf Ja....

Private Sub btnBearbeitenZulassen_Click()
    Me![UFPruefpflicht].Enabled = True

    Me![UFPruefpflicht]![UFPruefungen].Enabled = True
   
   Me![UFPruefpflicht]![UFPruefungen].Form.AllowEdits = True
   
   
   
    Me![UFPruefpflicht].SetFocus

    Me![UFPruefpflicht]![UFPruefungen].SetFocus
   
End Sub

[Beaker s.a.]

Hallo Franz,
Wahrscheinlich hast du wohl recht. Die Eigenschaft .AllowEdits muss man
aber gar nicht erst anfassen. Wenn das UFo-Control "disabled" ist, kann
man im eingebetteten Form auch nichts anstellen.
gruss ekkehard

[DF6GL]

Hallo,

@ekkehard:

stimmt, mein Hinweis zielte aber auch darauf ab, die eigentliche Ursache zu erklären und zu lösen.

[mad]

Danke an beide Kollegen,

ich habe es jetzt wie von Ekkehard angeregt gelöst. Habe die Unterformulare auf "Bearbeiten zulassen" - Ja gestellt und beim öffen (wie bisher) auf "disable". Und jetzt funktioniert es auch mit dem umstellen auf  "enable" per Button.
Die Code-Zeile,

Code [Auswählen] Erweitern

Me![UFPruefpflicht]![UFPruefungen].Form.AllowEdits = True
kann ich jetzt weglassen.
Aber trotzdem Danke.

Gruss
mad