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 لكي يتم اخذ اسم الملف المراد البحث عنه من خانة البحث.

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

في ٣٠‏/٩‏/٢٠٢١ at 20:25, محمود حاتم احمد said:

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

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

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

في ٢٠‏/٩‏/٢٠٢١ at 22:07, محمد مدحت said:

دلوقتى الملف الى حضرتك ارفقته هنا بيقوم بعمل ايه 
لانى جربته اخفى ظهور رساله الامان لكل برامج الاكسس 

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

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

53 دقائق مضت, Hawiii said:

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

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

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

تحياتي

اخي الكريم اولاً موضوعك هذا لاينتمي الى قسم الاكسس فقط بل هو عام وينطبق على جميع الاقسام لذلك لابد من ان ينقل الى القسم العام 

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

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

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

بالنسبة للشكر والثناء فيكفي انك تستطيع استعمال ازرار الشكر والتقدير اسفل كل مشاركة وهي بالتأكيد ترفع من تقييم صاحب الموضوع اكثر من ترك تعليق

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

اتمنى ان تكون وجهة نظري واضحة لك .. تحياتي  

4 دقائق مضت, مصطفى الفيومى said:

اذا امكن يكون المثال مطبق علي استعلام وياخذ القيمة المراد جبرها من حقل بالاستعلام

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

23 دقائق مضت, مصطفى الفيومى said:

كنت محتاج دالة لجبر الكسور في الاستعلام 

يعني مثلا عندي الرقم ( 11.3333333 ) محتاج يتجبر الي ( 11.5 ) مثلا 

او ( 11.7777777 ) يتجبر الي ( 12 ) او يبقي كما هو مثلا الي ( 11.7 ) 

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

sandanet1.mdb

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

تحياتي

السلام عليكم ورحمة الله وبركاته

تحية طيبة لأساتذتي واخوتي الأفاضل

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

ارجو ممن لديه طريقة او برنامج آخر لاستخراج النماذج والتقارير من ملف mde ان لايبخل علينا به

تحياتي

mdex.zip

2 ساعات مضت, ازهر عبد العزيز said:

في النمودج FC زران  C1 , C2    احتاج عند الضغط على زر C1 وكان الحقل C1 في الجدول TBC = TRUE   اظهار رسالة ERROR1    وبخلافة اظهار رسالة SUCCES1    

وكدلك عند الضغط على زر C2 وكان الحقل C2 في الجدول TBC = TRUE   اظهار رسالة ERROR1    وبخلافة اظهار رسالة SUCCES1

تفضل

C.accdb

متابع بصمت 🤐

8 ساعات مضت, قهرني الأوفيس said:

مرفق نموج

تفضل أخي الكريم 

تجريبي.accdb

11 ساعات مضت, salman123 said:

اني أحببت ها العمل ولكن ليس لنا نصيب به

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

تحياتي

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

أما اذا كان قصدك غير ذلك فيفضل ان تضع مثال ليكي يتم التطبيق عليه وتكون الصورة اوضح

تحياتي

تفضل اخي الكريم .. أتمنى ان يكون هذا طلبك

بالنسبة لسؤالك 

10 ساعات مضت, ازهر عبد العزيز said:

سؤال هل نقل هدة الاكواد الى وحدة نمطية سيؤثر على البرنامج سلبا او ايجبا

فهو يعتمد على درجة تعقيد برنامجك وطريقة تنفيذ الافكار فيه والاكواد التي تستعملها وما الى ذلك من امور .. فنقل الاكواد بشكل عام الى وحدة نمطية لايؤثر بحد ذاته على شيء  

تحياتي 

b (2).accdb

3 ساعات مضت, احمد الفلاحجي said:

اتفضل ان شاء الله يكون ما تريد

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

وبعد البحث والتمحيص اكتشفت ان سبب الخطأ هو باستخدام Deftype statement في بداية الـ Modules كالتالي

Option Compare Database
Option Explicit
DefLng A-Z

السلام عليكم ورحمة الله وبركاته

اخوتي واساتذتي الكرام تحية طيبة وبعد..

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

example.accdb

في ٢٢‏/٢‏/٢٠٢١ at 18:06, عفرنس said:

هل من الممكن تصدير النموذج إلى صيغة PDF ؟؟

نعم أخي الكريم يمكن عمل ذلك عن طريق الكود التالي

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

اخي الكريم انت تقول

في ١٨‏/٢‏/٢٠٢١ at 18:38, Eng. Abdullah said:

لدينا شير بوينت في الشركة ومسؤول النظام اعطاني صلاحية write على احد المجلدات

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

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

في ١٨‏/٢‏/٢٠٢١ at 18:38, Eng. Abdullah said:

قرأت في المواقع وجدتهم يتحدثون عن جعل القاعدة كقاعدة ويب على الشير بوينت

نعم الفكرة سهلة وهي عبارة عن انشاء قوائم او جداول على الشيربوينت ومن ثم من داخل برنامج الاكسس تقوم بعملية الربط معها 

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

ويمكنك وضع البرنامج على اي جهاز في الشبكة والعمل عليه مادام السيرفر مربوط بتلك الشبكة 

في ١٨‏/٢‏/٢٠٢١ at 18:38, Eng. Abdullah said:

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

البرنامج سيظل على اجهزة الكومبيوتر اما الجداول فستكون مرتبطة فقط ولايتغير اي شيء اخر

في ١٨‏/٢‏/٢٠٢١ at 18:38, Eng. Abdullah said:

كيف يمكن ان افعل ذلك علما انني لا املك سوى مجلد بصلاحيته؟

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

اذا كان لديك مجلد فيه قاعدة بيانات اكسس على الشبكة كما اشرت هنا 

في ١٨‏/٢‏/٢٠٢١ at 18:38, Eng. Abdullah said:

ولكن حين وضعتها كملف اكسيس في المجلد اصبح فتحها من خلال الرابط الخاص بها ممل وثقيل ويعطي تنبيهات والى آخره اضافة إلى انني لم استطع تقسيمها بالطريقة العادية

فهذا يعني انك تتحدث على مجلد على الشبكة تمتلك فيه الصلاحية لوضع قاعدة بيانات داخله

تحياتي

1 دقيقه مضت, ابو ياسين المشولي said:

بس تعرف بيكون غالي عليك اذا في ببلدك افضل

دخلت شفت رسايلهم

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

3 دقائق مضت, ابو ياسين المشولي said:

سعر الرسالة الدولية بخمس رسائل

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