نسخ ولصق مجموعة سجلات في النموذج الفرعي

[محمدنجار]

اخوتي الكرام السلام عليكم ...

عند تفعيل اوبشن Panel  في النموذج الفرعي lecture  تظهر رسالة خطأ  ؟؟ بعد اتمام العملية ....

::: العملية هي الذهاب الى سجل محدد في النموذج الرئيسي Students , ثم تحديد ونسخ جميع سجلات النموذج الفرعي lecture , ثم العودة الى اخر سجل كنا فيه في النموذج الرئيسي

    حيث تلصق تلك السجلات ....لغرض طباعتها.

:: والسؤال هو هل بالامكان نسخ مجموعة محددة من السجلات وليس كلها . ............... مع امنياتي للجميع بالخير ورضى الله سبحانه .

Students.rar

[عبد الله قدور]

منذ ساعه, محمدنجار said:

عند تفعيل اوبشن Panel  في النموذج الفرعي lecture  تظهر رسالة خطأ  ؟؟ بعد اتمام العملية ....

تقول بعد اتمام العملية هل هذا يعني ان العملية نجحت لكن تظهر رسالة خطأ ان كان كذلك ضع الكود التالي في بداية الكود

On Error Resume Next

 

[محمدنجار]

1 ساعه مضت, عبد الله قدور said:

تقول بعد اتمام العملية هل هذا يعني ان العملية نجحت لكن تظهر رسالة خطأ ان كان كذلك ضع الكود التالي في بداية الكود

On Error Resume Next

 

حياك الله استاذ عبد الله ... ويسعد مساك

الكود الغى العملية ....حيث لا يتم لصق السجلات ..  تجياتي

::::::: نجحت العملية بعد تفعيل السطر الملغى في الكود ......شكرا لك استاذ عبد الله

وهذا الكود

Private Sub Panel_Click()
On Error Resume Next
If Me.Panel = -1 Then
Forms!students!stdid.SetFocus
DoCmd.GoToRecord , , acFirst
Forms!students!Visit.Form!lecturs.Form.SetFocus
DoCmd.RunCommand acCmdSelectAllRecords
 DoCmd.RunCommand acCmdCopy
 Forms!students!stdid.SetFocus
 DoCmd.GoToRecord , , acLast
 Forms!students!Visit.Form!lecturs.Form.SetFocus
 DoCmd.GoToRecord , , acGoTo
 DoCmd.RunCommand acCmdSelectRecord
 DoCmd.RunCommand acCmdPaste
 result = ""
 End If
 Me.Panel = 0
End Sub

 

تم تعديل سبتمبر 29, 2016 بواسطه محمدنجار

[Shivan Rekany]

بدل ذاك السطرين
 

 

Private Sub Panel_Click()
On Error Resume Next
If Me.Panel = -1 Then
Forms!students!stdid.SetFocus
DoCmd.GoToRecord , , acFirst
Forms!students!Visit.Form!lecturs.Form.SetFocus بدل هذا السطر الى (Forms!students!Visit!lecturs!lecture.SetFocus)
DoCmd.RunCommand acCmdSelectAllRecords
 DoCmd.RunCommand acCmdCopy
 Forms!students!stdid.SetFocus
 DoCmd.GoToRecord , , acLast
 Forms!students!Visit.Form!lecturs.Form.SetFocus و ايضا هذا (Forms!students!Visit!lecturs.SetFocus)
 DoCmd.GoToRecord , , acGoTo
 DoCmd.RunCommand acCmdSelectRecord
 DoCmd.RunCommand acCmdPaste
 result = ""
 End If
 Me.Panel = 0
End Sub

 

تم تعديل أكتوبر 1, 2016 بواسطه Shivan Rekany

[محمدنجار]

9 ساعات مضت, Shivan Rekany said:

بدل ذاك السطرين
 

 

Private Sub Panel_Click()
On Error Resume Next
If Me.Panel = -1 Then
Forms!students!stdid.SetFocus
DoCmd.GoToRecord , , acFirst
Forms!students!Visit.Form!lecturs.Form.SetFocus بدل هذا السطر الى (Forms!students!Visit!lecturs!lecture.SetFocus)
DoCmd.RunCommand acCmdSelectAllRecords
 DoCmd.RunCommand acCmdCopy
 Forms!students!stdid.SetFocus
 DoCmd.GoToRecord , , acLast
 Forms!students!Visit.Form!lecturs.Form.SetFocus و ايضا هذا (Forms!students!Visit!lecturs.SetFocus)
 DoCmd.GoToRecord , , acGoTo
 DoCmd.RunCommand acCmdSelectRecord
 DoCmd.RunCommand acCmdPaste
 result = ""
 End If
 Me.Panel = 0
End Sub

 

شكرا استاذ ريكاني ... ماذكرت صحيح وتم التعديل..... لكن العملية لم تنجح بعد ... تحياتي

Students.rar

تم تعديل أكتوبر 1, 2016 بواسطه محمدنجار

[عبد الله قدور]

السلام عليكم 

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

 

[محمدنجار]

25 دقائق مضت, عبد الله قدور said:

السلام عليكم 

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

:::يسعد اوقاتك اخي عبد الله ..كلامك سليم ... هل بالامكان تطبيق الفكرة على المثال ..السابق ؟ .....مع التقدير

[Shivan Rekany]

عفوا استاذ محمد نجار
انا ضعيف باللغة العربية لذا ممكن تفهمني بالضبط ما تريد بلا زحمة
فرضاً احنا بالسجل جديد ما تريد حين تفعيل "بنال" 
هل تريد نسخ و لصق احد سجلات اخرى الى سجل جديد او اي ؟
مع تقدير

[محمدنجار]

8 ساعات مضت, Shivan Rekany said:

عفوا استاذ محمد نجار
انا ضعيف باللغة العربية لذا ممكن تفهمني بالضبط ما تريد بلا زحمة
فرضاً احنا بالسجل جديد ما تريد حين تفعيل "بنال" 
هل تريد نسخ و لصق احد سجلات اخرى الى سجل جديد او اي ؟
مع تقدير

اهلا بك استاذ شيفان

::: أخي حين تفعيل "بنال" كل ما احتاجه هو نسخ ثلاث سجلات (1 , 2 , 3 ) من الحدول  support  ولصقها في سجلات النموذج الفرعي lecture  هذا كل ما في الامر ... مع التقدير