[مغلق - سؤال مخالف]اضافة

السلام عليكم

شكرا على المواضيع المميزة والرائعة الموجودة في المنتدى وقد استفدت كثيرا وانني صممت برنامجي من خلالكم

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

ولكن المشكلة انا في البرنامج عندي اكثر من نموذج فرعي ولااستطيع الاضافة على النماذج الفرعية لااستطيع ارفاق الملف لكونه كبير

ولكني سوف ارفق البرنامج وارجو منكم التعديل عليه .

مع الشكر .

Private Sub امر 466_Enter()

TimerId = SetTimer(0, 0, 1, AddressOf TimerProc)

str_Title = "ÇÖÇÝÉ æÊÚÏíá"

str_prompt = "اضافة وتعديل"

If InputBox(str_prompt, str_Title) = "123" Then

MsgBox "ادخل كلمة المرور الرقم السري"

Me.AllowAdditions = True

Me.AllowEdits = True

Me.form_train.Form.AllowEdits = True

Me.breaks.Form.AllowEdits = True

Me.form_comm.Form.AllowEdits = True

Me.form_child.Form.AllowEdits = True

'Me.form_estim.Form.AllowEdits = True

'Me.form_thank.Form.AllowEdits = True

Else

MsgBox "الان يمكن اضافة وتعديل بيانات الموظف"

num.SetFocus

End If

End Sub