اذهب الي المحتوي
أوفيسنا

برنامج شاشة الدخول مع صلاحيات


إذهب إلى أفضل إجابة Solved by mahmoud nasr alhasany,

الردود الموصى بها

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

 لكل مهنة أدواتها التي تساعد صاحب المهنة على أداء عمله بالشكل المطلوب وكل ما كانت هذه الأدوات حديثة ، كانت نتيجة العمل أفضل و أسرع وأكثر جودة وكفاءة. كذلك المبرمج المبتدئ، يحتاج إلى مجموعة من البرامج الأدوات التي تساعده على إنجاز العمل المطلوب بالشكل المناسب ، وتعبر شاشة الدخول هي أدوات المبرمج التي يستخدمها على حسب الحاجة المطلوبة والهدف المطلوب في كل مهمة ليتم إنجازها.و المطلوب اخواني تعديل البرنامج في عدة مراحل نبدء

 

قمت بإرفاق ملف برنامج شاشة الدخول مع صلاحيات من إعدادي وهو بسيط وقمت بتحميله لسببين :

 

الأول : أن يستفيد منه باقي الأعضاء .

الثاني : توجد به عدة مشكلات أود من أحد الخبراء مساعدتي فيه .

المطلوب :

1) : تعديل اكواد الدخول للبرنامج من صفحة الصلاحيات و يسجل عملية الدخول و الخروج في صفحة تقرير الدخول و على ان يظهر اسم المستخدم في الصفحة الرئيسية R4 

2): اضافة كود في الصفحة الرئيسية تغيير كلمة المرور

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

 

دخول.xlsm

تم تعديل بواسطه husain alhammadi
رابط هذا التعليق
شارك

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

اخواني هل يوجد خطا

Private Sub CommandButton3_Click()
 
Dim strUsername As String
Dim strPassword As String
Dim iRow As Integer

strUsername = Me.TextBox1.Value
strPassword = Me.TextBox2.Value
On Error GoTo 1
 iRow = Application.WorksheetFunction.Match(strUsername, Worksheets("صلاحيات").Range("d:d"), 0)
1
If Err.Number <> 0 Then MsgBox "تاكد من اسم المستخدم و كلمة المرور": Exit Sub
If Worksheets("صلاحيات").Cells(iRow, 2).Value = strPassword Then
    MsgBox "تم تسجيل الدخول بنجاح!"
    
    Unload Me
    UserForm1.Show
Else
    MsgBox "تاكد من اسم المستخدم و كلمة المرور"
    Me.TextBox1.Value = ""
    Me.TextBox2.Value = ""
    Me.TextBox1.SetFocus
    MsgBox ("أهلا وسهلا بك في برنامج "), vbOKOnly
form1.Hide
Sheet7.Range("R4").Value = Application.WorksheetFunction.VLookup(rngUser.Offset(0, -1).Value, Sheet1.Range("d2:d100"), 1, False)
Sheet7.Range("E4").Value = Date
Sheet7.Range("I4").Value = Application.WorksheetFunction.Text(Sheet7.Range("I4").Value, "dddd")
Sheet7.Range("M4").Value = Time
form2.Show
End If
End Sub

فى الكود ان كان نعم ارجوا تصحيحها

دخول.xlsm

رابط هذا التعليق
شارك

  • أفضل إجابة

الملف غير كامل

لايوجد فية Sheet7

form1.Hide
Sheet7.Range("R4").Value = Application.WorksheetFunction.VLookup(rngUser.Offset(0, -1).Value, Sheet1.Range("d2:d100"), 1, False)
Sheet7.Range("E4").Value = Date
Sheet7.Range("I4").Value = Application.WorksheetFunction.Text(Sheet7.Range("I4").Value, "dddd")
Sheet7.Range("M4").Value = Time
form2.Show
End If

 

تم تعديل بواسطه mahmoud nasr alhasany
رابط هذا التعليق
شارك

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

جزاك الله خير الجزاء على التنبية و الصحيح هو sheet 4

form1.Hide
Sheet4.Range("R4").Value = Application.WorksheetFunction.VLookup(rngUser.Offset(0, -1).Value, Sheet1.Range("d2:d100"), 1, False)
Sheet4.Range("E4").Value = Date
Sheet4.Range("I4").Value = Application.WorksheetFunction.Text(Sheet7.Range("I4").Value, "dddd")
Sheet4.Range("M4").Value = Time
form2.Show
End If
End Sub

رابط هذا التعليق
شارك

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

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information