حذف سجل بناء على كلمة مرور

[moho58]

السلام عليكم الإخوة الأفاضل في هذا المنتدى الجميل

في هذا الموضوع أريد حذف سجل بناء على كلمة مرور مدخلة كمايلي:

عند الضغط على زر "حذف " الموجود في النمودج المسمى" fm_info_stagiere_mini"

يطلب منك إدخال كلمة المررو : إذاكانت المرور المدخلة تختلف عن 12345  تأتي رسالة تخبرك بأن كلمة المرور خاطئة

أما إذاكانت كلمة المرور المدخلة هي 12345 تأتي رسالة تأكيد حذف البيانات : هل تريد حذف البيانات؟ و عند الضغط على نعم يتم حذف البيانات -- لا: يتم التراجع

وبارك الله فيكم

 

base_pass.accdb

[ازهر عبد العزيز]

وعليكم السلام

 

Dim strPasswd
    Dim stDocName As String
    Dim stLinkCriteria As String
 
On Error GoTo Err_Command6_Click_Error
    strPasswd = InputBox("Enter Password", "Restricted Form")
 
    If strPasswd = "" Or strPasswd = Empty Then
        MsgBox "لا لم تدحل كلمة المرور", vbInformation, "Required Data"
        Exit Sub
    End If
 
    If strPasswd = "12345" Then
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdDeleteRecord
    Else
        MsgBox "ليس لك الحق بالوصول", vbOKOnly, _
            "Important Information"
        Exit Sub
    End If
Exit_ErrorHandler:
  Exit Sub
Err_Command6_Click_Error:
  If Err.Number = 2501 Then
    MsgBox "Delete action cancelled"
    Resume Exit_ErrorHandler
  Else
    MsgBox "Error " & Err.Number & " (" & Err.Description & _
        ") in procedure Command6_Click of VBA Document Form_T2 at Line " & Erl
    Resume Exit_ErrorHandler
  End If

 

base_pass.accdb

[moho58]

8 ساعات مضت, ازهر عبد العزيز said:

وعليكم السلام

 

Dim strPasswd
    Dim stDocName As String
    Dim stLinkCriteria As String
 
On Error GoTo Err_Command6_Click_Error
    strPasswd = InputBox("Enter Password", "Restricted Form")
 
    If strPasswd = "" Or strPasswd = Empty Then
        MsgBox "لا لم تدحل كلمة المرور", vbInformation, "Required Data"
        Exit Sub
    End If
 
    If strPasswd = "12345" Then
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdDeleteRecord
    Else
        MsgBox "ليس لك الحق بالوصول", vbOKOnly, _
            "Important Information"
        Exit Sub
    End If
Exit_ErrorHandler:
  Exit Sub
Err_Command6_Click_Error:
  If Err.Number = 2501 Then
    MsgBox "Delete action cancelled"
    Resume Exit_ErrorHandler
  Else
    MsgBox "Error " & Err.Number & " (" & Err.Description & _
        ") in procedure Command6_Click of VBA Document Form_T2 at Line " & Erl
    Resume Exit_ErrorHandler
  End If

 

base_pass.accdb 576 kB · 5 downloads

مشكور أخي الكريم وبارك الله فيك

تقريبا هذا هو المطلوب

إن أمكن فقط عند إدخال كلمة المرور  تكون على شكل نجوم  وليس أرقام ظاهرة

[ابوخليل]

مشاركة مع اخي ازهر

انظر هنا في هذه المشاركة .. طريقة اخرى لتحقيق الفكرة

[moho58]

9 ساعات مضت, ابوخليل said:

مشاركة مع اخي ازهر

انظر هنا في هذه المشاركة .. طريقة اخرى لتحقيق الفكرة

شكرا استاذنا

جاري الإطلاع على الموضوع

[moho58]

في 7‏/9‏/2024 at 23:32, ابوخليل said:

مشاركة مع اخي ازهر

انظر هنا في هذه المشاركة .. طريقة اخرى لتحقيق الفكرة

معذرة أستاذنا على التأخر في الرد

كود الوحدة النمطية طويل جدا جدا . وهل هو اجباري

 وشكرا

 

 

[ابوخليل]

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

وتعديل بسيط على كود الأستاذ القدير أزهر لتحويل الصندوق الى حقل يتحقق المطلوب

 On Error GoTo Err_Dell_Click_Error
   If Me.TextPass.Visible = False Then
   Me.TextPass.Visible = True
      Beep
       MsgBox "ادخل كلمة المرور", vbOKOnly, _
            "Important Information"
        Exit Sub
    End If
    If Me.TextPass = "12345" Then
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdDeleteRecord
       Me.TextPass.Visible = False
    MsgBox "تم الحذف", vbOKOnly, _
            "Important Information"
    Else
        Beep
        MsgBox "ليس لك الحق بالوصول", vbOKOnly, _
            "Important Information"
       Me.TextPass.Visible = False
        Exit Sub
    End If
Exit_Err_Dell:
  Exit Sub
Err_Dell_Click_Error:
  If Err.Number = 2001 Then
      Resume Exit_Err_Dell
    End If

 

base_pass.rar

[moho58]

الان, ابوخليل said:

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

وتعديل بسيط على كود الأستاذ القدير أشرف لتحويل الصندوق الى حقل يتحقق المطلوب

 On Error GoTo Err_Dell_Click_Error
   If Me.TextPass.Visible = False Then
   Me.TextPass.Visible = True
      Beep
       MsgBox "ادخل كلمة المرور", vbOKOnly, _
            "Important Information"
        Exit Sub
    End If
    If Me.TextPass = "12345" Then
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdDeleteRecord
       Me.TextPass.Visible = False
    MsgBox "تم الحذف", vbOKOnly, _
            "Important Information"
    Else
        Beep
        MsgBox "ليس لك الحق بالوصول", vbOKOnly, _
            "Important Information"
       Me.TextPass.Visible = False
        Exit Sub
    End If
Exit_Err_Dell:
  Exit Sub
Err_Dell_Click_Error:
  If Err.Number = 2001 Then
      Resume Exit_Err_Dell
    End If

 

base_pass.rar 26.46 kB · 1 download

فكرة جميلة جدا - هذا هو المطلوب

 - أستاذنا- جزاك الله كل خير ويسرك أمورك وجعلها في ميزان حساناتك آمين

كما أشكر الأخ أزهر عبد العزيز على الرد والمتابعة