اضفة خانه في نموذج المستخدمين

بدأه orphan94 في 30 مايو 2011 · 32 رد · 1,963 مشاهدة · في قواعد بيانات Microsoft Access

مشاركة: واتساب X فيسبوك تيليجرام

#130 مايو 2011 في 19:36 صاحب الموضوع

اخواني الكيرام

في هذا المنتدى العلمي

كم استفدت منه وهذا بفضل من الله ثم منكم

اخواني الكيرام

تم تحميل هذا البرنامج من هذا الموقع المبارك

ولكني اريد اضافه خانه جديده في نموذج اضافة مستخدم جديد

وقد حاولت ولكني لم افلح في عملية تعديل الكود الموجود في النموذج

حيث قمة باضافه خانه جديده في جدول

users

و المحاوله لتغير النموذج من هذا اشكل

الى هذا اشكل

بحيث الخانه الجديده ( الاسم الثلاثي ) الموجوده في نموذج اضافة مستخدم جديد تكون متصله بالخانه الموجوده في الجدول users في خانه ( fman )

ارجو مساعدتكم اخواني الكيرام في النموذج المرفق

وشكرا لكم

5.zip

المرفقات

تم تعديل هذه المشاركة بواسطة orphan94 في 30 مايو 2011 في 22:10

#230 مايو 2011 في 21:04

تفضل اخى

5.rar

مدونتى:-

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

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

#330 مايو 2011 في 22:29

Abo_Yossof كتب:
تفضل اخى

ربي يعطيك الف الف عافيه

في ميزان حسناتك

#430 مايو 2011 في 23:00

اخي الكريم

هناك مشكلة

وهي

حين كتابة البينات وترك خانه الاسم الثلاثي فارغه يظهر لي خطى

حيث يجب اعطائي رساله تخبرني بان يوجد نقص في البينات

هل من الممكن تعديل الخلل

المرفقات

#531 مايو 2011 في 08:22

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

Private Sub Bok_Click()
 Dim N As Long
    DoCmd.SetWarnings False
    If IsNull([UN]) Then
        MsgBox "أدخل اسم المستخدم", vbOKOnly + vbMsgBoxRight, "نقص بالإدخال"
        Exit Sub
    ElseIf IsNull([un2]) 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 ,fman) SELECT '" & incode(UN, "User") & "' AS Expr1, '" & incode(PW, "Pass") & "' AS Expr2, '" & incode(un2, "User") & "' AS Expr3;"
        N = DLast("[SN]", "users")
        DoCmd.RunSQL "INSERT INTO [Frm Ability] (SN,FRM,FRM1) SELECT" & Str(N) & " AS Expr1,FRMS.FRM,FRM1 FROM FRMS;"
    Else
        DoCmd.RunSQL "UPDATE Users SET UName = '" & incode(UN, "User") & "' , PW = '" & incode(PW, "Pass") & "' ,fman = '" & incode(un2, "User") & "' WHERE ( SN=" & Str(UNUM) & ");"
    End If
    DoCmd.SetWarnings True
    DoCmd.Close
End Sub

مدونتى:-

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

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

#631 مايو 2011 في 12:43

السلام عليكم أخي الكريم ممكن أحصل على أسم المستخدم وكلمة المرور الخاصة بالبرنامج إذ أمكن وأكون لك من الشاكرين

#731 مايو 2011 في 12:54

اسم المستخدم 1

كلمة المرور 1

مدونتى:-

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

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

#831 مايو 2011 في 14:35

ربي يعطيك الف الف عافيه

لقد تم حل المشكلة بشكل اخر

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

ومميز

وهذا الكود الذي استخدمته

Private Sub Bok_Click()
 Dim N As Long
    DoCmd.SetWarnings False
    If IsNull([UN]) Or IsNull([un2]) 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 ,fman) SELECT '" & incode(UN, "User") & "' AS Expr1, '" & incode(PW, "Pass") & "' AS Expr2, '" & incode(un2, "User") & "' AS Expr3;"
        N = DLast("[SN]", "users")
        DoCmd.RunSQL "INSERT INTO [Frm Ability] (SN,FRM,FRM1) SELECT" & Str(N) & " AS Expr1,FRMS.FRM,FRM1 FROM FRMS;"
    Else
        DoCmd.RunSQL "UPDATE Users SET UName = '" & incode(UN, "User") & "' , PW = '" & incode(PW, "Pass") & "' ,fman = '" & incode(un2, "User") & "' WHERE ( SN=" & Str(UNUM) & ");"
    End If
    DoCmd.SetWarnings True
    DoCmd.Close
