اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


ahmedabuzena

الردود الموصى بها

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

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

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

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

stocktaken 2015.zip

رابط هذا التعليق
شارك


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

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

شرح الكود

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

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

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

 

'فرض متغيرات باعداد السجلات فى كلا الجدولين الفرعى والاصناف
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

رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

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

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

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

 

رابط هذا التعليق
شارك


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

stocktaken 2015-3.rar

رابط هذا التعليق
شارك

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

تم تعديل بواسطه ahmedabuzena
رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

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

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

 

رابط هذا التعليق
شارك

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

2007.rar

2010.rar

تم تعديل بواسطه ahmedabuzena
رابط هذا التعليق
شارك

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

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

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

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

stocktaken 2015-3000.rar

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

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

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

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

 

 

stocktaken 2015-3001.rar

  • Like 1
رابط هذا التعليق
شارك

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

stocktaken 01112015 final.rar

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information