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

تفضل التعديل راح يضيف نفس الاسم اذا ما وجده ضمن القائمة الاعجمة Replace (1).accdb

مشاركة مع الخبير @kanory مجرد افكار لا اكثر نمارس هواية البرمجة مع بعض التأملات خذ بعض الافكار الي اضفتها لبرنامجك - اضفت لك جدول و في داخله كلمة مرور - عشان تعرض السطور المخفية راح يطلب منك كلمة مرور طبعا هي نفسها الي في الجدول 1234 بسيطة جدا اشكرا على المتابعة - تقدر تحتفظ باختيارك في عرض الصفوف و اخفائها للمرة القادة في زيارتك الميمونة - خطاباتك اذا برنامج ما حصل الخطاب في الفولدر راح يعطيك رسالة تنبيه رايقة جدا بدون تخويف اتمنى تعجبك الفكرة مجرة افكار خلال لحظات تأمل و اشكرك و اشكر كل من قرأ بتأمل و اعطاني وقته الثمين برنامج متابعة.zip

اصدقائي الاكارم السلام عليكم و رحمة الله و بركاته تحية طيبة يمكن عن طريق المثال التالي انشاء كود QR يدعم اللغة العربية اولا ننسخ المجلد interop(vba) الى المجلد C:\Windows ثم نشغل الملف register.cmd كمسؤول ثم نستخدم المرفق للحصول على كود QR انشاء كود QR.rar

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

أصدقائي الاكارم السلام عليكم و رحمة الله و بركاته في المثال المرفق تطبيق لإظهار قائمة مخصصة باستخدام الزر الأيمن ( عوضا عن قائمة اكسل الافتراضية ) المثال منقول للإفادة1.bmp clsPopup.rar

استاذنا @abouelhassan والله يكفيني ردك الجميل الراقي .

شكر وتقدير واحترام من اخيك

صحيح 24 ولكن حقيقة هي 12 شهر مكرر اعتقد يمكن تحقيق طلبك داخل التقرير باستخدام الدوال .. ولكن التقرير سيصبح بطيئا جدا وسيكون هو آخر الحلول .. اخر الطب الكي دعنا نحاول من خلال الاستعلامات حتى لو اضفنا استعلامات اخرى

Learn the basics my bro Just instead of using CurrentRegion feature change the range you are dealing with example Sub Test() Dim lr As Long With ActiveSheet lr = .Cells(Rows.Count, 1).End(xlUp).Row a = .Range("A2:Z" & lr).Value End With End Sub

لا اعلم لماذا وضعت تسميات الاعمدة حتى 24 .. والسنة 12 فقط تفضل تم تعديل رمز التاريخ واختصاره الى رقم الشهر فقط ... لأن السنة موجودة فعلا في عمود مستقل مثال2.accdb

أخي @abouelhassan البرنامج يعمل سواء مقسمة أو لا .

مثال يساعدك على الحساب VAT_Calculator_01.accdb

لم افهم عليك بالنسبة للطلب الاول .... اذا تم اخفائها فيتم اخفائها في النموذج الرئيسي والفرعي معا ..... وعند الاظهار يظهرها جميعا دفعة واحد ... هل هذا هو المطلوب ؟؟؟؟؟ اما المطلوب الثاني .... فستخدم هذا الكود .... Dim X$ Dim dirr As String Dim i As String i = Nz(Me.k_code, 0) dirr = CurrentProject.Path & "\files\" & i & ".tif" X$ = Dir$(dirr) If X$ = "" Then MsgBox "It does Not exist!", vbExclamation, "Doesn't Exist" Else ShellExecute Me.hwnd, "open", dirr, "", "", 1 End If

الأصدقاء الاكارم السلام عليكم و رحمة الله و بركاته اعتقد ان الموضوع قديم نوعا ما و لكن الكل يعاني من مربعات الحوار حفظ و فتح ملف ( و انا واحد منهم 😅) الحل موجود هنا 🙂 OpenSaveFileDialog.rar

وعليكم السلام ورحمة الله تعالى وبركاته يمكنك اخي استخدام المعادلة التالية واتباع بعض الخطوات البسيطة كما في الصورة تحت رغم ان هده الطريقة ربما متعبة من ناحية اظافة الصور او جلبها من الافضل تحديد مكان ثابت لعرض الصور بشرط خلية معينة عند كتابة اسم الشعار يتم جلبه الى المكان المحدد مسبقا https://streamable.com/ocm476 =INDEX(شعار!$A$1:$B$200;EQUIV(البيانات!$A$2;شعار!$A$1:$A$200;0);2) جلب شعار.rar

قم بكتابة الموقع الجديد في المكان الذي ذكرته هكذا : "WhereToSave = "c:\windows\Bakup حيث أن BECurrentPath هو اسم الدالة التي تحضر لك الموقع الحالي لقاعدة البيانات . وكذلك عليك أن تحذف السجل المحفوظ لهذا الأسبوع من الجدول لكي يقوم البرنامج بحفظ نسخة جديدة لهذا الأسبوع .. 🙂

اخي الكريم تحية طيبة لنفرض جدلا اننا حددنا يوم السبت للنسخ الاحتياطي و شاءت الأسباب ان يكون عطلة! بالتالي لن يتم اخذ نسخة احتياطية حتى يأتي السبت التالي لم لا تجعل الكود عند اغلاق البرنامج حيث تظهر رسالة تنبيه لأخذ نسخة احتياطية ( نعم او لا ) اضف الى ذلك ان المسار system32 مسار محمي و ستجد صعوبة في التعامل معه علاوة على ذلك هو مسار لنظام ويندوز و الويندوز مهدد في اي لحظة بالعطب 😥 لم لا تجعل المسار في القرص D او اي قرص اخر

تفضل عملت لك استعلام جدولي يحقق طلبك انظر في مصدره الذي هو استعلام تحديد وكيف تم تصفية الشهور والسنين وانظر المعيار الذي حدد هذه السنة والتي قبلها فقط مثال اوفيسنا اجمالي المبيعات الشهرية2.mdb

اذا كان هذا طلبك اضغط على أفضل اجابة .

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

السلام عليكم ورحمة الله تعالى وبركاته ممكن مساعدة في إضافة تقويم لإدخال التاريخ في خانات البحث i7 وL7 ظهور التقويم بمجرد الظغط على الخانات تاريخ ميلادي 27/04/2023 test501.xlsx