End Sub

#924 يونيو 2011 في 13:11

من خلال البحث في المنتدى

وجده مثال جميل للاخ Abo_Yossof وهو جميل جدا

اثناء الظغط على زر تعديل يضهر لك اسم الشخص في نموذج التعديل

فاحببت ان اطبقه على مثالي الذي قام الاخ Abo_Yossof بتعديله

واثناء المحاوله نجحة معي و استخدمة تكرار الكود

هل الكود التالي صحيح او يوجد كود افضل منه

هذا هو الكود المستخدم

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")
      un2 = decode(DLookup("[fman]", "Users", "SN = " & OpenArgs), "User")
   End If
End Sub

5.zip

المرفقات

تم تعديل هذه المشاركة بواسطة orphan94 في 24 يونيو 2011 في 13:12

#1024 يونيو 2011 في 23:50

هل من الممكن انظر الى مشاركتي

#1125 يونيو 2011 في 18:50

هل من الممكن انظر الى سوالي

#1226 يونيو 2011 في 00:09

هل من الممكن انظر الى مشاركتي رقم 9

#1326 يونيو 2011 في 14:47

هل من الممكن انظر الى مشاركتي رقم 9

#1426 يونيو 2011 في 21:42

ما الذى تريده أخى بالضبط

مدونتى:-

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

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

#1526 يونيو 2011 في 22:41

المشاركه رقم 9

حين الضغط على زر تعديل تظهر لي نموذج ويظهر لي الاسم

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

الاسم الثالاثي

post-69427-083163500%201308910214.jpg

فقمت بتكرار الامر التالي

un2 = decode(DLookup("[fman]", "Users", "SN = " & OpenArgs), "User")

مع تعديل المطلوب

هل هذه الطريقه صحيحه او لا

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

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")
      un2 = decode(DLookup("[fman]", "Users", "SN = " & OpenArgs), "User")
   End If
End Sub

تم تعديل هذه المشاركة بواسطة orphan94 في 26 يونيو 2011 في 22:44

#1627 يونيو 2011 في 14:45

#1728 يونيو 2011 في 01:03

#1828 يونيو 2011 في 15:06

#1928 يونيو 2011 في 20:15

#2029 يونيو 2011 في 07:33

#2130 يونيو 2011 في 00:53

#2230 يونيو 2011 في 18:10

#232 يوليو 2011 في 01:25

#245 يوليو 2011 في 16:10

الطريقة عزيزي صحيحة...ولا اجد مشكلة...البرنامج يعمل تماما...

تحياتي

وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ

مواضيعي ومشاركاتي

#256 يوليو 2011 في 23:17

سوال اخواني الكيرام

حين استخدام هذا الكود

Private Sub Form_Current()
Me.Txtuser = MyUser.UserName
End Sub

يظهر لي اسم المستخدم

ماهو الكود المناسب لاظهار الاسم الثلاثي بدل من اسم المستخدم

ارجو تعديل في المثال المرفق

5.zip

المرفقات

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

كود تامين خانة الرقم الوظيفي في النموذج بعد الخروج منه3 رد · 19 مارس 2014
لم يبقى غير هذه المشكله في البرنامج خانة الخطاء في النموذج الاحصائي2 رد · 31 أكتوبر 2008
اضافة خانة في نموذج وربطها مع جدول0 رد · 11 أبريل 2016
خانة الاختيار في النموذج2 رد · 29 مارس 2006
جمع الخانة المحسوبة في نموذج ؟16 رد · 7 فبراير 2008
[ تمت الإجابة ]عند تفعيل خانة الاختيار في النموذج الاول تفعل خانة اختيار في النموذج الثاني3 رد · 27 أغسطس 2009