برجاء المساعدة في كلمة مرور لزرار

[سامر محمود]

الاخوة الكرام الافاضل 

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

من فضلكم بين ايديكم كود لزرار في البرنامج عايز اضيف عليه inputbox لكلمة مرور بحيث يطلبها مني الاول قبل تفعيل الامر الموجود

اكون شاكر لحضراتكم جدا علي المساعدة 

Private Sub ÃãÑ63_Click()
On Error GoTo Err_ÃãÑ63_Click

    Dim stdocname As String
    Dim stLinkCriteria As String
      If em_33 = -1 Then
  stdocname = "mentenans"
    DoCmd.OpenForm stdocname, , , stLinkCriteria
 End If
   
Exit_ÃãÑ63_Click:
    Exit Sub

Err_ÃãÑ63_Click:
    MsgBox err.Description
    Resume Exit_ÃãÑ63_Click
    End Sub

[Foksh]

تفضل بطريقة أخرى

واستبدل كود الرسالة الأول والثاني حسب ترتيب الشروط لديك

 

Pass.accdb

تم تعديل أكتوبر 18, 2023 بواسطه Foksh

[سامر محمود]

11 دقائق مضت, Foksh said:

تفضل

 

Pass.accdb 408 kB · 0 downloads

تسلم اخي العزيز الكريم @Foksh

بس معلش اعذرني ليا استفسار الباسورد لما بغيره مش بيقبله وكمان عايز بس اخليه ***** مش ظاهر 

معلش بتعبك معايا

[Foksh]

منذ ساعه, سامر محمود said:

وكمان عايز بس اخليه ***** مش ظاهر

اخي الكريم ، في هذا النوع من الرسائل التي من النوع InputBox ، لا أعتقد إنه يمكن تغيير الـ Mask ليصبح ***** ( على حد علمي ومعرفتي ) ، ولكن يمكن الإستغناء عن الفكرة بعمل نموذج منفصل يعمل كإنه رسالة باسوورد .

[شايب]

11 دقائق مضت, Foksh said:

اخي الكريم ، في هذا النوع من الرسائل التي من النوع InputBox ، لا أعتقد إنه يمكن تغيير الـ Mask ليصبح ***** ( على حد علمي ومعرفتي ) ، ولكن يمكن الإستغناء عن الفكرة بعمل نموذج منفصل يعمل كإنه رسالة باسوورد .

مع ان فكرة النموذج جميلة

لكن ممكن عمل ذلك ويوجد في الموقع عشرات الامثلة

هنا مثال لاخينا د.حسنين

اقتباس

 

اخونا شايب

[Foksh]

4 دقائق مضت, شايب said:

مع ان فكرة النموذج جميلة

لكن ممكن عمل ذلك ويوجد في الموقع عشرات الامثلة

هنا مثال لاخينا د.حسنين

اخونا شايب

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

    hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID)
 

 

ما اضطرني إلى اقتراح الفكرة أعلاه 

إلا إذا كان هناك توضيح لنوع الخطأ وسببه .

 

[شايب]

49 دقائق مضت, Foksh said:

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

هذا الخطا اذا كنت تستخدم اصدار 64

فلا يكفي اضافة ptrsafe

وانما نحتاج تغيير نوع المتغير من long الى LongPtr

 

مرفق مثال من موقع اجنبي قمت بتعديله بشكل سريع

 

demo of inputbox with mask.mdb

[Foksh]

2 ساعات مضت, شايب said:

وانما نحتاج تغيير نوع المتغير من long الى LongPtr

أبدعت ، جزاك الله كل خير أستاذ @شايب 

هذه المعلومة ما خطرت في بالي للأسف 

تم تعديل أكتوبر 18, 2023 بواسطه Foksh

[سامر محمود]

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

@شايب

@Foksh