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

توسيط جميع المكونات في النموذج ككتلة واحدة أثناء التشغيل آليا داخل النافذة عند إعادة تحجيمها. جربوا توسيع النافذة بالفأرة وشاهدوا تأثير التوسيط المباشر. لا أعلم إذا يوجد مثال مشابه أو لا لتوسيط كامل النموذج. من صمم أو شاهد أفكار مشابهة فليضعها هنا لإثراء الموضوع. وهذا موضوع به نفس الكود لفكرة التوسيط، وبه أيضا أفكار عدة جميلة من وجهة نظري تستحق المشاهدة: وإليكم مثال التوسيط: Re-centerExample_02.accdb

كل عام وانت بالف خير اخي جمال .. انا بفكر بشغلة ..في النموذج الرئيسي نعمل خيار كلي/جزئي ..فاذا اخترنا كلي ندخل الكمية من خلال نص في النموذج الرئيسي ...واذا كان جزئي يفتح لنا نموذج فرعي لادخال الكميات الجزئية وتاريخ توريد كل كمية مجرد فكرة وانا اقرأ مشاركتك ...لكن لم اجربها ربما لاحد الاخوة فكرة افضل

نعم ممكن .. هاك : 🙂 تقويم سنوي.accdb

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي يمكنك استخدام المعادلة التالية =SI(A1<>"";SIERREUR(INDEX(Sheet1!$B$1:$B$50000; EQUIV(0; SI(A1=Sheet1!$A$1:$A$50000; NB.SI(Sheet1!$C$1:$C1; Sheet1!$B$1:$B$50000); ""); 0));"");"") حل اخر بالاكواد Sub Test() Dim I As Integer, Cellule As Range With Feuil2 For I = 1 To .Range("A" & Rows.Count).End(xlUp).Row Set Cellule = Feuil1.Cells.Find(What:=Range("A" & I), LookAt:=xlPart) If Not Cellule Is Nothing Then .Range("b" & I) = Cellule.Offset(0, 1).Value Next I End With End Sub مثال1.xlsm

السلام عليكم ورحمة الله وبركاته.. كنت قد طرحت سابقًا موضوع يتكلم عن ارسال رسائل الى الواتس اب لعدد X من المستخدمين من خلال الاكسس وهنا X معناها عدد معين كأن يكون 10 مستخدمين او اكثر او اقل.. الموضوع القديم كان فيه مشكلة وهو ان رسائل الواتس اب الطويلة لا يمكن ارسال او تُرسل بشكل مقطوع! الحمدلله في هذا الاصدار تم التغلب نهائيًا على هذه المشكلة واصبح البرنامج يرسل عدد كلمات بالعدد الذي يسمح به الواتس اب الجديد في هذا الاصدار: امكانية ارسال المرفقات ( الصور فقط ) 1- يمكنك ارسال رسائل فقط 2- يمكنك ارسال صور فقط 3- يمكنك ارسال رسالة مع صورة صورة مشروع الاكسس: قم بتحديد الاشخاص الذين تريد ارسال الرسالة لهم مع وضع نص الرسالة مع امكانية تحديد الكل يمكنك شروط البرنامج بحسب ماتراه مناسباً. النتيجة: ملاحظة يجب ان يكون برنامج الواتس اب موجود في جهاز الكومبيوتر واهم ملاحظة هي يجب كتاب رقم الواتس اب الذي تريد ان ترسل له الرسالة كما يظهر في البرنامج، مثال: لتحميل الواتس اب من الرابط الاتي: https://www.whatsapp.com/download بالمناسبة: الحمدلله انتهيت من برنامج تحويل الصور الى نصوص مهما كانت اللغة ( OCR ) وخصوصا اللغة العربية وحتى الصور التي تكون مكتوبة بخط اليد يتم تحويلها الى نصوص يسهل التعديل عليها في برنامج الوورد البرنامج يعمل بطريقتين: 1- يمكنك تحويل الصور بشكل مباشر 2- يمكنك استخدام الاكسس في ارسال CommandLine يتضمن مسار الصورة ومسار ملف التكست للنص الذي سوف يحفظ وسيقوم البرنامج بعمله لا تنسوني ووالدي من صالح دعائكم. تم بحمد الله. SendWhatsAppMessages.rar

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

السلام عليكم ورحمة الله وبركاته يسرني اليوم أن أقدم لكم هذه الهدية المتميزة والمتواضعة ( زاد المثابر للحصول على أسماء العناصر) هذه الأداة صممتها بفضل الله في أكسس تقوم بإحضار وسرد أسماء العناصر لك لكي تستطيع نسخها ولصقها في أي مكان تريد بكل سهولة ويسر 🙂 شخصيا أستفدت كثيرا منها وسهلت علي الكثير من الجهد وقلصت من وقت العمل بحمد الله وفضله. وهنا اختصرت على نفسي الكتابة وقمت بشرح الأداة مرئيا 🙂 متابعة ممتعة 😊👌🏼 ولا أستغني عن آراءكم وملاحظاتكم .. 🙂 لتحميل الملف المستخدم في الشرح وبه النموذج : التحديث 2.0 : تم إضافة خاصية جلب عناصر النماذج الفرعية .. والتقارير الفرعية .. شكرا للأخ @عمر ضاحى على الفكرة 🙂

