طلب ايقاف دالة incode ودالة decode

[alsihran]

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

طلبي ايقاف دالة incode  عند اضافة مستخدم في نموذج User Name  او تعديل بيانات مستخدم 

هذا الكود للاضافة

        DoCmd.RunSQL "INSERT INTO Users ( UName, PW ,fname) SELECT '" & incode(UN, "User") & "' AS Expr1, '" & incode(PW, "Pass") & "' AS Expr2, '" & incode(UN2, "User") & "' AS Expr3;"

وهذا الكود للتعديل

        DoCmd.RunSQL "UPDATE Users SET UName = '" & incode(UN, "User") & "' , PW = '" & incode(PW, "Pass") & "' ,fname = '" & incode(UN2, "User") & "' WHERE ( SN=" & Str(UNUM) & ");"

وايقاف دالة عند تسجيل الدخول للبرنامج من خلال النموذج frm-UserLogon

If DCount("SN", "users", "deCode([UName],'User')='" & Trim(user) & "'") = 0 Then

اليوزر 222

الباسورد 222

 

المرفق

usrs.accdb

تم تعديل سبتمبر 22, 2021 بواسطه alsihran

[د.كاف يار]

بإمكانك حذفها لكن ماهو المطلوب ؟

ما هي المشكلة التي تواجهك ؟

 

[alsihran]

الان, د.كاف يار said:

ما هي المشكلة التي تواجهك ؟

عند نقل البرنامج الى جهاز مرتبط بسيرفر 

السرفر يرفض تنفيذ الامر كل البرنامج يعمل عدى جزئية الكود المرتبطه بهاتين الدالتين 

ولا اعرف ماهو السبب وجربتها على اكثر من جهاز مرتبط بنفس السيرفر 

لذلك اريد جميع الوحدات النمطية والنماذج تعمل بدون هاتين الدالتين 

[د.كاف يار]

عفوا هل السيرفر داخلي أم خارجي على استضافة

[alsihran]

2 دقائق مضت, د.كاف يار said:

عفوا هل السيرفر داخلي أم خارجي على استضافة

]داخلي مرتبط بشبكة وزارة 

[د.كاف يار]

ممتاز هل توجد رسالة أو رقم خطأ ؟

[alsihran]

الان, د.كاف يار said:

ممتاز هل توجد رسالة أو رقم خطأ ؟

ابدا لا يوجد اي شي 

لكن لايتم تنفيذ الدالة ويتجمد البرنامج

وحتى عند استدعاء دالة decod 

من استعلام تحديد لاظهار البيانات 

يظهر رسالة ان النوع غير متطابق

[د.كاف يار]

كود التشفير يعمل بدون مشكلات 

لكن تأكد من أن جميع الأجهزة لديك يتم تخفيض الأمان بها و تمكين وحدات الماكرو

انت تريد الغاء التشفير

Function decode(A, b As String) As String
On Error Resume Next
    Dim r, i As Integer, S, u As String
    u = getcode(A, b)
    i = Val(mID(u, 1, 1)) + 1
    u = mID(u, i + 1, Len(u) - i)
    If Len(u) Mod 3 <> 0 Then u = mID(u, 1, Len(u) - 1)
    S = ""
    For r = 1 To Len(u) - 2 Step 3
        S = S + Chr(Val(mID(u, r, 3)))
    Next
    decode = S
End Function

ان اردت ذلك فلن تكون بياناتك مشفرة

فإن حصل دخول غير مشروع ستكون البيانات مكشوفة

 

[alsihran]

2 دقائق مضت, د.كاف يار said:

لكن تأكد من أن جميع الأجهزة لديك يتم تخفيض الأمان بها و تمكين وحدات الماكرو

لايمكن تشغيل المايكرو لانه غير مفعل 

واقوم بتشغيل الاكواد 

عن طريق اضافة مجلد البرنامج الى قائمة المواقع الموثوقه 

[د.كاف يار]

1 دقيقه مضت, alsihran said:

لايمكن تشغيل المايكرو لانه غير مفعل 

واقوم بتشغيل الاكواد 

عن طريق اضافة مجلد البرنامج الى قائمة المواقع الموثوقه 

اذا امامك حل اذا كانت الأجهزة ذات وصول محدود أن تقوم بإلغاء التشفير و جعل جدول المستخدمين مخفي

[alsihran]

الان, د.كاف يار said:

اذا امامك حل اذا كانت الأجهزة ذات وصول محدود أن تقوم بإلغاء التشفير و جعل جدول المستخدمين مخفي

هذا الذي اطلبه الغاء التشفير 

ولكن الموضوع اتعبني كثيرا لم استطع التعديل على الاكواد في الوحدات النمطية 

واستدعاء الدالات من خلال النماذج 

[د.كاف يار]

استبدل FrmAbilities في Defs بالتالي

Public Sub FrmAbilities(frmName As String)
Dim SF As Control, strsbfrm As String
With MyUser
      ContinueCode = True
      Forms(frmName).AllowAdditions = IIf(DLookup("A", "Frm Ability", "sn=" & [Forms]![frm-UserLogon]![user]) = -1, True, False)
      Forms(frmName).AllowEdits = IIf(DLookup("E", "Frm Ability", "sn=" & [Forms]![frm-UserLogon]![user]) = -1, True, False)
      Forms(frmName).AllowDeletions = IIf(DLookup("D", "Frm Ability", "sn=" & [Forms]![frm-UserLogon]![user]) = -1, True, False)
      For Each SF In Forms(frmName).Controls
        If SF.ControlType = acSubform Then
            strsbfrm = SF.SourceObject
           If Not IsNull(DLookup("FRM", "FRMS", "FRM = '" & strsbfrm & "'")) Then
            If .GetAbility(strsbfrm, OpenForm) Then
            SF.Form.AllowAdditions = .GetAbility(strsbfrm, Add)
            SF.Form.AllowEdits = .GetAbility(strsbfrm, Edit)
            SF.Form.AllowDeletions = .GetAbility(strsbfrm, del)
            Else
            SF.SourceObject = ""
            SF.Visible = False
            End If
           Else
            SF.Form.AllowAdditions = Forms(frmName).AllowAdditions
            SF.Form.AllowEdits = Forms(frmName).AllowEdits
            SF.Form.AllowDeletions = Forms(frmName).AllowDeletions
           End If
        End If
      Next
End With
End Sub

 

[alsihran]

 

6 دقائق مضت, د.كاف يار said:

استبدل FrmAbilities في Defs بالتالي

استبدلتها 

الان عند تسجيل الدخول 

يظهر خطأ 

ارجو التعديل على المرفق ان امكنك 

[alsihran]

للرفع