Access-o-Mania

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

Zitat... .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.

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

Probiere mal

Me!UFPruefpflicht.Form!UFPruefungen.Enabled = True

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

Hallo,

funktioniert leider auch nicht.

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

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


Gruss
mad

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

Hallo,

habe versucht das wie unter donkarl, auch nach den Syntaxbeispielen, will aber nicht klappen.
Mein aktueller Code:
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

Hallo,

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

ZitatPrivate 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

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

Hallo,

@ekkehard:

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

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,
Me![UFPruefpflicht]![UFPruefungen].Form.AllowEdits = True
kann ich jetzt weglassen.
Aber trotzdem Danke.

Gruss
mad