شكرا لك لفتح المجال لتلاقح الافكار افكر وانا في بيئة الجداول ... جدول فرعي مرتبط بجدول الاستلام بــــ رقم طلب التوريد او رقم الطلبية ولكن السؤال هنا : اذا كان الاستلام كامل الكمية هل تسجل في الرئيس ام في الفرعي . انا ارى ان الكميات المستلمة تسجل في الفرعي سواء كاملة او مجزأة ليصبح الرئيس لتسجيل بيانات الطلبية كــــ رقم طلب التوريد و رقم الطلبية ونوع الطلبية او الوصف واسم المورد ..والكمية المطلوبة وفي الفرعي يتم ادخال الكمية المستلمة والتاريخ سواء كانت كاملة او جزء منها عند التصفية او طباعة التقارير ... يتم جمع الأجزاء ومقارنتها مع اصل الكمية ، ويمكن طباعة تقرير جزء محدد ويكون في رأس التقرير الكمية الكلية / وما تم استلامه من قبل/ ، وفي التفصيل الجزء الجديد المستلم . في النماذج سيكون هناك في النموذج الرئيس نموذج فرعي يظهر منه سجل واحد فقط لأدراج الكمية المستلمة لمسات : عند فتح فورم الطلبيات واختيار طلبية محددة : سوف يظهر الكمية المطلوبة / الكمية المستلمة اذا كانت الطلبية تم استلامها بالكامل تظهر رسالة او نص ينبه لذلك .. ويكون السجل الفرعي غير متاح والا يكون السجل الفرعي متاح للتحرير والاضافة ولمسات اخرى حسب الحاجة .. مثلا منع ادخال كميات اكبر من المتبقي او اكبر من الكمية الاصل المطلوبة

للأسف أخي لا أمتلك أدوات التسجيل ، والأمر بسيط لا يستدعي وسائل توضيح ، افتح النموذج ثم لتحجيم النافذة أو تكبير عرضها اختر الطرف الأيمن واسحبه لليمين أو اختر الطرف الأيسر واسحبه لليسار. وكذلك تستطيع عكس اتجاه حركة الماوس لتصغير عرض النافذة. ويمكنك أيضا عمل Maximize و Restore للاختبار.

لماذا تظهر معي هذه المشكلة ؟ وكما قال استاذي @kanory ملك دمج المتصفح مع الاكسس الاستاذ @أبو إبراهيم الغامدي

ما شاء الله اخي خالد .. رؤيتك صحيحة 100% وهو ما يحدث فعلا ..ضمن جدول التفاصيل في بند المرتجعات ؛ ويتم حجب الضريبة واي خصومات اخرى ، والفاتورة تظهر باسم مرتجع ومع ذلك المبالغ في عمود واحد .. ويمكن تصفيتها بتقرير يخصها كما تعلم

حتى يمكن استخدام الكود لكل النماذج دون أن تعديل ودون أن يلتزم بأي اسم من كائنات النموذج تم تبديل هذا السطر: Gap = -Me.slbl2.Left إلى: Gap = -minX المثال بعد التعديل: Re-centerExample_02.accdb

لم اضع معيار التاريخ حتى ترى كل اعمال الصيانة واخر تاريخ للصيانة machinesDB.rar

مرفق طريقة الحال ب معادلة vlookup ليستفيد منه الغير وشكرا لكل من حاول المساعدة مثال معادلة vlookup.xlsx

السلام عليكم و رحمة الله جرب هذا الكود Sub AbsData() Dim ws As Worksheet, Sh As Worksheet Dim LR As Long, i As Long, j As Long Dim C As Range, Name As String, dat Set ws = Sheets("Sheet2") Set Sh = Sheets("Sheet3") LR = Sh.Range("C" & Rows.Count).End(3).Row i = 8 Do While i <= LR Name = Sh.Range("C" & i) For Each C In ws.Range("C2:C20") j = 4 Do While j <= 34 If C.Value = Name And C.Offset(0, 1) = "غ" _ And C.Offset(0, 2) = Sh.Cells(7, j) Then Sh.Cells(i, j) = "غ" End If j = j + 1 Loop Next i = i + 1 Loop End Sub

أنا بعتذر منك لأني أرسلت الملف الخاطئ تفضل أخي . barkah-4.rar

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

السلام عليكم ربما يكون طلبك حسب فهمى لسؤالك =YEAR(C3)-YEAR(B3)-(YEAR(G3)-YEAR(F3))

إن شاء الله لن أخيبك، وسوف أعمل على هذا ما اتسع له وقت.. عند الرجوع إلى المشاركة التي جاء منها المثال؛ وجدت أني سبق وعملت على عارض الصور، فقمت بتحسين عرض الصور وبرمجة النموذج المنبثق.. لكني لست راضيا عن هذا العمل.. سوف أقوم في قابل الأيام؛ بعد توفيق الله ومشيئته بتحسن العمل لكي يعمل على مستعرض الويب بالكامل.. Photo.zip

الكود ينفذ المطلوب حذف الصف كاملا EntireRow.Delete لخلايا العمود c من الصف الأول إلى آخر صف مكتوب فيه Cells(Rows.Count, 3).End(3).Row بشرط أن تكون الخلايا فارغة SpecialCells(4) بالتوفيق

بعد اذن الاخوة الافاضل \هذا الكود من سطر واجد Sub salim() Range("c1:c" & Cells(Rows.Count, 3).End(3).Row).SpecialCells(4).EntireRow.Delete End Sub