السلام عليكم
 
	استاذي الفاضل
 
	كان لي استفسار واسف لو كنت اثقلت عليك
 
	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