Guten Abend!
Ich bin schon seit Stunden verzweifelt nach der Lösung zu folgendem Problem:
Ich habe das Formular "frm_customer_search" welches eine Suchleiste in der Kopfzeile besitzt. In diesem Formular befindet sich das SubFormular "sfrm_customer_search_result" was eine Auflistung der Kunden darstellt. Das funktioniert alles auch wunderbar. Jedoch funktioniert der "Details" Knopf in dem SubFormular nicht. Dieser Knopf soll mit VBA ein neues Formular öffnen ("frm_customer_detail"), jedoch tut sich da nichts.
Wenn ich das Formular "sfrm_customer_search" direkt öffne und dort auf den "Details" Knopf klicke, öffnet sich das Formular "frm_customer_details" wie gewollt.
Ich habe ausprobiert die Zeile
MsgBox "code being called"
an den Anfang des Codes zu schreiben, um zu überprüfen ob der Code überhaupt ausgeführt wird.
Ergebnis: Keine Message, also keine Codeausführung.
Dann habe ich außerhalb des SubFormulars "sfrm_customer_search_result" im Formular "frm_customer_search" den Knopf "Test" erstellt. Der Knopf hat den selben Code wie der "Details" Knopf. Der "Test" Knopf funktioniert so wie der "Details" Knopf funktionieren sollte.
Hier ein paar Screenshots:
Formular "frm_customer_search" mit dem Subformular "sfrm_customer_search_result"
(https://i.imgur.com/CR4nTTb.png)
Hier funktioniert der "Detail" Knopf nicht, der "Test" Knopf jedoch schon.
Das Subformular "sfrm_customer_search_result" wurde hier direkt als Formular geöffnet
(https://i.imgur.com/jTWBvqZ.png)
Hier funktioniert der "Detail" Knopf!
Nun der VBA-Code vom "Detail" Knopf:
Private Sub btn_open_customer_details_Click()
MsgBox "code being called"
DoCmd.OpenForm "frm_customer_detail", , , "customer_id = " & Me.customer_id
End Sub
Und der VBA-Code vom "Test" Knopf:
Private Sub btn_test_Click()
MsgBox "code being called"
DoCmd.OpenForm "frm_customer_detail", , , "customer_id = 1"
End Sub
Zusammengefasst: Der Code der sich hinter dem On Click Event vom "Details" Knopf befindet wird nur ausgeführt, wenn das Formular "sfrm_customer_search_result" direkt geöffnet wird.
Ich hoffe, dass mir da jemand weiterhelfen kann. Vielen Dank schonmal!
Hallo,
möglicherweise sind die UFO-Steuerelement-Eigenschaften "aktiviert" und "gesperrt" falsch gesetzt.
Wow, so einfach kann es sein. Vielen Dank!
Hier ein Screenshot für Andere, die vielleicht vor dem selben Problem stehen:
(https://i.imgur.com/Povqg73.png)
Die Subform einmal anklicken damit es den gelben Rahmen bekommt. Dann im Property Sheet im Data Reiter Enabled auf "Yes" setzen. Bei mir war es auf "No" gesetzt, was das unerwünschte verhalten verursacht hat.