الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف يتم الغاء امر التشفير من الكود التالى

بدأه KHALED BIN WALEED في 20 سبتمبر 2010 · 6 رد · 1,392 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

الكود التالى فى فورم لاضافة اسم مستخدم

ولكنه يضيفة مشفر كيف يتم وقف التشفير من الكود التالي 

Dim N As Long
    DoCmd.SetWarnings False
    If IsNull([UN]) Then
        MsgBox "أدخل اسم المستخدم", vbOKOnly + vbMsgBoxRight, "نقص بالإدخال"
        Exit Sub
    ElseIf IsNull([PW]) Or IsNull([CPW]) Or [PW] <> [CPW] Then
        MsgBox "كلمة المرور غير متطابقة" + vbCr + "أو أنها فارغة" + vbCr + "الرجاء إعادة كتابة كلمة المرور", vbOKOnly + vbMsgBoxRight + vbExclamation, "خطأ بالإدخال"
        Exit Sub
    ElseIf Nz(OpenArgs, "") = "Add" Then
        DoCmd.RunSQL "INSERT INTO Users ( UName, PW ) SELECT '" & incode(UN, "User") & "' AS Expr1, '" & incode(PW, "Pass") & "' AS Expr2;"
        N = DLast("[SN]", "users")
        DoCmd.RunSQL "INSERT INTO [Frm Ability] (SN,FRM) SELECT" & Str(N) & " AS Expr1,FRMS.FRM FROM FRMS;"
    Else
        DoCmd.RunSQL "UPDATE Users SET UName = '" & incode(UN, "User") & "' , PW = '" & incode(PW, "Pass") & "' WHERE ( SN=" & Str(UNUM) & ");"
    End If
    DoCmd.SetWarnings True
    DoCmd.Close
End Sub

Private Sub Form_Open(Cancel As Integer)
   If Nz(OpenArgs, "") = "Add" Then
      Me.Caption = "إضافة مستخدم جديد"
   Else
      UNUM = OpenArgs
      UN = decode(DLookup("[UName]", "Users", "SN = " & OpenArgs), "User")
   End If
End Sub

تم تعديل هذه المشاركة بواسطة gocando في 20 سبتمبر 2010 في 11:13

#2

اخى

المسئول عن التشفير هنا هو الدالة incode

و كود هذه الدالة غير مرفق فى سؤالك

عموما يمكنك بكل بساطة حذف الدالة من الكود لالغاء تشفير البيانات عند اضافتها الى الجدول 

Dim N As Long
    DoCmd.SetWarnings False
    If IsNull([UN]) Then
        MsgBox "أدخل اسم المستخدم", vbOKOnly + vbMsgBoxRight, "نقص بالإدخال"
        Exit Sub
    ElseIf IsNull([PW]) Or IsNull([CPW]) Or [PW] <> [CPW] Then
        MsgBox "كلمة المرور غير متطابقة" + vbCr + "أو أنها فارغة" + vbCr + "الرجاء إعادة كتابة كلمة المرور", vbOKOnly + vbMsgBoxRight + vbExclamation, "خطأ بالإدخال"
        Exit Sub
    ElseIf Nz(OpenArgs, "") = "Add" Then
        DoCmd.RunSQL "INSERT INTO Users ( UName, PW ) SELECT '" & UN & "' AS Expr1, '" & PW & "' AS Expr2;"
        N = DLast("[SN]", "users")
        DoCmd.RunSQL "INSERT INTO [Frm Ability] (SN,FRM) SELECT" & Str(N) & " AS Expr1,FRMS.FRM FROM FRMS;"
    Else
        DoCmd.RunSQL "UPDATE Users SET UName = '" & UN & "' , PW = '" & PW & "' WHERE ( SN=" & Str(UNUM) & ");"
    End If
    DoCmd.SetWarnings True
    DoCmd.Close

و لكن لاحظ انه يجب الغاء الدالة المسئولة عن الغاء التشفير من حدث عند فتح النموذج حتى تظهر البيانات بشكل صحيح

Private Sub Form_Open(Cancel As Integer)
   If Nz(OpenArgs, "") = "Add" Then
      Me.Caption = "إضافة مستخدم جديد"
   Else
      UNUM = OpenArgs
      UN = DLookup("[UName]", "Users", "SN = " & OpenArgs)
   End If
End Sub
1

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#3

الاستاز mrnoooo2000

اولا

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

وسوف احاول ان ضبط وعلى كل الاحوال

سوف ارفع الملف صباحا بان الله

+1

#4

امين اخى

و لك مثله

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#6

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

الحمد لله

للرفع

الف شكر لمن ساهم

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…