السلام عليكم اخوانى اريد ان اضيف حدث لكل النماذج بحدث عند التحميل والكود الذى اريد اضافتة هو call Test(me) وتغير خاصية النموذج Modal او منبثق الى true وقد قمت بصنع هذا الكود ولكنه لم يعمل ولم اعرف طريقة اضافة الحدث كما هو موضح : Function test() Dim Frm As AccessObject, DBS As Object Set DBS = Application.CurrentProject Dim Name_Frm As String For Each Frm In DBS.AllForms Name_Frm = Frm.name DoCmd.OpenForm Name_Frm, acViewDesign .Modal = true DoCmd.close a