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

[سامر محمود]

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

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

من فضلكم بين ايديكم كود لزرار في البرنامج عايز اضيف عليه 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.accdbFetching info...

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

[سامر محمود]

  في 18‏/10‏/2023 at 13:10, Foksh said:

تفضل

 

Pass.accdb 408 kB · 0 downloads

Expand  

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

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

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

[Foksh]

  في 18‏/10‏/2023 at 13:23, سامر محمود said:

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

Expand  

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

[شايب]

  في 18‏/10‏/2023 at 14:58, Foksh said:

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

Expand  

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

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

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

  اقتباس

 

Expand  

اخونا شايب

[Foksh]

  في 18‏/10‏/2023 at 15:10, شايب said:

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

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

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

اخونا شايب

Expand  

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

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

 

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

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

 

[شايب]

  في 18‏/10‏/2023 at 15:19, Foksh said:

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

Expand  

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

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

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

 

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

 

demo of inputbox with mask.mdbFetching info...

[Foksh]

  في 18‏/10‏/2023 at 16:09, شايب said:

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

Expand  

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

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

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

[سامر محمود]

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

@شايب

@Foksh