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

وعليكم السلام 🙂 هذه هي الدالة في الوحدة النمطية : Function Get_Results(D2 As Date, i2 As Integer) As Integer If D2 >= #1/1/1990# And D2 <= #1/9/2016# Then If i2 = "4" Then Get_Results = 10 Else Get_Results = 12 End If Else Get_Results = 0 End If End Function . وفي الاستعلام نناديها ، ونرسل لها القيمتين اللي تحتاجهم في التقييم ، هكذا: . ونتائج الحقلين يتساون ، ما عدا ان حقلك السابق نتيجته "نص" (لاحظ تنسيق الاكسس للحقل الى اليسار) ، بينما نتيجة حقلي "رقم" (لاحظ تنسيق الاكسس للحقل الى اليمين) . جعفر 2003.zip

السلام عليكم ورحمة الله تم عمل المطلوب بالمعادلات والنطاقات بالتسمية... استعلام.xlsm - ماكرو.xlsm

وعليكم السلام 🙂 انا تجربتي كانت مع : https://icon-icons.com/ جعفر

Generate PDF Dahy VBA Skills fun موضوعنا النهاردة موضوع شيق مدخل للدرس الثالث للفورم التفاعلي وفي نفس الوقت ها نتعرف فيه علي أدوات ها توفر الوقت والمجهود لشريحة كبيرة تستخدم قالب معين مثل الموارد البشرية لما ترسل طلبات التوظيف المالية لمطابقات كشوف الحساب للموردين واحنا داخلين علي موسم الجرد الختامي والبنوك او الشركات او المواقع التي ترسل رسائل دورية وما الي ذلك انا اخترت المثال علي شئون الموظفين وطلبات التوظيف وهانتعرف علي كيفية التعديل علي النموذج Word عن طريق الفورم عناصر الدرس ملف Templet word القالب المستخدم اداة Microsoft Outlook 16.0 Object Library أداة Microsoft Word 16.0 Object Library ونتعلم مع بعض VBA Dynamic Code وكيفية عمل ملف PDF وارساله بالايميل الشرح نقوم بإضافة الأدوات في الفيجوال كما يلي من Tools نختار References Microsoft Outlook 16.0 Object Library اضافة أداة Microsoft Word 16.0 Object Library تحديد مسار القالب كما يلي شفت + كليك يمين علي ملف الوورد ثم نختار Copy as Path حسب موقع الملف علي جهازك انا عندي في برتيشن F "\F:\GeneratePDF\Template_Contract.docx" تحديد مسار حفظ ملفات PDF الذي يحفظها البرنامج F:\Generate and Preview طبعا يلي مش عارف يغير في الكود يقوم بحفظ الملف المرفق علي برتيشين الFبعد فك الضغط مباشرة . ملف الورد يلي نستخدمه كقالب ولاحظ المسميات يلي انت ظللتها بالاصفر نفس مسميات الليبل ف الفورم وضعتها بين علامتي ##لانها بيانات متغيرة سيتم اضافاتها من الفورم لاحظ معي عند استدعاء الملف بالورد شاهد النتيجة البرنامج اضاف البيانات المظلله بشكل تلقائي الوظيفة الثانية للبرنامج اني ببعت الملف بالايميل من البرنامج لتوفير الوقت والوظيفة في حالة التقارير الدورية او النشرات او حسب استخدام الفرد الذي يحتاج ارسال عدد كبير في نفس الوقت مع ملاحظة انه بشكل تلقائي بياخد الايميل من الفورم ويضيف اسم الموضوع والمرفقات كما بالكود بشكل تلقائي طبعا الشرح موجز لاهم العناصر انا برفق مع الشرح مثال عملي منه للشرح ومنه نستفيد منه او من الافكار يلي فيه وبكون منتظر حد يسال عن اي شئ داخل الملف بصدر رحب لكن للاسف كعادتنا نحفظ في الارشيف علي اية حال الملف بالمرفقات واي استفسار لا تترد كلنا بنتعلم مع بعض شارك وتفاعل انت تسال وذلك يسال واخر يجيب وكلنا هانستفيد الدرس القادم ان شاء الله هاشرح الاكواد ونتعرف علي كود الحغظ والتعديل والبحث الديناميكي لضمان عمل الملف اتبع الشرح السابق في اضافة الادوات ومسار الملف وبالتوفيق للجميع ولا تنسونا من دعائكم بظهر الغيب بصلاح الحال GeneratePDF.rar

