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

السلام عليكم ورحمة الله اليك الكود الثانى Sub AddCircles2() Dim Shp As Shape, ws As Worksheet Dim i As Long, j As Long, p As Long Dim C As Range, x As Integer, y As Integer 'DelShap Set ws = Sheets("ورقة1") x = ws.Range("W1").Value i = 13 Do While i <= 20 j = 5 For Each C In ws.Range(Cells(j, i), Cells(13, i)) On Error Resume Next y = InStr(C.Value, "/") If C.Value <> "" And y > 0 Then Set Shp = ActiveSheet.Shapes.AddShape(msoShapeOval, _ C.Left, C.Top, C.Width, C.Height) p = p + 1 Shp.Fill.Visible = msoFalse Shp.Line.Weight = 1.5 Shp.Line.ForeColor.SchemeColor = 10 If p >= x Then Exit Sub End If Next j = j + 2 i = i + 1 Loop End Sub

السلام عليكم ورحمة الله تم التعديل ليعمل على خلايا الفصول فقط Sub AddCircles1() Dim Shp As Shape Dim i As Long, j As Long, p As Long Dim C As Range, x As Integer, y As Integer DelShap x = Range("V1").Value i = 10 Do While i >= 6 j = 5 Do While j <= 13 For Each C In Range(Cells(j, i), Cells(13, i)) On Error Resume Next y = InStr(C.Value, "/") If C.Value <> "" And y > 0 Then p = p + 1 Set Shp = ورقة1.Shapes.AddShape(msoShapeOval, _ C.Left, C.Top, C.Width, C.Height) Shp.Fill.Visible = msoFalse Shp.Line.Weight = 1.5 Shp.Line.ForeColor.SchemeColor = 10 If p >= x Then Exit Sub End If Next i = i - 1 Loop j = j + 2 Loop End Sub

