محمد رفعت 2014

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

السلام عليكم و رحمة الله و بركاته لو سمحتم عندي صفحة تقارير تظهر قيم مختلفه لكل شهر و كل سنه و احتاج لتغيير تنسيق عدة اسطر بناء علي قيمة خلية واحدة تقرأ قيمة السنة و أخرى تغير تنسيق عدة اعمدة بناء علي قيمة خلية تظهر قيمة الشهر و جزاكم الله خيرا تنسيق خلايا.xlsx

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

كله تمام و اكثر جزاكم الله خيراً و جعله في ميزان حسناتكم

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

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

مازلت انتظر تفاعلكم معي لحل المشكلة

و لقد تفاعل الادمن بعدها بما يلي : اخي العزيز لم افهم بشكل صحيح في التعليمات السابقه يتم وضع كل 17 موظف في تقرير حسب تصميمك هل هذا صحيح ؟ بعض النظر عن الترتيب بالرقم الوظيفي ؟ اذا كان هذا صحيح يمكن استبدال اسم الجدول في التعليمات السابقه باستعلام تقوم بتصميم استعلام يحتوي على حقلين الاول الرقم الوظيفي و الثاني رقم الكشف و تعمل له فرز تصاعدي بالرقم الوظيفي ويصبح الاستعلام هذا يعرض ارقام الموظفين من 1 -2-3.... الخ ثم تحفظ هذا الاستعلام باسم مثلا q1 وتستبدل اسم الجدول في التعليمات السابقه باسم الاستعلام بهذه الطريقه يقوم بوضع الرقم من 1 الي 17 الرقم الوظيفي يكون امام هذه الارقام رقم 1 للكشف ثم من 18 الي 34 يكون امامهم 2 للكشف اذا لم يكن هذا المطلوب حاول شرح الموضوع اكثر و اعتذر لك عن عدم فهمي فرددت عليه بما يلي أخي الحبيب اشكرك علي اهتمامك و لكني احب ان اوضح ان الموظفين مجموعتين الأولي تقبض من المديرية بكود طريقة الصرف (1) في جدول بيانات الموظفين والثانية تقبض من البنوك بكون طريقة الصرف (2) في جدول بيانات الموظفين و المطلوب وضع كل مجموعة في كشوف و يتم ترتيب الموظفين ترتيباً تصاعدياً حسب رقم الموظف و كل كشف يحتوي 18 موظف و عند انتهاء المجموعة الأولي يبدأ المجموعة الثانية بشكل منفصل و تبدأ يتم ترتيب الموظفين فيها تصاعدياً كل 18 موظف في كشف . كما أحب أن اوضح اني عندما وضعت الكود السابق منك في البرنامج وجدته في آخر ثلاث كشوف يضع عدد الموظفين 16 أو 15 و لا أعلم السبب في ذلك و لك مني كل الإحترام و التقدير

اخواني لتعم الفائدة أقول : لقد تفاعلت حول نفس الطلب في منتدى مملكة الاكسس و قد تفضل الأخ الادمن بارسال الرد التالي : جرب وضع زر امر في المكان المناسب او في زر الطباعه يقوم بترقيم حقل رقم الكشوف في جدول الموظفين بالرقم 1 عدد 17 مره ثم 2 بعدد 17 مره ..الخ راح تجد انه قام باضافه كل 17 موظف في رقم كشف كود: Dim Y, I, X Dim db Dim rs X = 1 Set db = CurrentDb Set rs = db.OpenRecordset("بيانات الموظفين") rs.MoveFirst For I = 1 To DCount("*", "[بيانات الموظفين]") Y = Y + 1 If Y = 18 Then X = X + 1 Y = 1 End If rs.Edit rs.[رقم الكشف] = X rs.Update rs.MoveNext Next rs.Close Set db = Nothing Set rs = Nothing ' DoCmd.OpenReport "اسم التقرير", acPreview و لقد علقت علي هذا الكود بعد تجربته بما يلي : أخي الحبيب اشكرك شكراً جزيلاً علي مجهودك و وقتك لكن: عندما قمت بتطبيق الكود ظهر لي ما يلي : ما نريده هو ترتيب الموظفين الذين في طريقة الصرف (1) أي الخازينة في كشوف كل كشف من 18 موظف و الموظفين الذين في طريقة الصرف (2) أي من البنوك في كشوف كل كشف من 18 موظف و يتم ترتيب كل قسم من ذلك ترتيباً تصاعدياً وفق ورقم الموظف يعني الموظف رقم 1 ثم رقم 2 وفقاً للمجموعتين السابقتين و لو حضرتك تفتح تقرير بيانات الموظفين ستجد أن الكشوف من 1 و حتى 7يقبضون من الخازينة و مرتبين ترتيباً تصاعدياً حسب رقم الموظف و الكشوف 11 و 12 يقبضون من البنوك و مرتبين تصاعدياً حسب رقم الموظف و يبقى ان يكون ترقيم الكشوف وفق هذا الترتيب يتم بكود و بصورة آليه ... و لك مني جزيل الشكر و جعله الله في ميزان حسناتك و لو عند احدكم إضافة او حل ارجوا ان يتفضل بالتعاون معي لحل هذه المشكله

