ابوأسد

تشكر على المبادرة

الامر متاح اخي محمد ايمن.. فقط اكتب "0" بالنسبة للمتغيرات الرقمية، وعلامتي التنصيص الفارغتين للمتغيرات النصية.

السلام عليكم ورحمة الله من منا لا يعرف DLookUp والتي تعني "اعلى نظرة" وبالتالي يرجع لنا اعلى نتيجة.. بس.. ليش ماتكون DLookAll "نظرة شاملة" وترجع لنا جميع النتائج مرة واحدة؟ لا قلق، نزل المرفق DLookAll.rar

والله غريبه انا حاولت اشغل اكثر من ملف على اربعة اجهزة مختلفة كلها "ويندوز 10 اوفيس 2013" والنتيجه واحدة .. يغلق الاوفيس مباشرة ؟

السلام عليكم اعزائي معظمنا يعرف ان تغيير امتداد ملف الاكسس من "accdb,accde" الى "accdr" له مميزات اقلها منع الـ شفت، اخفاء قوائم الاكسس الاساسية ، منع المستخدم من الدخول لاعماق المشروع... بس ليش مايشتغل المشروع بامتداد "accdr" في ويندوز 10 وايش الحل؟

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

مشاركة بسيطة لملف قديم نصوص منسقة.rar ويمكن عمل دالة في مويل لبناء جملة الـ HTML واستخدامها في أي مربع نص، كما أنه يجب أن يكون من خصائص مربع النص (نص منسق) Function FormatText(TargetText As String, _ Optional FontName As String, _ Optional FontSize As Integer, _ Optional FontColor As String, _ Optional FontBold As Boolean, _ Optional FontItalic As Boolean, _ Optional FontUnderline As Boolean) As String 'النص 'اسم الخط بين علامتي تنصيص 'لون الخط باللغة الانجليزية أو رقمه 'بنط عريض 'مائل 'تحته خط Dim FontB0, FontB1, FontI0, FontI1, FontU0, FontU1 As String 'تحياتي/ أبواسد If FontBold = True Then FontB0 = "<b>" FontB1 = "</b>" Else FontB0 = "" FontB1 = "" End If If FontItalic = True Then FontI0 = "<i>" FontI1 = "</i>" Else FontI0 = "" FontI1 = "" End If If FontUnderline = True Then FontU0 = "<u>" FontU1 = "</u>" Else FontU0 = "" FontU1 = "" End If FormatText = "<font face=" & FontName & " , size=" & FontSize & " , color=" & FontColor & FontB0 & FontI0 & FontU0 & "" & TargetText & "" & FontU1 & FontI1 & FontB1 & "</font>" End Function

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

ولكنني لا اريد اخفاء شاشة اكسس ، فقط اريد تعطيل عنصر التحكم لاطار الاكسس وازراره انا في انتظاركم

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

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

السلام عليكم رد سريع وحاسم مع الشكر والتقدير اليكم الكود بعد التطبيق مع بعض التعديلات واللمسات الخاصة تتمه للفائدة هل الملف مفتوح.rar

اعزائي الكرام ارجو منكم تزويدي بكود VBA يرجع True اذا كان الملف الخارجي X مفتوح.. شاكرين ومقدرين لكم

تم التطبيق بنجاح ولكن بعد استبعاد نوع المتغير Db ولا ادري لماذا لم يتعرف عليه البرنامج عندي.. اكرر الشكر للاستاذ ابوخليل تم التطبيق بنجاح ولكن بعد استبعاد نوع المتغير Db ولا ادري لماذا لم يتعرف عليه البرنامج عندي.. اكرر الشكر للاستاذ ابوخليل اليكم المرفق انشاء-تعديل-حذف كلمة مرور قاعدة بيانات بعيدة.zip

اعجز عن شكرك ورد جمايلك ساطبق الكود واخبرك بالنتيجة

لا زال عندي امل في الرد

يا مسهل يا رب

اعزائي ارجو منكم تزويدي بكود VBA لانشاء او تغيير كلمة مرور قاعدة بيانات اكسس خارجية .. مشكورين