طيب جرب كده ........................... Database31.rar

العفو اخوي ابوبسملة ، ما انتبهت للشهر ، كنت اعتقد قصدك تتكلم عن العلامات =>

حياك الله معلمى العزيز هذا لان التاريخ فى السطر الاول قبل التعديل سيتم قرائته 9 يناير وليس 1 سبتمبر

ليش !! يعني التاريخين من ضمن الشرط 🙂 وتحياتي اخي العزيز احمد 🙂 والحلين موجودين للاخ محمد يختار منهم 🙂 جعفر

السلام عليكم ورحمه الله وبركاته تعديل بسيط على كود معلمى العزيز @jjafferr جزاه الله عنا كل خير 🌹 تغيير السطر التالى If D2 >= #1/1/1990# And D2 <= #1/9/2016# Then الى If D2 >= #1/1/1990# And D2 < #9/1/2016# Then تقبلوا تحياتى ومرورى 2003_1.zip

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة كود لتحديد مدى الطباعه تم ارفاق كود الحل من الافاضل / الحسامي رحمه الله _ يحيى حسين _ أبوعبد الله _ هشام شلبى _ الخالدي و لا تنسونا من صالح الدعاء تحياتى Book222 الحسامى_01_.rar _هشام شلبىكود طباعة مدى متغير.rar تعيين نطاقة الطباعة نهاية صفه بنص بالنطاق _ابو عبدالله_02_).rar ابو عبدالله__01تحديد نطاق الطباعة بطريقتين وإلغاؤه.rar يحيى حسين _01_طباعه).rar Book222 (الحسامى_02).rar _طباعه _الخالدي.rar

وعليكم السلام ورحمة الله وبركاته أخي الحلبي .. 🙂 أنصحك بهذا الموقع .. مليئ بالأيقونات بمختلف الأشكال والألوان والأحجام .. وفيه خاصية البحث .. ستجد فيه كل ما تحتاجه من الأيقونات .. وهو مرتب ومنظم في مجموعات .. وووو .. 😁 https://icons8.com/icons/set/Sales

الدرس الاول في UserForm عناصر الدرس 1- اضافة التبويبات الرئيسية للفورم 2- اضافة MultiPage والتحكم في الانتقالات بينها من خلال التبويبات الرئيسة باستخدام Class Module اولا : اضافة التبويبات الرئيسية 1- نقوم باضة userForm ثم نضيف اطار Frame ونضيف داخله عدد 5 Lebel بالنسبة لعنوان اكتب ما تشاء عربي انجليزي لكن المهم Label Name ( Btn1-Btn2-Btn3-Btn4) ا BackStyle =0 BorderStyle=0 واليبل الخامس لتغير خلفية النص Name=AnlBtn BackColor=&H8000000E& ثم نضيف ليبل خاص بالعنوان نسميه PageNo ثم نضيف MultiPage ونضيف في ال Page1 ثانيا ربط التبويبات بالفورم نضيف Class Module نكتب داخله الكود التالي Public WithEvents LblBtn As MSForms.Label Private Sub LblBtn_Click() ' للحركة بين التبويبات UserForm1.AniBtn.Left = LblBtn.Left 'ربط صفحات المالتي بيج مع التبويبات UserForm1.MultiPage1.Value = Right(LblBtn.Name, 1) - 1 'شريط العنوان UserForm1.PageNo.Caption = "Page No " & UserForm1.MultiPage1.Value + 1 & " ( " & LblBtn.Caption & " )" End Sub وفي الفورم Dim LblEvent(3) As New Class1 Private Sub UserForm_Initialize() With Me.MultiPage1 'لتغير استايل المالتي بيج .Style = fmTabStyleNone: .Value = 0 End With 'عدد التبويبات 4 من صفر الي 3 For AddEvent = 0 To 3 Set LblEvent(AddEvent).LblBtn = Me("Btn" & AddEvent + 1) Next AddEvent End Sub الملف بالمرفقات ياريت ننفذ الخطوات ولو اي استفسار ماتترد اتمني من الله اكون بسط الشرح ويكون فيه الاستفادة مع تحياتي MultiPage Officana.xlsm

