كيفيه نسخ الاصناف فى كل صفحه جديده تلقائيا

[ahmedabuzena]

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

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

مرفق مثال للتوضيح

       ارجو ان اكون اوضحت ما اريد وجزاكم الله خيرا 

stocktaken 2015.zip

[Elsayed Bn Gemy]

---

السلام عليكم اخى الكريم

اعاننا الله على ما تريد

شرح الكود

اولا وقبل كل شئ قمت باضافة زر (جديد + اضافة الاصناف )

وجدت انك تقوم بكتابة رقم الصفحة يدويا وهذا غير مجدى قد تنسى رقم  او ما شابه فاستبدلت ذلك كله بالكود

فالكود يقوم باضافة صفحة جديدة تلقائيا وترقيم تلقائى بالكود حتى اذا قمت بمسح صفحة فى يوم ما لا يفوتك رقمها

 

'فرض متغيرات باعداد السجلات فى كلا الجدولين الفرعى والاصناف
Dim X
Dim Rs
'الذهاب الى سجل جديد 
DoCmd.GoToRecord , , acNewRec
'قيمة مربع نص رقم الصفحات يساوى مجموع سجلات جدول الصفحات + 1
Me.page_no = DCount("*", "[/page][page]") + 1
'تحديث النموذج
DoCmd.Requery
'الذهاب الى اخلر سجل الاضافة السلع والاسعار 
DoCmd.GoToRecord , , acLast
'الاتصال بجدول الاصناف وفتحه 
Set Rs = CurrentDb.OpenRecordset("page_sub")
'المتغير x  يساوى مجموع السجلات جدول الاصناف 
For X = 1 To DCount("*", "[items]")
       Rs.AddNew
       Rs![page_no] = Me.[page_no].Value
       Rs!items = DLookup("[items]", "[items]", "[id]=" & X & "")
       Rs!coast = DLookup("[coast]", "[items]", "[id]=" & X & "")
       Rs!sell = DLookup("[sell]", "[items]", "[id]=" & X & "")

       Rs.Update
       Next
       Rs.Close
Set Rs = Nothing
Me.[page_sub_Subform].Requery

 

stocktaken 2015-2.rar

[ahmedabuzena]

السلام عليكم ورحمه الله وبركاته جزاك الله كل خير هذا فعلا ما اريده ولاكن ظهرت مشكله عند مسح اى صفحه من الصفحات يعطينى debug error فما الحل 

وشكرا جزيلا على المساعدة

[Elsayed Bn Gemy]

اخى الكريم قم باضافة زر فى النموذج الرئيسى  وليكن اسمه حذف

وضع فى حدث عن النقر لهذا الزر  هذا الكود

If MsgBox("هل تريد فعلا حذ الصفحة ", vbCritical + vbYesNo, "حذف الصفحة") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
End If

 

[ahmedabuzena]

السلام عليكم ورحمه الله وبركاته اخى الكريم انا طبقت ما قلته ولاكن اعطانى نفس الخطا مرفق مثال يوضح المشكله جزاك الله خيرا على الاهتمام والمساعده

stocktaken 2015-3.rar

[Elsayed Bn Gemy]

تفضل اخى

stocktaken 2015-3.rar

[ahmedabuzena]

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

تم تعديل أكتوبر 31, 2015 بواسطه ahmedabuzena

[ahmedabuzena]

السلام عليكم اخى مارد اذا لم تنجح هذة الطريقه فهل من الممكن ان نغير رقم الصفحات الى auto number فبذلك لو مسحنا اى صفحه ان شاء الله مش حيبقى فيه مشكله بس ممكن تعذل الكود بحيث يكون مع auto number وجزاكم الله كل خير

[Elsayed Bn Gemy]

والله يا اخى المرفق الذى ارسلته لى يعمل بشكل ممتاز ولا اعلم ما سبب المشكله قد يكون المشكلة فى بيئة الاوفيس لديك

وقمت بتصوير فيديو للمرفق الذى ارسلته لى وهو يعمل بشكل رائع امسح واضيف ولا يوجد مشكله

 

[ahmedabuzena]

اخى مارد انا شغال على اوفيس 2007 ونزلت اوفيس 2010 علشان اجرب جايز تكون النسخه لاكنى واجهت نفس المشكله لو مسحت اخر صفحه مفيش مشكله بيشتغل عادى لاكن لو مسحت اى صفحه من الوسط يظهر نفس الرساله مرفق ملف يوضح المشكله اسف على لاكنى حاولت احل المشكله ولاكن كل المحاولات فشلت ارجو ايجاد حل للمشكله وجزاكم الله كل خير 

2007.rar

2010.rar

تم تعديل نوفمبر 1, 2015 بواسطه ahmedabuzena

[Elsayed Bn Gemy]

.

تم تعديل نوفمبر 1, 2015 بواسطه مارد

[Elsayed Bn Gemy]

stocktaken 2015-3.rar

تم تعديل نوفمبر 1, 2015 بواسطه مارد

[ahmedabuzena]

كدة تمام اشتغل بدون مشاكل بارك الله فيك وزادك من علمه وجعله فى ميزان حسناتك جزاك الله خيرا والسلام عليكم ورحمه الله وبركاته

[ahmedabuzena]

السلام عليكم ورحمه الله وبركاته اخى مارد انا اسف على الازعاج واجهتنى مشكلتين الاولى نسيت حقل وحبيت اضيفه وهو notes

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

والمشكله الثانيه هى بسيطه انه لازم يكون فيه صفحه اولى يدويا حتى يعمل الكود ويعمل صفحات جديدة 

ارجو مساعدتى واسف مرة اخرى على الازعاج وجزاكم الله كل خير

stocktaken 2015-3000.rar

[Elsayed Bn Gemy]

stocktaken 2015-3.rar

[ahmedabuzena]

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

[Elsayed Bn Gemy]

انا اشتغلت على الملف القديم اللى عندى عموما حاضر هنزل الملف بتاعك واشوف فيه ايه انت تؤمر

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

[ahmedabuzena]

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

[Elsayed Bn Gemy]

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

لكن استميحك عزرا ستضيف الاصناف من جديد فقط فى جدول items   لانى مسحتهم

اما بالنسبة للترقيم قمت باضافة الاكواد الخاصة بالترقيم ويمكنك الاطلالع عليها

 

 

stocktaken 2015-3001.rar

[ahmedabuzena]

والله ما قصرت بارك الله فيك ونفعك بعلمه وجعله فى ميزان حسناتك جزاك الله كل خير وجعلك عونا فى كل خير والسلام عليكم ورحمه الله وبركاته

[ahmedabuzena]

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

stocktaken 01112015 final.rar

[ahmedabuzena]

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

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

1- جدول المحلات وهنا البيانات لا تتكرر

2- جدول التاريخ وهنا التاريخ ممكن أن يتكرر لأكثر من محل

3- جدول صفحات الجرد وهنا أرقام الصفحات ممكن أن تتكرر فى أكثر من تاريخ وأكثر من محل ولاكن لا تتكرر لنفس المحل بنفس تاريخ الجرد

4- أصناف الجرد وهى تتكرر فى كل صفحة من صفحات الجرد وتكون هذه الصفحات خاصه لكل محل فى تاريخ الجرد المحدد 

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

[Elsayed Bn Gemy]

اخى الكريم افرد مشاركة جديدة حتى لا يتم غلق الموضوع