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
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.
UfrmLogindata:
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:
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 :-/
Du musst aus der private sub die du aufrufen willst, eine public sub machen.
Sollte dann eigentlich klappen.
So hab ich geändert :) funktioniert super! Danke!!!
Call Form_UfrmLogindata.Del_Click