kkhalifa1960

الموضوع مكون من قاعدتين . 1- القاعدة الأولى (ExpireDate.accdb) محمية بباسوورد نظراً لصعوبة كسره بأي برامج اذا كان الباسوورد كبير ومعقد . شغل القاعدة المحمية أولا لأخذ بيانات كمبيوترك وتاريخ نهاية التفعيل وفي حالتنا هنا الباسوورد (tariq1991) يمكن تغييره كما تشاؤون . والقاعدة بها جدول ونموذج عند فتح النموذج بيسجل (txtSerial) و (txtKey) للجهاز . ويدوياً اختار تاريخ انتهاء التفعيل . 2- القاعدة الثانية (Khalifa1960_Activation.accdb) عند تشغيلها بيطلب منك باسوورد القاعدة المحمية . فعند فتح القاعدة الاساسية (Khalifa1960_Activation.accdb) يأخذ بيانات كمبيوترك بيسجل (txtSerialF) و (txtKeyF) للجهاز ,ويقارنهم مع القاعدة المحمية فإذا تطابقا وكان تاريخ التفعيل ساري بعطيق ماسج ثم بيفتح الفورم (LoginingForm) أما غير ذلك يقفل القاعدة . 3- عند نسخ القاعدة الاساسية وتشغيلها على جهاز أخر لا تفتح . أو عند نسخ القاعدتان وتشغيلهم على جهاز أخر بدون الباسوورد ايضا لم تفتح . تفضلوا القاعدتان للتجريب وابداء الرأي . ثم نكمل تأمين القاعدة الاساسية . Khalifa1960_Activation.rar

استاذ @BRAHIM Ben aissa في النموذج المستمر لا يمكن استخدام Visible = False لذا سنستخدم (Conditional Formatting) للحقول كما بالعرض اليك المرفق . واذا تريد العمل على مرفقك. وافني بالرد . BRAHIMBenAissa-1.rar

استاذ @BRAHIM Ben aissa هذه محاولتي حسب مافهمت طالع الشرح واليك المرفق ووافني بالرد . BRAHIMBenAissa.rar

بعد اذن استاذنا العزيز / موسى @Moosak تعديل للنواتين . Option Compare Database Option Explicit #If VBA7 Then Private Declare PtrSafe Function CallNextHookEx Lib "user32" (ByVal hHook As LongPtr, _ ByVal ncode As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr Private Declare PtrSafe Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As LongPtr Private Declare PtrSafe Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" _ (ByVal idHook As Long, ByVal lpfn As LongPtr, ByVal hmod As LongPtr, _ ByVal dwThreadId As Long) As LongPtr Private Declare PtrSafe Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As LongPtr) As Long Private Declare PtrSafe Function SendDlgItemMessage Lib "user32" Alias "SendDlgItemMessageA" _ (ByVal hDlg As LongPtr, ByVal nIDDlgItem As Long, ByVal wMsg As Long, _ ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr Private Declare PtrSafe Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As LongPtr, _ ByVal lpClassName As String, _ ByVal nMaxCount As Long) As Long Private Declare PtrSafe Function GetCurrentThreadId Lib "kernel32" () As Long #Else Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, _ ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" _ (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, _ ByVal dwThreadId As Long) As Long Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long Private Declare Function SendDlgItemMessage Lib "user32" Alias "SendDlgItemMessageA" _ (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal wMsg As Long, _ ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, _ ByVal lpClassName As String, _ ByVal nMaxCount As Long) As Long Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long #End If Private Const EM_SETPASSWORDCHAR = &HCC Private Const WH_CBT = 5 Private Const HCBT_ACTIVATE = 5 Private Const HC_ACTION = 0 #If VBA7 Then Private hHook As LongPtr #Else Private hHook As Long #End If

استاذ @2saad احتمال انك تعمل على 64بت إليك الملف كي يعمل على النوانين 32 بت و64 بت . ووافني بالرد . Khalifa1960_Analog_Clock.rar

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

ساعة حائط قديمة ذات اصوات للثواني وللساعة مع صوت العصفور كوكو وحركة البندول . Khalifa1960_Analog_Clock.rar

