Button im Ufo über Button im Hauptfrm steuern

[Basti123]

Hallo zusammen,

ich brauch mal wieder euere Hilfe..

Ich hab ein Unterformular mit Daten zu einem im Hauptformular markierten Datensatz. Auf dem Haupt- und Unterformular ist jeweils ein Delete-Button. Ich möchte, dass wenn ich den im Hauptformular anklicke, der im Unterformular quasi mit angeklickt wird. also der Befehl ebenfalls ausgeführt wird.

Danke für euere Hilfe

Grüße
Basti

[Xoar]

Hast du die "löschaktion" als Makro gespeichert oder als VBA Code?

Sonst als Ereignis "beim drücken" einfach per VBA die andere Prozedur mit aufrufen.

Sub Button1_click()   'dein Button im Hauptformular, wie auch immer der heißt
 'löschaktion
 call Ufo.Button2_click     'hier wird die Funktion des zweiten Buttons im Unterformular aufgerufen. Für Ufo muss der Name deines Unterformulares rein
end sub

geht evt. auch einfacher oder anders, aber das ist die einzige Möglichkeit dir mir spontan einfällt.

[Basti123]

UfrmLogindata:

Code [Auswählen] Erweitern

Private Sub Del_Click()
On Error GoTo Err_Del_Click

CurrentDb.Execute ("Delete from tblLogin WHERE LoginID = " & Me!LoginID)

Exit_Del_Click:
    Exit Sub

Err_Del_Click:
    MsgBox Err.Description
    Resume Exit_Del_Click
End Sub
frmExplorer:

Code [Auswählen] Erweitern

Private Sub Cities3_Click()
On Error GoTo Err_Cities3_Click

CurrentDb.Execute ("Delete from tblCity WHERE CityID = " & Me!City.Column(1))

Call UfrmLogindata.Del_Click                  '????


Exit_Cities3_Click:
    Exit Sub

Err_Cities3_Click:
    MsgBox ("Delete the <Hospitals> before you can delete the <City>!")
    Resume Exit_Cities3_Click   
End Sub
Wie ruf ich denn jetzt hier die funktion auf? bzw wegen mir kann ich das auch beim Hauptformular mit reinschreiben. Ist mir eigentlich gleich.. aber es funktioniert auf jeden fall nicht :-/

[Xoar]

Du musst aus der private sub die du aufrufen willst, eine public sub machen.
Sollte dann eigentlich klappen.

[Basti123]

So hab ich geändert funktioniert super! Danke!!!

Code [Auswählen] Erweitern

Call Form_UfrmLogindata.Del_Click