نجوم المشاركات

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

بعد اذن اخي ابو البراء معادلة بسيطة في الخلية C3 و تسحب ياسراً =IF(B3<3,B3+1,1) اخي ياسر ما فيش لزوم لكل هذا التعب في وضع هكذا كود يكقي معادلة بسيطة =IF(B3<3,B3+1,1)

العمل بالمعادلات بشكل عام مع كثرة المعادلات في الملف تثقل الملف وتجعله بطيئاً مع الوقت لكثرة الحسابات Calculations .. ولذا إذا كان هناك حلول بالبرمجة فهي أفضل وأيسر وأسرع في التعامل ، وتجعل البرامج والملفات الضخمة حجمها أقل بكثير .. هذا والله أعلم

بسم الله الرحمان الرحيم السلام عليكم تحياتي لجميع اعضاء اوفيسنا المحترمين الموضوع ليس بجدبد فقد تم التطرق له من قبل الاستاد القدير عبد الله باقشير جازاه الله خيرا و ان شاء الله نراه بينانا في المنتدى عن قريب لمتابعتي المنتدى في الاونة الاخيرة رئيت عدت تسائلات عن البحث والتعديل في الجداول و رئيت العديد من الحلول فحاولة الاجتهاد و الوصول الى ابسط و اسهل طريقة لعمل ذلك لذى فكرة في برمجة فورم مرن يكون ملائم لاي جدول مهما كان عدد صوفوفه او عدد اعمدته و لكي يتمكن اي عضو مهما كانت معرفته بالبرمجة ضعيفة من استعماله بسهولة ووصلة الى هذا الفورم الذي ارجو ان اكون قد وفقت في فكرته وان يستفيد منه الاغلبية يتميز هذا البرنامج يجلب الجدول المستهدف للعمل عليه و امكانية البحث داخله بدلالة اي عمود من اعمدته كما ان البحث يتميز بالبحث بأول حرف من الكمة او اي جزء منها حسب احتياجك وايضا تتميز عملية البحث بالسرعة الفائقة لاني اعتمدت على المصفوفات للوصول الى ذلك و تعرفون قوة المصفوفات و فعاليتعها اما بخصوص التكستبوكس و الكمبوبكس فتنشأ برمجيا على حسب عدد اعمدة الجدول نأتي الان الى طريقة استعمال الفورم هذا مع ملفك الخاص اولا اذهب الى محرر الاكواد تجد موديل باسم ModulePublic تجد في بدايته هذين الكودين او التعريفين ان صح التعبير Public Const sNomFeuil As String = "data" 'اسم ورقة العمل التي تحمل قاعدة البيانات Public Const sTableau As String = "tbData" ' اسم جدول قاعدة البيانات اضن ان الامر واضح تصع اسم الشيت الذي يحوي الجدول مكان عبارة "data" واسم الجدول نفسه مكان عبارة "tbData" ملاحظة : يجب ان تكون قاعدة البيانات عبارة عن جدول لايهم عدد اعمدة ولا صفوفه المهم ان يكون جدول باتباعك الخطوات السابقة تكون قد انتهيت من ربط جدولك مع الفورم ثانيا نأتي الى الاعمدة التي تحتاج قوائم في مثالنا لدين العمود 4 و العمود الاخير يحتاجون ان يمثلو في الفورم على شكر قوائم (كمبوبكس) لتنفيذ ذالك قم بأنشاء القوائم الازمة في اي شيت تريد و اعطي كل مدى قائمة اسم معين في المثال الخاص بنا سمينا نطاق قائمة الجنس ب list1 كما هو موصح في الصورة ثم اذهب الى رأس العمود المستهدف قم بادراج تعليق له و اكتب داخل التعليق نفس اسم نطاق القائمة و انتهى الامر ارجو ان اكون قد وفقت في الشرح وان يستفيد أكبر عدد من الاعضاء من هذا العمل ملاحضة: تنسيق عرض اعمد اليست يكون بتنسيقك ععرض اعمدة الجدول نفسه من الشيت و الفورم يكتشف العمود الذي يحوي تواريخ تلقائيا اي ملاحظة او استفسار او اضافة تحتاجونها للفورم لا تترددو في طلبي اهدي هذا العمل الى الغائبين الحاضرين في قلوبنا الاخ ضاحي الغريب و الاستاد عبد الله باقشير تحياتي للجميع UserForm Flexibles.rar

