نسخ السجلات داخل الجدول

[Ibrahim Mohamed Abdelhady]

السلام عليكم

جميع المشاركات اكثر من ممتازة 

الرجاء توضيح كيفية نسخ السجل المضاف فى الفوردمة بعدد خانة 

K_no

اى بمجرد عمل حفظ يتم تكرار السجل داخل الجدول بعدد k_no 

مع الحتفاظ بالترقيم التلقائى 

الرجاء المساعدة 

Inpaco - Copy.rar

[Ibrahim Mohamed Abdelhady]

الرجاء المساعدة الفورية

[Ibrahim Mohamed Abdelhady]

اخوانى الرجاء المساعدة 

[Ibrahim Mohamed Abdelhady]

اخوانى الرجاء المساعدة 

[jjafferr]

وعليكم السلام أخي ابراهيم

 

 

1. الكود صحيح اللي انت عملته:

Private Sub Command57_LostFocus()
Dim I As Byte
Dim copyN As Integer
copyN = Me.k_no
For I = 1 To copyN
DoCmd.OpenReport "q_all"
Next I
End Sub

ولكن بدله ، علشان ما يكون على حدث اللي هو عليه الان ، وانما لازم يكون على حدث ضغط الزر ، هكذا:

Private Sub Command57_Click()

Dim I As Byte
Dim copyN As Integer
copyN = Me.k_no
For I = 1 To copyN
DoCmd.OpenReport "q_all"
Next I
End Sub

2. في البرنامج ، غير الاستعلام q_all من استعلام عادي ، الى استعلام الحاق ،

بس لا تعمل الحاق للحقل Serial.

 

 

جعفر

 

 

[Ibrahim Mohamed Abdelhady]

متشكر جدا على سرعة الرد 

بشمهندس جعفر 

الكود السابق خاص بطباعة اكثر من نسخة مرتبط ب  k_no  

ثم بيطبع التقرير آلى اسمة q_all    والخطوة دى انا انتهيت منها 

المطلوب عايز كود بمجرد اضافة سجل فى الفورمة يكرر السجل بعدد k_no فى الجدول 

بمعنى اخر 

انا عايز اطبع التقرير بعدد k_no كل تقرير له سريل مختلف لان التقرير الواحد عبارة عن باركود QR

وبالتالى كل نسخة من التقرير تكون مختلفة عن الاخرى لكى يجنيريت الباركود 

الرجاء الرد السريع

[Ibrahim Mohamed Abdelhady]

ارجاء توضيح بأرفاق ملف 

ماذا تقصد بــــــ

غير الاستعلام q_all من استعلام عادي ، الى استعلام الحاق ،

بس لا تعمل الحاق للحقل Serial.

[Ibrahim Mohamed Abdelhady]

بشمهندس جعفر 

الرجاء الرد

[Ibrahim Mohamed Abdelhady]

الرجاء الرد

[Ibrahim Mohamed Abdelhady]

انا عايز اطبع التقرير بعدد k_no كل تقرير له سريل مختلف لان التقرير الواحد عبارة عن باركود QR

وبالتالى كل نسخة من التقرير تكون مختلفة عن الاخرى لكى يجنيريت الباركود 

وذلك باضافة سجل مرة واحد فى الفورمة

الرجاء الرد السريع

[jjafferr]

وعليكم السلام أخوي ابراهيم

 

هالله هالله و شوي شوي علينا 

 

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

لازم تميزهم عن بعض ، علشان المسألة تصير سهلة عليك وعلينا ، وعلشان برمجتك تصير صحيحة 

 

البارحة ما انتبهت للمعلومات اعلاه ، فكنت اعتقد بان q_all هو اسم استعلام وما انتبهت للكود openReport ، فاعتقدت بانه OpenQuery ، وهذا كله بسبب التسميات 

واخي رمهان ماقصر ، واخبرني عن هذه الغلطة ، لكني شفت رسالته ورسائلك اليوم الصبح.

 

 

تفضل ، التعديل 

 

والسموحة

 

 

جعفر

31.Inpaco - Copy.accdb.zip

تم تعديل مارس 17, 2015 بواسطه jjafferr

[Ibrahim Mohamed Abdelhady]

السيد الفاضل 

المهندس جعفر 

شاكر جدا على الرد بس انا اسف فيه رسالة خطأ بتظهر عند عمل حفظ

  https://www.dropbox.com/s/1xkpqod4zccz56t/1.jpg?dl=0

https://www.dropbox.com/s/cisspfs0n57wa3a/2.jpg?dl=0

وكل مبضغط ok بيكرر السجل داخل الجول 

المطلوب 

بمجرد مضغط على حفظ يعمل الاتى 

1-عمل حفظ 

2-يكرر السجل داخل الجدول بعدد k_no

3-يتم طباعة التقرير q_all ( وانا حقوم بتصميم استعلام جديد يبص على الجدول ثم التقرير )

4- يفتح سجل جديد 

[Ibrahim Mohamed Abdelhady]

بدون رسالة خطأ 

انا عارف انى طلباتى كتير بس انا اسف 

حضرتك عبقرى وانا لازم اتعلم من حضرتك 

الله ينور على حضرتك 

الرجاء الرد السريع

[jjafferr]

تفضل يا سيدي (مع اني مش عارف انك جبت مهندس جعفر منين   )

 

احذف كود الزر القديم ، والصق هذا الكود:

Private Sub Command57_Click()

'save the existing Record
If Me.Dirty Then Me.Dirty = False

'Don't show any wanrnings
DoCmd.SetWarnings False

'creat the required number of copies
For I = 1 To Me.k_no

DoCmd.OpenQuery "Qry_All"
Next I

'show warnings again
DoCmd.SetWarnings True

End Sub

للعلم ، الرسالة اللي كنت تحصل عليها مش رسالة خطأ ، وانما رسالة تنبيه بانك راح تضيف سجل للجدول ،

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

ولما الالحاق يخلص ، نقول للبرنامج اسمح لرسائل التنبيه تظهر (هذا الامر غير مقتصر على الكود ، وانما على برنامج الاكسس بالكامل)

 

جعفر

[Ibrahim Mohamed Abdelhady]

شكراً جزيلاً

ممتاز

[jjafferr]