بسم الله الرحمن الرحمن الرحيم الدرس الثاني لليوزفورم التفاعلي تعال نفكر مع بعض خارج المألوف والمعقول بمعني ايه اي حد بفكر يعمل فورم يسهل استخدام البيانات بقعد يفكر في شكل الفورم وتصميمه وتركيب الاكواد وما الي ذلك في موضوعات تناولت الفورم المرن او حسب مايكون اسمه فورم بيركب علي ورقة العمل وتضبط شغلك عليه لو فكرنا بطريقة مختلغة برمجية خارج حدود التصميم والاكواد والوقت والمجهود طيب الفكرة هنا ايه ...........!!! فورم يصنع لك الفورم يلي انت عاوزه بالالوان والاعمدة والشكل نفس فكرة مواقع التصميم والبلوجر يلي بتعطيك template قالب جاهز وتعدل عليه ندخل في الموضوع النهاردة موضوعنا فورم تفاعلي يصنع لك فورم خدمي نضيف ورقة عمل جديد من خلال التبويب Insert Sheet نضيف عدد الاعمدة يلي انت عاوزها في قاعدة بياناتك من خلال Enter No of columan مثال اضافة ورقة عمل جديدة باسم Officana عدد الاعمدة 5 مثلا (Sno-Name-username-password-Contact) اقوم بادخال اسماء الاعمدة ثم Add من خلال الفورم هاتقدر تعدل المسيات تضيف تحذف كما تشاء بعد ما تنتهي من الاعداد للتصميم لقاعدة بيانات كل يلي عليك تختار الشيت تدخل طريق العرض من خلال عدد الاعمد مثلا 3 وتضغط openForm وشوف النتيجة وهنا هتلاقي وظايف البحث والتعديل والحذف كما اخترت طريقة العرض 3 طيب لو غيرنا طريق العرض 2 لاحظ تغير الفورم معاك لتغير اللون اضغط علي Color هاسيبك تجرب بنفسك وتشوف النتيجة اتمني من الله اكون قدرت اوصلك المعلومة وافيدك الملف بالمرفقات Advance Data Entry Software Officana.xlsm الدرس القادم الفورم التفاعلي المتقدم عن نقاط البيع ان شاء الله برنامج POS لادارة نقاط البيع مع فاتورة ضريبية

العفو منك معلمى العزيز فمنكم تعلمنا ومازلنا نتعلم جزاك الله عنا كل خير 🌹

السلام عليكم ورحمة الله في الحقيقة لم أفهم أيضا طلبك غير أني قمت بمحاولة في الملف المرفق علها تقرب المفهوم من طلبك... قمت ببعض التعديلات على ملفك (إضافات - تنسيقات - معادلات وأكواد). نسخ من ولصق الى .xlsm

هل جميع البيانات بهذه الصيغة أم تختلف ................

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

الله يسلمك يابو ماجد .. 🙂 تشابهت الأسماء .. جرب الحين .. ويحتاجلك تحط بيانات زيادة في الجدول لتتضح النتيجة compoboxMoosak.zip

هو جدول جديد وفارغ 🙂