السلام عليكم المطلوب / 1-تطوير الملف المرفق باستخدام الاكواد واليوزر فورم بدلا من المعادلات . فكرة تصميم البرنامج هي المرحلة الأولـى من (2017/07/01 الي 2018/06/30) رسوم 100 ريال على كل واحد من افراد الاسرة شهريا المرحلة الثانيـة من (2018/07/01 الي 2019/06/30) رسوم 200 ريال على كل واحد من افراد الاسرة شهريا المرحلة الثالثـة من (2019/07/01 الي 2020/06/30) رسوم 300 ريال على كل واحد من افراد الاسرة شهريا. المرحلة الرابعة من (2020/07/01 الي 2030/06/30) رسوم 400 ريال على كل واحد من افراد الاسرة شهريا برنامج حساب المقابل المالي للمرافقين (1).rar

للتخلص من ازعاج تلك الرسالة كل ماعليك هو اضافة هذا الكود بدل الكود السابق If Err.number > 0 then msgbox "هذا السجل مكرر" docmd.cancel أو' Sendkeys "Esc" End if جرب هذا ووافنا بالنتائج

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

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

لا لزوم لتثبيت النطاق

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

يمكن إضافة سطر في داخل نفس الحلقة التكرارية بهذا الشكل Sh.Cells(Lr, R).Value = Sh.Cells(Lr, R).Value -6 اضبط -6 لكي تتوافق مع ملفك ..أنا وضعت مجرد مثال هذا والله أعلم

هلا رسمت لنا تقريرك كما تحب أن تراه بالورد أو بالاكسل أو حتى صورة فاعتقد أن هذا سيقرب لى الأمر واعذرنى فى ذلك لأن خبرتى بالمواد التعليمية قليلة.

وعليكم السلام تستطيع ان تجعل اكثر من مستخدم يعملون على نموذج في وقت واحد اولا يجب تقسيم قاعدة البيانات الى واجهات و جداول ثانيا : ضبط خصائص النموذج على النحو التالي : افتح النموذج على التصميم : 1- خصائص / لسان التبويب بيانات / اجعل الخاصية : تأمين السجلات = سجل محرر 2 - خصائص / لسان التبويب بيانات / اجعل الخاصية : ادخال بيانات = نعم

إذاً قم بتغيير السطر التالي Sh.Cells(Lr, R).Value = Me.Controls("TextBox" & R).Value ليصبح بهذا الشكل Sh.Cells(Lr, R+1).Value = Me.Controls("TextBox" & R).Value

بارك الله فيك أخي العزيز ابن الملك الملف في ورقة العمل All فيها خطأ REF أرجو مراجعة الملف وتصحيح ما به من أخطاء لكي تعم الفائدة تقبل وافر تقديري واحترامي

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

غير الرقم 1 إلى 2 في هذا السطر For R = 1 To 28

وعلكيم السلام جرب التعديل التالي ' ==================================================== On Error Resume Next 'With MyRange.Cells(1, 0).Offset(ComboBox1.ListIndex) For R = 1 To 28 Sh.Cells(Lr, R).Value = Me.Controls("TextBox" & R).Value Next 'End With If MsgBox(" لقد تمت تعديل مرتب السيد/ " & (Me.TextBox1.Value), vbMsgBoxRight, "تاكيد التعديل ") = vbNo Then Exit Sub Else '================== خاص بتعديل البيانات ==================

السلام عليكم For Each tbl In app.CurrentData.AllTables للإنتقال بين جميع جداول القاعدة If Left(tbl.Name, 3) <> "MSy" Then إذا كانت الأحرف الثلاثة الأولى من اسم الجدول تختلف عن MSyمن أجل عدم حذف جداول النظام app.DoCmd.DeleteObject acTable, tbl.Name هذا الكود يقوم بحذف الكائن من نوع جدول End If Next tbl

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

وعليكم السلام ورحمة الله وبركاته لا أعتقد هذا فليس الخطأ بنوع الورق ولكن يحتاج المستخدم أحيانا الى ورق ذو خلفية لاصقة ليتمكن من انتزاع ولصق البار كود ولكن نوع الورق ليس هو الفارق هنا ولكن نوع التكويد نفسه ربما استخدمت تكويدا معيننا غير مناسب للجهاز القارىء لديك. هنا موضوعين مناسبين لك أرجو أن تفد منهما : أحدهم به مثال يحتوى على تكويد مناسب لمعظم الأجهزة 1- 2- وهذا موضوع ثالث يتحدث عن qr_bar code ,iنا موضوع آخر ويمكنك البحث عن المزيد

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

