السلام عليكم
لدي نموذج رئيسي يحتوي على مربع خيار فيه يتم اختيار فتح احد النماذج الفرعية ولكن المشكلة هي انني اريد تفريغ بيانات ثلاثة حقول من النموذج الرئيسي في النموذج الفرعي بعد اختياره من القائمة ، الحاصل الان هو تفريغ حقل واحد فقط والمطلوب تفريغ الثلاثة من الرئيسي الى الفرعي بعد الاختيار
المرفق للتوضيح و المساعدة
اخي الفاضل
لكي تتم هذه العمليات بنجاج سوف نستخد الكود التالي
Private Sub ff_AfterUpdate()
Dim strSQL1 As String
Dim strSQL2 As String
Select Case Me.ff
Case Is = 1
Me.xx.SetFocus
xx.SourceObject = "طالب"
strSQL1 = ("INSERT INTO طالب ([Kashf_Num] , [sDate],[sDay]) VALUES('" & Me!Kashf_Num & "', '" & Me!sDate & "','" & Me!sDay & "')")
CurrentDb.Execute strSQL1, dbFailOnError
Case Is = 2
Me.xx.SetFocus
xx.SourceObject = "المعلم"
strSQL2 = ("INSERT INTO المعلم ([Kashf_Num] , [sDate],[sDay]) VALUES('" & Me!Kashf_Num & "', '" & Me!sDate & "','" & Me!sDay & "')")
CurrentDb.Execute strSQL2, dbFailOnError
End Select
Me.xx.Requery
End Subوستكون النتيجة بهذا الشكل
بالتوفيق
تم تعديل هذه المشاركة بواسطة zahrah في 6 مايو 2012 في 21:05
zahrah كتب:اخي الفاضل
لكي تتم هذه العمليات بنجاج سوف نستخد الكود التالي
Private Sub ff_AfterUpdate() Dim strSQL1 As String Dim strSQL2 As String Select Case Me.ff Case Is = 1 Me.xx.SetFocus xx.SourceObject = "طالب" strSQL1 = ("INSERT INTO طالب ([Kashf_Num] , [sDate],[sDay]) VALUES('" & Me!Kashf_Num & "', '" & Me!sDate & "','" & Me!sDay & "')") CurrentDb.Execute strSQL1, dbFailOnError Case Is = 2 Me.xx.SetFocus xx.SourceObject = "المعلم" strSQL2 = ("INSERT INTO المعلم ([Kashf_Num] , [sDate],[sDay]) VALUES('" & Me!Kashf_Num & "', '" & Me!sDate & "','" & Me!sDay & "')") CurrentDb.Execute strSQL2, dbFailOnError End Select Me.xx.Requery End Subوستكون النتيجة بهذا الشكل
بالتوفيق
مشكور للاخت زهرة على المساعدة وهو المطلوب ....
ولكن بقي مشكلة صغيرة هي عندما اقوم بادخال متكرر في النموذج الفرعي لا تاخذ السجلات الجديدة الحقول المعنية من النموذج الرئيسي بل تبقى فارغة وهي رقم الكشف والتاريخ و اليوم ، بمعنى اخر الكود صالح فقط للسجل الاول في النموذج الفرعي واذا كانت سجلات متعددة لا يتم ربط الحقول للسجلات الجديدة
شكرا مرة اخرى على الاهتمام والمساعدة
samer20 كتب:مشكور للاخت زهرة على المساعدة وهو المطلوب ....
ولكن بقي مشكلة صغيرة هي عندما اقوم بادخال متكرر في النموذج الفرعي لا تاخذ السجلات الجديدة الحقول المعنية من النموذج الرئيسي بل تبقى فارغة وهي رقم الكشف والتاريخ و اليوم ، بمعنى اخر الكود صالح فقط للسجل الاول في النموذج الفرعي واذا كانت سجلات متعددة لا يتم ربط الحقول للسجلات الجديدة
شكرا مرة اخرى على الاهتمام والمساعدة
up
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