مشاركة مه استاذ @Foksh تفضل استاذ @soik225998 المرفق بعد التعديل . دليل الهاتف الاخير-1.rar

ساعة بعقارب كان طلبها استاذنا @الحلبي وأضفت عليها أصوات للثواني يعمل الاختيار الاول عند تشغيل الفورم ويمكن تغيير صوت الثواني من الليستبوكس .كذلك صوت الساعة(كوكو) يعمل مع ظهور صورة عصفور بعدد رنات تساوي عدد الساعة الصحيح مثلاً الساعة 01:00:00 رنة واحدة وظهور العصفور مرة واحدة ..... وهكذا الى الساعة 12:00:00 بعدد 12 رنة وظهور العصفور 12 مرة . اليكم المرفق كامل مفتوح المصدر . Cuckoo_Clock.rar

تفضل المرفق بعد التعديل . BoAhmed_db1 - 3.rar

تفضل استاذي @أبو أحمد امرفق بعد التعديل بطلبك . ووافني بالرد . BoAhmed_db1 - 2.rar

مشاركة مع استاذ @Foksh تفضل استاذ @أبو أحمد محاولتي . BoAhmed_db1.rar

تفضل استاذ @الحلبي ومرفق معها الصورة ولكي تتأكد بأن الخلفية شفافة افتحها بعارض الصور . لأن في Access (خصوصًا في النماذج والتقارير) عند إدراج صورة PNG بخلفية شفافة، يقوم البرنامج غالبًا بتحويل الخلفية الشفافة إلى لون أبيض لأن محرّك العرض في Access (خاصة Access 2010) لا يدعم الشفافية بشكل كامل مثل برامج التصميم. 🔹 بعض الملاحظات: Access 2010 وما قبله لا يدعم شفافية PNG داخل الـ Form/Report. حتى في الإصدارات الأحدث، الشفافية أحيانًا تتحول إلى أبيض أو رمادي حسب إعدادات الخلفية. Access يتعامل مع الصور داخل Image Control بشكل محدود (لا يوجد Layering أو دعم شفافيات مثل PowerPoint أو Word). اذا تريد تحويل لون الخلفية .......................... ارسل لون الخلفية التي تريدها مثلاً اللون الاحمر ((255,0,0)RGB) وانشاء الله بثبته للخلفية ولكن حدد هل خلفية الساعة فقط أم الساعة وباقي خلفية الصورة . 2AnalogClock-2.rar

تفضل استاذي @الحلبي طبعاً مفيش أصغر من ذلك وكل البرمجة بالفورم . ووافني بالرد . 2AnalogClock.rar

تقضل استاذي @الحلبي اليك مرفق به 5 ساعات اختار كما تحب . ووافني بالرد . . AnalogClock.zip

تفضل استاذ @Radwan0 محاولت حسب ما فهمت . اليك المرفق . افحصه جيداً وجرب الازرار ووافني بالرد . Link Microsoft Access to HTML.rar

اليك طلبك استاذ @dd13901390 ووافني بالرد . اذا كان هذا طلبك اضغط تمت الاجابة حتي يتم غلق الموضوع بشكل لائق . dd13901390 - 3.rar

ممكن نسخة 2010 أو 2003 كي اساعدك ووضح طلبك ولا تبخل بالشرح .

هذا ما أعمل به شخصياً لأن به تفعيل الباركود .

هل تحب عرض المستندات ( صور أو PDF ) بالفورم . وافني بالرد .

مشاركةً مع استاذ @Foksh تفضل استاذ @BRAHIM Ben aissa مرفقي ووافنا بالرد . close option and shift.rar

استاذ @dd13901390 تم اضافة حقل لمسار المستند بالجدول فهل هذا ما تقصد .اليك الشرح والمرفق . ووافني بالرد . dd13901390 - 2.rar

تم تعديل الخطأ 2501 أما الباقي وضح طلبك .... dd13901390 - 1.rar

الحمد لله توني راجع من رحلة علاج ... شكرلاً لكم وانتم ايضاً وحشتوني جداً ..... استاذ @dd13901390 نعم وصل الملف بدون شرح طلباتك ؟؟؟؟

نظم وحدد طلبك حتى نفهمه ونساعدك ولا تبخل بالشرح