السلام عليكم ورحمة الله لأجل جلب آخر عداد للسيارة المطلوبة في اليوزرفورم تم ما يلي: 1- إضافة عمود جديد في شيت "سجل" (العمود K "آخر رقم العداد") بمعادلات... 2- تم التعديل على كود Private Sub ComboBox2_Change في كود اليوزرفورم بإضافة السطر TextBox29 = ActiveCell.Offset(0, 10).Text أرجو أن تفي هذه التعديلات الغرض المطلوب.... بن علية حاجي مسئول الوقود.rar

اتقدم بالشكر والاحترام والتقدير لكل القائمين على هذا المنتدى العريق مشرفين ومديرين واعضاء واقدم لكم هذا الفيديو الذى تم بفضل الله وفضلوكم لبرنامج المصروفات المدرسية وتوزيع الطلاب على الباص واتمنى النقد والمقتراحات واعتذر لعدم ارفاق الملف لزيادة الحجم على الرفع برنامج المصروفات المدرسية · توفير الوقت - توفير الجهد - الجودة فى الأداء - السرعة في الإنجاز - الدقة في التصميم وطبع البيانات مميزات البرنامج · شاشة صلاحيات للمستخدمين للحفاظ على سرية البيانات · شاشة مفاتيح لإدخال وإخراج البيانات سواء بالفصل او الصف او برقم الحساب او باسم الطالب مع امكانبة وضع صورة للطالب وكذلك وضع ولوجو وموقع المدرسة · تفقيط المبلغ المدفوع او المتبقى بالأرقام وبالعربى · استخراج تاريخ الميلاد وحساب السن فى 1/10 والمحافظة والنوع من الرقم القومى تلقائيا · استخراج اسم ولى الامر من اسم الطالب لتوفير الجهد على المستخدم · يرنامج خاص لحسابات ولى الامر الذى له اكثر من ابن · طباعة اخطار ولى الامر بالمتبقى · طباعة تقارير الحسابات اليومية وكذلك حسابات فترة يحددها المستخدم · طباعة تقارير الطلاب المسددين والطلاب الغير مسددين · طباعة ايصال دفع المصروفات · طباعة اجمالى الخصومات ومصاريف التعليم والباص والمصروفات السابقة مجتمعيين ومنفردين · طباعة جميع مصاريف طلاب المدرسة قبل الدفع وبعد الدفع · ترقية الناجحين من صف الى صف تلقائيا · حذف الخرجين الى الارشيف بكل تفصيل حساباتهم وبياناتهم · طباعة ديون الخرجين قبل سحب ملفاتهم · طباعة من تبقى عليهم اقساط بعد نهاية العام احصاء عام لاجمالى مصاريف كل مرحلة بنوع المصاريف والاجمالى العام · احصاء بأعداد الديانة والمنقول والمستجد والباقى والوافد لكل صف على حدى وللمدرسة عامة · شاشة لإدخال بيانات الباص · طباعة كارت تعارف للباص لكل طالب مشترك · طباعة كشوف بخطوط الباصات وأرقمهم · طباعة طلاب الباص برقم الخط والمكان وباسم المشرف والسائق ومحطة النزول ونوع الاشتراك اذا كان ذهاب فقط او عودة فقط اة ذهاب وعودة · طباعة كشف حضور وانصراف اسبوعى لمتابعة غياب المشتركين فى الباص · طباعة كشف بأسماء الدورة ونوعها طبقا لكل خط واجمالى عدد الطلاب* · الدعم الفنى للمستخدم عن كيفية التعامل مع البرنامج وهناك كثير من مميزات البرنامج اترككم لاكتشافها من خلال متابعتكم للفيديو كما اتركم لمناقشة اراءكم ومقترحاتكم ونقدكم من اجل الارتقاء بالبرنامج وللجميع تحياتى

السلام عليكم ورحمة الله لم تجرب المرفق في ردي ففيه ما تريد... بن علية

السلام عليكم ورحمة الله وبركاته أخي الكريم/ ابن بنها: هذه الطريقة لا أعرفها لكن إذا كان في كل صفحة شهادة واحدة تستطيع وقت الطباعة اختيار صفحتين في صفحة وسوف يتم طباعتهم بالتساوي. وهذا رابط لطريقة دمج المرسلات فيديو تم رفعه على اليوتيوب لطريقة عمل دمج المرسلات البريدية على word 2010 بعد تطبيق المثال تستطيع عمل ctrl+ p على ملف الوورد ثم اختيار صفحتين في صفحة وعمل طباعة.