السلام عليكم
استاذي الفاضل
كان لي استفسار واسف لو كنت اثقلت عليك
Option Compare Database
Option Explicit
Private Sub names_Click()
DoCmd.OpenForm "courses"
DoCmd.GoToRecord , , acNewRec
Forms!courses!name = Me.names
Forms!courses!age = Me.age
Forms!courses!gender = Me.gender
End Sub
الاستفسار الاول
ارغب التعديل على الكود ليناسب نموذج فرعي على نموذج الكورسات
الإستفسار الثاني
ارغب االتعديل على الكود ليتناسب مع باقي النماذج
(وليكن مثلا ( النموذج النشط او المفتوح حاليا
سواءا كان
نموذج الكورسات
او
نموذج المتدربين
اضافة سجل عن طريق الضغط مزدوجا واستدعاء اللغة من نموذج اللغات.rar