لتوضيح المطلوب اقول : في جدول بيانات الموظف يوجد لكل موظف رقم و مطلوب ان يكون كل 18 موظف في كشف و حيث أنه الآن يوضع رقم الكشف بصورة يدوية فالمطلوب أن يوضع الرقم بصورة آليه بحيث حين نخرج تقرير استحقاقات و استقطاعات يجب ان يكون التجميع و الفرز علي رقم الكشف ليخرج لنا اجمالي الكشف الواحد اسفل كل كشف ثم تقرير آخر يحسب إجماليات كل الكشوف . و عليه المطلوب ان يكون هناك كود لوضع لتعديل رقم الكشف في جدول بيانات الموظف بحيث ان كل 18 موظف في جدول بيانات الموظف يكتب له رقم كشف واحد بحيث يتغير ذلك بصورة تلقائية في حالة اضافة موظف او حذف موظف فيحل غيره مكانه في الكشف و تتغير كل الكشوف بصورة تلقائية

أخواني الأحباب السلام عليكم . في قاعدة بياناتي يوجد حقل للموظفين و مطلوب ان اكتب التقرير الخاص بتفاصيل مرتباتهم وفقاً للشروط التالية : الأول أن يكون عدد صفوف كل تقرير لا تزيد عن 18 صف فقط و ثانياً أن يتم جمع التقرير في ختام كل كشف و أخيراً أن يكون هناك تقرير يظهر فيه مجاميع كل الكشوف السابقة و في نهايته جمع كل الكشوف . و لقد وفقني الله لأن اضع كل 18 موظف في كشف و ان اجمع الكشوف و أن اضع كشف مجاميع للكل لكني أحدد عدد الموظفين بصورة يدوية و الأمر يحتاج مني لأن اراجع عدد الموظفين و تعديل الكشوف بإستمرار بحيث لو حدث و تمت اضافة موظف جديد او محو موظف يجب علي ان اقوم بتعديل الكشوف مرة اخرى حيث اني اجعل الفرز و التجميع علي رقم الكشف و يجب ان اجعل لكل كشف عدد 18 موظف يدوياً لتظبيط تنسيق الصفحة بحيث يكون كل كشف في ورقة واحدة . و السؤال هو :: هل هناك طريقة أو كود لوضع كل 18 موظف في كشف و يكون الفرز و التجميع بناء علي رقم الكشف ليسهل علي بعد ذلك وضع كشف مجاميع لهم كلهم و بحيث يكون ترتيب الموظفين كل 18 في كشف يتم بصورة تلقائية بحسب ترتيب ارقام الموظفين فلو تم محو موظف يحل التالي له محله في الكشف بصورة تلقائية و تتسلسل المسألة في كل الكشوف و يتم تعديل كل الكشوف وفقاً للوضع الجديد و ختاماً لكم منى جزيل الشكر و العرفان Staff salaries.rar

و كمان الكود الاول بسيط الفهم بالنسبة لمن هو متطفل علي الاكسس مثلي مما مكننى من التعامل معه و التوسع في استعمالة ليشمل حوالي اربع تقارير و الاختيار بين صفحاتهم علي النحو التالي : Private Sub تقرير_Click() DoCmd.SelectObject acReport, "استقطاعات", True DoCmd.PrintOut , 14, 13, , 1 DoCmd.SelectObject acReport, "استقطاعات", True DoCmd.PrintOut , 14, 13, , 1 DoCmd.SelectObject acReport, "استحقاقات", True DoCmd.PrintOut , 12, 11, , 1 DoCmd.SelectObject acReport, "استحقاقات", True DoCmd.PrintOut , 12, 11, , 1 DoCmd.SelectObject acReport, "استقطاعات", True DoCmd.PrintOut , 10, 9, , 1 DoCmd.SelectObject acReport, "استقطاعات", True DoCmd.PrintOut , 10, 9, , 1 DoCmd.SelectObject acReport, "استحقاقات", True DoCmd.PrintOut , 8, 7, , 1 DoCmd.SelectObject acReport, "استحقاقات", True DoCmd.PrintOut , 8, 7, , 1 DoCmd.SelectObject acReport, "استقطاعات", True DoCmd.PrintOut , 6, 5, , 1 DoCmd.SelectObject acReport, "استقطاعات", True DoCmd.PrintOut , 6, 5, , 1 DoCmd.SelectObject acReport, "استحقاقات", True DoCmd.PrintOut , 4, 3, , 1 DoCmd.SelectObject acReport, "استحقاقات", True DoCmd.PrintOut , 4, 3, , 1 DoCmd.SelectObject acReport, "استقطاعات", True DoCmd.PrintOut , 2, 1, , 1 DoCmd.SelectObject acReport, "استقطاعات", True DoCmd.PrintOut , 2, 1, , 1 DoCmd.SelectObject acReport, "استقطاعات بنوك", True DoCmd.PrintOut , 4, 3, , 1 DoCmd.SelectObject acReport, "استحقاقات بنوك", True DoCmd.PrintOut , 4, 3, , 1 DoCmd.SelectObject acReport, "استقطاعات بنوك", True DoCmd.PrintOut , 2, 1, , 1 DoCmd.SelectObject acReport, "ااستحقاقات بنوك", True DoCmd.PrintOut , 2, 1, , 1 DoCmd.SelectObject acReport, "استقطاعات بنوك", True DoCmd.PrintOut , 2, 1, , 1 DoCmd.SelectObject acReport, "ãÌÇãíÚ ÇÓÊÍÞÇÞÇÊاستحقاقات بنوك", True DoCmd.PrintOut , 2, 1, , 1 DoCmd.SelectObject acReport, "مجاميع مرتبات خازينة", True DoCmd.PrintOut , 2, 1, , 1 DoCmd.SelectObject acReport, "مجاميع مرتبات بنوك", True DoCmd.PrintOut , 2, 1, , 1 End Sub

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

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

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