استفسار حول تشغيل زر عن طريق زر اخر

[ازهر عبد العزيز]

السلام عليكم .... لدي قاعدة بيانات تحوي نموذجان نموذج 1 ونموذج 2 وفي النموذج 1 ييوجد  زر 1 وزر 2 اريد عندما اضغط على زر 1 يعمل زر 2   على ان تكون الطريقة من خلال منشئ الماكرو وشكرا لكم 

New Microsoft Access قاعدة بيانات (2).accdb

[kingcode]

Function wbksize()
    myWbk = Application.ThisWorkbook.FullName
    wbksize = FileLen(myWbk)
End Function

Worksheets("Sheet2").Range("K1").Calculate

 

[ازهر عبد العزيز]

اخي kingcode ممكن تشرح الطريقة بصراحة ما عرفت اعملها وياريت طبقها على النموذج الي بالمرفقات وجزاء الله كل خير

[ابو جودي]

Private Sub Btn1_Click()
Call Btn2_Click
End Sub

Private Sub Btn2_Click()
DoCmd.Close
DoCmd.OpenForm "نموذج2"
End Sub

Btn1   اسم الزر الاول
Btn2   اسم الزر التانى