يوجد خطأ عند الضغط على ايقونة لكتابة كلمة المرور يتم الخروج البرنامج نهائيا

[بلال بلال]

السلام عليكم

يوجد في نموذج ايقونة عند الضغط عليها لكتابة كلمة المرور يخرج البرنامج نهائيا

حتى يتم فتحه

اليك البرنامج

البرنامج.accdb

[Foksh]

1 ساعه مضت, بلال بلال said:

السلام عليكم

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

لم يظهر أي مشكلة عند فتح المرفق وتعديل الأكواد لتعمل مع إصداري 64 ..

ولكن في الإصدار 32 ، ظهرت المشكلة والسبب المعامل الثالث الذي يمرر في استدعاء الـ InpuBoxDK ، عدله ليصبح كالتالي :-

    str_Title = "سبحان الله وبحمده سبحان الله العظيم"
    strAdminPWord = InputBoxDK("Password required to proceed.", str_Title)

بدلاً من :-

    str_Title = "سبحان الله وبحمده سبحان الله العظيم"
    strAdminPWord = InputBoxDK("Password required to proceed.", str_Title, "Enter Licence Code")

 

[بلال بلال]

السلام عليكم 

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

[ابو جودي]

في 10‏/4‏/2026 at 18:16, بلال بلال said:

السلام عليكم

يوجد في نموذج ايقونة عند الضغط عليها لكتابة كلمة المرور يخرج البرنامج نهائيا

حتى يتم فتحه

اليك البرنامج

خلينا نرد 

الرقم &H1324 مش ثابت بيشتغل في أغلب الحالات لكن ممكن يفشل حسب إصدار الاوفيس او الويندوز 
دا غير ان لو حصل Error قبل : UnhookWindowsHookEx hHook الهـوك هيفضل شغال
فى زر الامر تم استخدام : Cancel = True
Cancel بيستخدم فقط في Events فيها  معامل : Cancel مثلا زى : Form_BeforeUpdate(Cancel As Integer)
يعنى من الاخر السطر ده : Cancel = True مالوش أي تأثير والمفروض ينحذف 
كمان استخدام : DoCmd.SetWarnings False مالوش أى لزوم هنا لانه بيستخدم مع الاستعلامات لمنع الرسائل الافتراضية فقط

والرد الشافى فى النقطة دى 

في 10‏/4‏/2026 at 20:16, Foksh said:

ولكن في الإصدار 32 ، ظهرت المشكلة والسبب المعامل الثالث الذي يمرر في استدعاء الـ InpuBoxDK ، عدله ليصبح كالتالي :-

    str_Title = "سبحان الله وبحمده سبحان الله العظيم"
    strAdminPWord = InputBoxDK("Password required to proceed.", str_Title)

بدلاً من :-

    str_Title = "سبحان الله وبحمده سبحان الله العظيم"
    strAdminPWord = InputBoxDK("Password required to proceed.", str_Title, "Enter Licence Code")

 

المعامل الثالث (Default) هو النص الافتراضي داخل مربع الإدخال
فيه احتمالين للمشكلة مع 32 بت
الاول : 
الهوك بيشتغل لحظة إنشاء النافذة وجود نص افتراضي (Default) يخلي الكنترول يتعمل له تهيئة بطريقة مختلفة

النتيجة: الـ Password masking (*) ما يتطبقش أو يحصل خلل

الثانى :
اختلاف داخلي في الـ : InputBox (32 بت مقابل 64 بت)
الـ Edit control ID (&H1324) بيتأثر بوجود Default Text والنتيجة : EM_SETPASSWORDCHAR ممكن تروح لعنصر غلط أو تفشل
طيب السؤال الان هل الحل ده صح و جذرى:

InputBoxDK("Password required to proceed.", str_Title)

من حيث الصحة : جزئيا صح ولكن مش جذرى ومش احترافى ومش الأصح
طيب إيه الحل الصح : 

strAdminPWord = InputBoxDK("Password required to proceed.", str_Title, "")

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

 

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

أكود لعناصر شبحية تم حذفها ولكن مازالت عالقة بالقاعدة