هذا الذي عملته انا في احد برنامجي (صورة مرفقة من النموذج) ، ويدويا استعملت برنامج irfanView لتصغير الصور ، ولكن بدون تغيير اسم الصور التي انزلتها من الانترنت 🙂 . تقدر تستفيد من البرنامج المرفق ، بعرض الصور في من مجلد معين ، ثم تبرمج احد الازرار حتى تحفظ الصورة بالحجم المطلوب ، والمسار والاسم المطلوب 🙂 جعفر FolderImages v3.1.accdb.zip

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي Book3_MH.xlsx

تفضل اخي قد تم اضافة شيت جديد يتضمن جميع المواد مع اسماء الاساتدة يتم جلب البيانات من خلاله بحيث عند اختيار مادة معينة يتم اظهار أسماء أساتذة تلك المادة فقط في عمود الأستاذ كما يمكنك إضافة أو تعديل الأسماء بداخل الجدول سيتم إظهارها تلقائيا بالقوائم في عمود الأستاذ مثال لإختيار أساتذة مادة اللغة العربية رابط التحميل https://www.mediafire.com/file/7j6dil06ulnhbr2/RGF_SMAINI+MH.xls/file

وعليكم السلام ورحمة الله تفضل Sub taxt() Range("a1:H20") = "0" End Sub

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

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

السلام عليكم ورحمة الله وبركاته جاءت فكرة هذه المقالة بعد أن مررت بتجربة في برنامج يعمل على الشبكة واجهت خلالها مشكلة تتمثل في بطء شديد لإقلاع النماذج من المحطات الفرعية ، وحينها هب بعض إخواني لبذل يد المساعدة ، وتوزعت الحلول المقترحة بين التأكد من الأجهزة المستخدمة ، وإعداد الشبكة ، والبرامج المعترضة ذات الصلاحية وحلول أخرى في صميم البرنامج وفي النماذج خاصة .. لذا أحببت إلقاء الضوء على هذه الحلول وعرضها للرجوع إليها عند الحاجة على غرار ما قامت به السيدة سوزان هاركينز في نقاطها العشر لتسريع قاعدة البيانات الخلفية .. انظر هنا . http://translate.goo...ase/2306&anno=2 وقد قسمت هذه الحلول إلى شقين أمور مؤثرة خارج البرنامج : 1- التأكد من الأجهزة المستخدمة : كالمعالجات والذواكر وبطاقة الشبكة والأسلاك الموصلة والمقسمات فقد تكون رديئة وسرعتها متدنية . 2- طريقة إعداد الشبكة على الأجهزة المستخدمة ، وكتابة عناوين لها ثابتة يدويا 3- جدار الحماية حيث يجب جعل البرنامج من ضمن الاستثناءات 4- برامج مكافحه الفيروسات لها علاقة بالموضوع ، فيجب استثناء مجلد قاعدة البيانات من مسح برنامج مضاد الفيروسات 5- طول المسارات ، أو ما يسمى بمستوى الموقع ، كأن تكون قاعدة البيانات الخلفية داخل أكثر من نموذج فرعي . أمور مؤثرة داخل البرنامج : 6- تهيئة قاعدة البيانات للمشاركة والتحرير .: خيارات / خيارات متقدمة مشترك = نعم سجل محرر = نعم 7- " طول اسم قاعدة البيانات " يجب إعطاء قاعدة البيانات اسما مختصرا مناسبا 8- " ارتباط نموذج البداية بمصدر" فيجب أن يكون نموذج الإقلاع ( البداية ) منضما يرتبط بجدول كمصدر في القاعدة الخلفية 9- من عوامل التسريع : فتح نموذج (منضم) مخفي عند تشغيل الواجهة يعمل طول الوقت . 10- من عوامل البطء : كثرة الوحدات النمطية الثانوية في نموذج البداية هذا جهد المقل أسأل الله أن ينفع به