Ibrahim Mohamed Abdelhady قام بنشر مارس 16, 2015 مشاركة قام بنشر مارس 16, 2015 السلام عليكم جميع المشاركات اكثر من ممتازة الرجاء توضيح كيفية نسخ السجل المضاف فى الفوردمة بعدد خانة K_no اى بمجرد عمل حفظ يتم تكرار السجل داخل الجدول بعدد k_no مع الحتفاظ بالترقيم التلقائى الرجاء المساعدة Inpaco - Copy.rar رابط هذا التعليق شارك More sharing options...
Ibrahim Mohamed Abdelhady قام بنشر مارس 16, 2015 الكاتب مشاركة قام بنشر مارس 16, 2015 الرجاء المساعدة الفورية رابط هذا التعليق شارك More sharing options...
Ibrahim Mohamed Abdelhady قام بنشر مارس 16, 2015 الكاتب مشاركة قام بنشر مارس 16, 2015 اخوانى الرجاء المساعدة رابط هذا التعليق شارك More sharing options...
Ibrahim Mohamed Abdelhady قام بنشر مارس 16, 2015 الكاتب مشاركة قام بنشر مارس 16, 2015 اخوانى الرجاء المساعدة رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مارس 16, 2015 مشاركة قام بنشر مارس 16, 2015 وعليكم السلام أخي ابراهيم 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. جعفر رابط هذا التعليق شارك More sharing options...
Ibrahim Mohamed Abdelhady قام بنشر مارس 16, 2015 الكاتب مشاركة قام بنشر مارس 16, 2015 متشكر جدا على سرعة الرد بشمهندس جعفر الكود السابق خاص بطباعة اكثر من نسخة مرتبط ب k_no ثم بيطبع التقرير آلى اسمة q_all والخطوة دى انا انتهيت منها المطلوب عايز كود بمجرد اضافة سجل فى الفورمة يكرر السجل بعدد k_no فى الجدول بمعنى اخر انا عايز اطبع التقرير بعدد k_no كل تقرير له سريل مختلف لان التقرير الواحد عبارة عن باركود QR وبالتالى كل نسخة من التقرير تكون مختلفة عن الاخرى لكى يجنيريت الباركود الرجاء الرد السريع رابط هذا التعليق شارك More sharing options...
Ibrahim Mohamed Abdelhady قام بنشر مارس 16, 2015 الكاتب مشاركة قام بنشر مارس 16, 2015 ارجاء توضيح بأرفاق ملف ماذا تقصد بــــــ غير الاستعلام q_all من استعلام عادي ، الى استعلام الحاق ، بس لا تعمل الحاق للحقل Serial. رابط هذا التعليق شارك More sharing options...
Ibrahim Mohamed Abdelhady قام بنشر مارس 17, 2015 الكاتب مشاركة قام بنشر مارس 17, 2015 بشمهندس جعفر الرجاء الرد رابط هذا التعليق شارك More sharing options...
Ibrahim Mohamed Abdelhady قام بنشر مارس 17, 2015 الكاتب مشاركة قام بنشر مارس 17, 2015 الرجاء الرد رابط هذا التعليق شارك More sharing options...
Ibrahim Mohamed Abdelhady قام بنشر مارس 17, 2015 الكاتب مشاركة قام بنشر مارس 17, 2015 انا عايز اطبع التقرير بعدد k_no كل تقرير له سريل مختلف لان التقرير الواحد عبارة عن باركود QR وبالتالى كل نسخة من التقرير تكون مختلفة عن الاخرى لكى يجنيريت الباركود وذلك باضافة سجل مرة واحد فى الفورمة الرجاء الرد السريع رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مارس 17, 2015 مشاركة قام بنشر مارس 17, 2015 (معدل) وعليكم السلام أخوي ابراهيم هالله هالله و شوي شوي علينا انت الله هداك مسمي الاستعلام نفس اسم التقرير ، والنموذج نفس اسم الجدول لازم تميزهم عن بعض ، علشان المسألة تصير سهلة عليك وعلينا ، وعلشان برمجتك تصير صحيحة البارحة ما انتبهت للمعلومات اعلاه ، فكنت اعتقد بان q_all هو اسم استعلام وما انتبهت للكود openReport ، فاعتقدت بانه OpenQuery ، وهذا كله بسبب التسميات واخي رمهان ماقصر ، واخبرني عن هذه الغلطة ، لكني شفت رسالته ورسائلك اليوم الصبح. تفضل ، التعديل والسموحة جعفر 31.Inpaco - Copy.accdb.zip تم تعديل مارس 17, 2015 بواسطه jjafferr رابط هذا التعليق شارك More sharing options...
Ibrahim Mohamed Abdelhady قام بنشر مارس 17, 2015 الكاتب مشاركة قام بنشر مارس 17, 2015 السيد الفاضل المهندس جعفر شاكر جدا على الرد بس انا اسف فيه رسالة خطأ بتظهر عند عمل حفظ 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- يفتح سجل جديد رابط هذا التعليق شارك More sharing options...
Ibrahim Mohamed Abdelhady قام بنشر مارس 17, 2015 الكاتب مشاركة قام بنشر مارس 17, 2015 بدون رسالة خطأ انا عارف انى طلباتى كتير بس انا اسف حضرتك عبقرى وانا لازم اتعلم من حضرتك الله ينور على حضرتك الرجاء الرد السريع رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مارس 17, 2015 مشاركة قام بنشر مارس 17, 2015 تفضل يا سيدي (مع اني مش عارف انك جبت مهندس جعفر منين ) احذف كود الزر القديم ، والصق هذا الكود: 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 للعلم ، الرسالة اللي كنت تحصل عليها مش رسالة خطأ ، وانما رسالة تنبيه بانك راح تضيف سجل للجدول ، السطرين اللي زيدتهم في الكود ، الاول قبل اضافة السجل ، ونقول للبرنامج ، لا تعطيني رسائل تنبيهات ، والبرنامج راح يدخل السجلات بدون رسائل تنبيه ، ولما الالحاق يخلص ، نقول للبرنامج اسمح لرسائل التنبيه تظهر (هذا الامر غير مقتصر على الكود ، وانما على برنامج الاكسس بالكامل) جعفر رابط هذا التعليق شارك More sharing options...
Ibrahim Mohamed Abdelhady قام بنشر مارس 17, 2015 الكاتب مشاركة قام بنشر مارس 17, 2015 شكراً جزيلاً ممتاز رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مارس 18, 2015 مشاركة قام بنشر مارس 18, 2015 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.