login وصلاحيات المستخدمين

[tat]

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

TO = له كل الصلاحيات

TO2 = لا يستطيع الدخول الى الاسماء

TO3 = يدخل لكل النماذج ولاكن لا يستطيع ان يعدل او يلغي او يضيف شيء

ال الباسورد لكل user name 

123

الملف

login.rar

تم تعديل سبتمبر 29 بواسطه Foksh
تم حذف الرابط ، وإضافة الملف الى المشاركة

[Moosak]

وعليكم السلام ورحمة الله وبركاته
أهلا وسهلا بك أخي @tat 🙂🌷

 

عند محاولة الدخول يظهر أن لديك مشكلة في موائمة الكود مع النواتين 23 و 64 بت ... 🙂

[الحلبي]

استاذنا العزيز / موسى @Moosak

اريد توضح ايكونة البرنامج عليها قفل تدل على انها امتداد accde ولكن البرنامج مفتوح لا يمنع الاطلاع على تصميم النموذج كما هو متبع 

ممكن حضرتك تفسر هذا

جزاك الله خير

 

[kkhalifa1960]

بعد اذن استاذنا العزيز / موسى @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

 

[tat]

ما شاء الله الشباب مش مقصره بنسبه للبرنامج هو مش مغلق بس انا مغير امتداده اما هو فعلينا  accdb وليس accde يعني ممكن تعمل يلي بدك ياه بالبرنامج الهم انو مغير امتداده وهمي فقط