اعرض الملف الأرشيف الالكترونى تجربة طريقة بحث جديدة جدا البرنامج متكامل مفتوح المصدر ويمكن التحكم والتغيير به ليصبح ملكك برنامج الأرشيف الألكترونى للملفات الصادرة والواردة ومحاضر اجتماع وعرض الملفات بطريقة الصحف عن أى شيىء وكل شيىء ويوجد بالبرنامج طريقة جديدة لعرض المرفقات المرتبطة مع السجل الحالى فقط أرجو من الأخوة الأفاضل التكرم بالتجربة والاطلاع والتقييم والتحسين أن أمكن الاستاذة الأفاضل البرنامج يشمل أعمال كاملة (المهمات الأساسية + نسخ احتياطية - حفظ المستندات خارج القاعدة - نسخ الملفات ونقلها من وألى الجهاز لأى مكان تختاره - امكانية اخفاء المرفقات واضهارها ....الخ ويشمل اعمال تحت التنفيذ (ادخال محاضر - وملفات متنوعة - تحكم بألوان النماذج وتغيير لها بضغطة واحدة ملحوظة هامة يجب الحاق المكتبات كما بالصورة المرفقة وتحميل برنامج اكروبات ريدر للسماح بالمكتبات بالاضافة والتمكين الباسورد تنحصر برقم 0000 لأى اختيار برجاء التقييم ووضع تعليق يتضمن اصدار الويندوز والأفيس الملف بحجم 2.90 MB وضعته على الميديا فير كما نصحنى رفاق المنتدى والاساتذة به وكل الشكر للاستاذ أبا جودى على الرابط التالى https://www.mediafire.com/file/gvp38c8299mk7yy/Data+Zero.rar/file صاحب الملف walid7799 تمت الاضافه 07 ديس, 2021 الاقسام قسم الأكسيس  

هذه مجموعة أكواد من حروف البدل أستخدمها كثيرا أثناء إجراء بعض العمليات في الورد، وقد أفادتني كثيرا، وللعلم: كثير من هذه الأكواد استفدتها من إخواننا الأفاضل في هذا المنتدى المبارك، ورأيت نشرها هنا لتعم الفائدة، والله من وراء القصد، وهذه هي الأوامر: - البحث عن كلمة أولها (ال) وآخرها (تنوين) <ال[! ]@[ًٌٍ]> - كلمة أولها (ال) وآخرها (ون) ليس بعدها (فتحة) ال[! ]@(ون)[!َ]> - البحث عن أي كلمة أو رمز، أو رقم: <[! ]*> - البحث عن أي كلمة: <[! ]@> - البحث عن أي كلمتين: <[! ]@> <[! ]@> - البحث عن أي كلمتين الأولى تبدأ بهمزة، والثانية تنتهي بتاء مربوطة: <أ[! ]@> <[! ]@ة> - البحث عن أي كلمتين الأولى آخرها ألف، والثانية تنتهي بالألف: <[! ]@ا> <[! ]@ا> - البحث عن أي فقرة إلى كلمة (في) مثلا للتظليل: <[! ]*في> - تحديد ما بين الفاصلتين: ، <[! ]*>، - تحديد ما بين كلمتين مثل: عن <[! ]*> عن - البحث عن أي كلمة مكونة من حرفين: <[! ]@{2}> - البحث عن أي كلمة مكونة من حرفين آخرها تنوين: <[! ]@{2}[!ًٌٍ]> - البحث عن كلمة خمس حروف ليس منها علامات الضبط: <[! ]@{5}[ًٌٍَُِّْ]> - للبحث عما بين قوسين هلاليين: (\(*)\) - للبحث عن أي رقم دون الحروف: [0???-9] - للبحث عن أي كلمة دون الأرقام: <[أ-ى][! ]@> - للبحث عن أي رقمين بينهما فاصلة: [0???-9]، [0???-9] - لتحديد ما بين شرطتين مائلتين: / [???0-9]*/ - لجعل علامة الحاشية بين قوسين: في مربع بحث اكتب الآتي ^f وفي مربع استبدال اكتب (^&) وهذا الكود يعني أن المكتوب في خانة البحث يساوي المكتوب في خانة الاستبدال، فيمكن استخدامه مع أي حرف وأي رقم، حيث الاستبدال لا ينفع مع أي حرف وأي رقم، لكن بإضافة هذا الكود يصبح الاستبدال متاحا. للبحث عن أي رقم بعده صفر (0) بعده سلاش (/) على صورة (08/):0^#/

السلام عليكم استاذنا الغالى شكر الله لك وجزاك واعطاك وبارك في ذريتك وفيت وكفيت جعله الله في ميزان حسناتك وجعله علم ينتفع به شكراً

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

السلام عليكم 🙂 وهنا ستجد طرق اخرى جعفر

بالنسبة الى عدم التعديل من خلال زر نعم/لا .. تستطيع عمل الاتي لمربعات النص Private Sub Option1_Click() If Me.Option1.Value = -1 Then Me.Text1.Enabled = False Me.Text2.Enabled = False Else Me.Text1.Enabled = True Me.Text2.Enabled = True End If End Sub

تفضل اخي العزيز...هل هذا ما تقصده؟ Nouveau Microsoft Access Database.accdb

تفضل التعديل sendemail2.zip

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

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

انتم الأجمل أستاذي الجليل ومعلمي القدير و والدى الحبيب أستاذ @ابوخليل نعم استاذى وكذلك المرفق الأخير هذا يدعم كلتا النواتان 32 , 64 كذلك فقط هذا الاخير الذى اشرت اليه يعتمد على مكتبة جافا وملفات الـ dll الخاصة بها نعم أستاذي الجليل وذلك لما احسسته من صعوبة وعناء بعض أحبابي في طريقة تسجيل المكتبة لذلك اشرت في رأس الموضوع الى كل الموضوعات السابقة لتكون مجمعة في هذا الموضوع ليكون بمثابة البستان وليقطف منه كل من يريد ما تشتهيه نفسه من خلال متابعتي لأحبابي وردهم على المشاركات السابقة ونظرا لأهمية الموضوع حتى وأن البعض من احبابنا أراد أداة تسهل عملهم أمعنت النظر ليخرج بأبسط ما يمكن واقل تعقيد ليخدم الجميع... فقط لوجه الله تعالى جزانا الله وإياكم وكل المسلمين خيرا ان شاء الله فعلا الموضوع كان متعب جدا جدا جدا وتقريبا ظللت بدون نوم لفترات كبيرة بسببه.. ولكن من كان يهمهم هذا الموضوع اهميتهم عندي اكبر وانت على رأسهم أستاذي الجليل وفى النهاية الحمد لله تعالى الذى هدانا وما كنا لنهتدي لولا ان هدانا الله عزوجل فذلك فضل الله الذى تتم بنعمته الصالحات سبحانك اللهم لا علم لنا الا ما علمتنا انك انت العليم الحكيم

كلمة مرور الدخول 1010 كلمة مرور التحول بين النماذج 0000 كلمة المرور لتسجيل الدخول 1010 كلمة المرور للدخول على باقى النماذج 0000

طريقة تغيير أى قاعدة بيانات من 32 بت إلى 64 بت كالتالى تحويل 32 إلى 64 بت.bmp

تفضل هذا التعديل =IIf([حالة الدفع]="تم السداد";[مجموع]-[مبلغ];IIf([حالة الدفع]="تم السداد";[مجموع]-0;IIf([حالة الدفع]="مؤجل";[مجموع]-0;0)))

السلام عليكم ورحمة الله الكود الاول لمسح الدوائر Sub DelShap() Dim sh As Shape For Each sh In ActiveSheet.Shapes If sh.AutoShapeType = msoShapeOval Then sh.Delete End If Next End Sub الكود الثانى لرسم الدوائر للحصص الزائدة Sub AddCircles1() Dim Shp As Shape Dim i As Long, j As Long, p As Long Dim C As Range, x As Integer x = Range("V1").Value i = 10 Do While i >= 7 j = 4 For Each C In Range(Cells(j, i), Cells(12, i)) If C.Value <> "" Then Set Shp = Sheet1.Shapes.AddShape(msoShapeOval, _ C.Left, C.Top, C.Width, C.Height) p = p + 1 Shp.Fill.Visible = msoFalse Shp.Line.Weight = 1.5 Shp.Line.ForeColor.SchemeColor = 10 If p >= x Then Exit Sub End If Next j = j + 2 i = i - 1 Loop End Sub الكود الاخير لرسم الدوائر فى الجدول الثانى Sub AddCircles2() Dim Shp As Shape Dim i As Long, j As Long, p As Long Dim C As Range, x As Integer DelShap x = Range("W1").Value i = 13 Do While i <= 19 j = 4 For Each C In Range(Cells(j, i), Cells(12, i)) If C.Value <> "" Then Set Shp = Sheet1.Shapes.AddShape(msoShapeOval, _ C.Left, C.Top, C.Width, C.Height) p = p + 1 Shp.Fill.Visible = msoFalse Shp.Line.Weight = 1.5 Shp.Line.ForeColor.SchemeColor = 10 If p >= x Then Exit Sub End If Next j = j + 2 i = i + 1 Loop End Sub

نصيحة تجنب استخدام اللغة العربية هذا من مساوئ استخدامها لا تعرف ترتيب الكود وبدايته من نهايته

هذه محاول لتطبيق المرحلة الثانية تشفير البيانات ولكن التشفير لا يدعم العربية .. آمل من الاساتذتي الكرام ايجاد الحلول ايضا عنوان المؤسسة مقيد بـــ 12 حرف آمل ايضا من اساتذتي فك القيد ملحوظة : حمل تطبيق الهيئة من المتجر ( هو عبارة عن كيمرا لقراءة الكيو آر ) اسمه : E-Invoice Qr Reader استدراك : المثال المرفق امتداد لموضوع ابو جودي هنا DataQr.rar

34 - عرض رسالة لتحديد تاريخ ووقت وتحديد احدهما افتراضياً. صورة لفهم المحتوى وقاعدة بيانات بها مثال لطريقة العمل . 34 - Msgbox With DateTime Picker with Checked.accdb ولا تنسي ان تسترد الكلاس الموجود لبرنامجك لانه سوف يبني عليه باقي السلسلة . بالتوفيق . كريم الحسيني .

33 - عرض رسالة لتحديد تاريخ ووقت وتحديد اى منهما . صورة لفهم المحتوى وقاعدة بيانات بها مثال لطريقة العمل . 33 - Msgbox With DateTime Picker with Check.accdb ولا تنسي ان تسترد الكلاس الموجود لبرنامجك لانه سوف يبني عليه باقي السلسلة . بالتوفيق . كريم الحسيني .

32 - عرض رسالة لتحديد تاريخ ووقت مع قيم افتراضية . صورة لفهم المحتوى وقاعدة بيانات بها مثال لطريقة العمل . 32 - Msgbox With DateTime Picker.accdb ولا تنسي ان تسترد الكلاس الموجود لبرنامجك لانه سوف يبني عليه باقي السلسلة . بالتوفيق . كريم الحسيني .

31 - عرض رسالة لتحديد تاريخ مع تاريخ افتراضي . صورة لفهم المحتوى وقاعدة بيانات بها مثال لطريقة العمل . 31 - Msgbox With Date Picker With a default Value.accdb ولا تنسي ان تسترد الكلاس الموجود لبرنامجك لانه سوف يبني عليه باقي السلسلة . بالتوفيق . كريم الحسيني .

اتفضل يا استاذ @abouelhassan abouelhassan.accdb

ملحوظة هااااااااااااااااااامة : جعل اتجاه الرسالة من المين الى اليسار وليس العكس لدعم اللغة العربية عند الخاصية Flags. قم بوضع هذا العلم فى نهاية السطر : Or TDF_RTL_LAYOUT لتكون النتيجة النهائية كما بالمثال . .Flags = TDF_COMBO_BOX Or TDF_INPUT_BOX Or TDF_RTL_LAYOUT وهذا مثال :

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

اخي احمد 🙂 انت لا تريد إعادة "الترقيم التلقائي" في الجدول ، ابحث في المنتدى وستجد الكثير والكثير 🙂 وإنما تحتاج الى ترقيم تلقائي في استعلام/نموذج : . . . وفي التقرير : جعفر

الطريقة الثانية هنا الاستبدال بالاختيار ، عن طريق بلوكات يتم حفظها و تستدعي يدويا او كما يسمي Building Block و الطريقة كالتالي لنفرض أنك تريد توفير وقت كتابة جملة السلام عليكم و رحمة الله وبركاته اكتبها فى الملف لاول مرة ثم اخترها و اضغط ALT+F3 سيظهر لك المربع التالي و سنحفظها باسم السلام ضمن العبارات المحفوظة Building Block و هكذا تم حفظها و لاستدعاءها من قائمة Insert اختار Quick Parts Building Blocks organizers ثم اختار الجملة التي تريد ادراجها و سيتم ادراج الجملة المحفوظة المطلوبة و طبعا يمكنك اختصار الخطوات عن طريق اضافة ال quick Parts الى قائمة الاختصارات السريعة فتظهر كايقونة يمكن الوصول اليها سريعا و اختصار الخطوات السابقة كما هو مبين فى الصورة التالية ثانياً : من ناحية اخرى ستجد الوورد يقترح عليك الاستبدالات المسجلة عندما تكتب بعض الجروف دون الحاجة لادراج المكونات يدويا مثلما هو مبين فى الصورة التالىة و كل ما عليك هو ضغط Enter ليتم ادراج الجملة بالكامل 😄 ثالثاً: أيضا هناك حل آخر اذا لم يظهر لديك الاقتراح كما سبق ان تكتب كلمة السلام ثم تختارها دون زيادة مسافات فى النهاية ثم تضغط F3 و سيتم الاستبدال مباشرة من القائمة المخزنة

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

ولإثراء الموصوع هذا برنامج اخر برنامج مخازن شامل المحاسب الشاطر جروب.xlsm