sandanet

طبعا ممكن كالتالي: Dim strComputer As String Dim XobjWMI As Object Dim XFolders As Object Dim fs As Object Dim objFolder As Object Dim myfile As String strComputer = "." Set XobjWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set XFolders = XobjWMI.ExecQuery("select * from Win32_Directory where Name Like '%:\\%'") For Each objFolder In XFolders Set fs = CreateObject("Scripting.FileSystemObject") If fs.FileExists(objFolder.Name & "\test.mdb") = True Then myfile = objFolder.Name & "\test.mdb" Exit For End If Next الكود السابق يستخدم للعثور على مسار ملف ما مثلا (test.mdb) على الكمبيوتر باستخدام Windows Management Instrumentation (WMI) و FileSystemObject. بامكانك عمل فورم فيه خانة بحث ووضع الكود السابق في حدث بعد التحديث واستبدل الاسم test.mdb باسم مربع البحث مثلا me.search لكي يتم اخذ اسم الملف المراد البحث عنه من خانة البحث.

كيف يتم استخدام الملف فهو غير معروف الصيغة

انت من اي دولة؟

أخي العزيز لايمكن اعطائك نصيحة في غير محلها مالم تحدد مجال اهتماماتك فلكل لغة برمجة مجال معين مخصصه له

الملف السابق هو ملف تنفيذي يلغي رسائل الأمان الخاصة بالاكسس لكن لا أعلم ما اذا كان فعال مع الاصدارات الحديثة ام لا لكنه فعال مع الاصدارات 2007 و 2010

هدية رائعة جداً استاذنا القدير أباجودى جعلها الله في ميزان حسناتك ... وفقك الله

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

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

تفضل .. الرقم 1 اجعله 0 فقط

تفضل .. لكن اظن ان الرقم 11.3333 يجبر الى 11 لانه أقل من 11.5 اما الرقم الاعلى من 11.5 فيجبر الى 12 وهكذا sandanet1.mdb

اخي انصحك بتغيير عنوان الموضوع فورا لانه مخالف لقوانين المنتدى وسيتم إغلاق موضوعك ولن تستفيد شيء .. كما انصحك بوضع مرفق للعمل عليه فالصورة لاتفي بالغرض تحياتي

السلام عليكم ورحمة الله وبركاته تحية طيبة لأساتذتي واخوتي الأفاضل من خلال بحثي عن طريقة ما لاستخراج النماذج والتقارير من ملف mde وجدت هذا البرنامج وهو مفتوح المصدر واعتقد انه يحتاج الى بعض التعديلات لكي يعمل بالشكل الصحيح... ارفقه لكم للتجربة ارجو ممن لديه طريقة او برنامج آخر لاستخراج النماذج والتقارير من ملف mde ان لايبخل علينا به تحياتي mdex.zip

تفضل C.accdb

متابع بصمت 🤐

تفضل أخي الكريم تجريبي.accdb

اخي الكريم اذا كنت راغباً في تعديل اكواد البرنامج بما يتناسب عملك فبإمكانك مراسلة صاحب البرنامج نفسه أو طلب برنامج مشابهه له تحياتي

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

تفضل اخي الكريم .. أتمنى ان يكون هذا طلبك بالنسبة لسؤالك فهو يعتمد على درجة تعقيد برنامجك وطريقة تنفيذ الافكار فيه والاكواد التي تستعملها وما الى ذلك من امور .. فنقل الاكواد بشكل عام الى وحدة نمطية لايؤثر بحد ذاته على شيء تحياتي b (2).accdb

اشكرك جزيل الشكر أخي احمد .. نعم هذا هو بالضبط ماكنت ابحث عنه .. الموضوع غريب نوعا ما حيث ان الكود دائما ماكان يعطيني خطأ حتى بالصيغة التي تفضلت بها خصوصا بعد اضافته الى برنامجي الرئيسي وبعد البحث والتمحيص اكتشفت ان سبب الخطأ هو باستخدام Deftype statement في بداية الـ Modules كالتالي Option Compare Database Option Explicit DefLng A-Z

السلام عليكم ورحمة الله وبركاته اخوتي واساتذتي الكرام تحية طيبة وبعد.. أبحث عن طريقة يمكن من خلالها السماح بادراج قيمة فارغة في خانة التاريخ عن طريق استخدام عبارة INSERT بشرط ان لا اضطر الى استعمال صيغتين لعبارة الـ INSERT واحدة في حال كانت خانة التاريخ فارغة واخرى لا. example.accdb

نعم أخي الكريم يمكن عمل ذلك عن طريق الكود التالي DoCmd.OutputTo acOutputForm, "yourform", acFormatPDF, CurrentProject.Path & "\" & Format(Date, "dd-MM-yyyy ") & ".pdf", False تضع الكود السابق تحت زر امر على النموذج .. ستجد انه قام بحفظ الفورم بصيغة pdf في نفس مسار البرنامج لديك ملاحظة: اذا اردت ان يفتح الملف بعد الحفظ غير false الى true كما بامكانك تصدير الفورم يدوياً كما في الصورة تحياتي

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

هل جربت الملف هذا https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=190168

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

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