husain alhammadi قام بنشر سبتمبر 21, 2023 قام بنشر سبتمبر 21, 2023 (معدل) السلام عليكم و رحمة الله و بركاتة لكل مهنة أدواتها التي تساعد صاحب المهنة على أداء عمله بالشكل المطلوب وكل ما كانت هذه الأدوات حديثة ، كانت نتيجة العمل أفضل و أسرع وأكثر جودة وكفاءة. كذلك المبرمج المبتدئ، يحتاج إلى مجموعة من البرامج الأدوات التي تساعده على إنجاز العمل المطلوب بالشكل المناسب ، وتعبر شاشة الدخول هي أدوات المبرمج التي يستخدمها على حسب الحاجة المطلوبة والهدف المطلوب في كل مهمة ليتم إنجازها.و المطلوب اخواني تعديل البرنامج في عدة مراحل نبدء قمت بإرفاق ملف برنامج شاشة الدخول مع صلاحيات من إعدادي وهو بسيط وقمت بتحميله لسببين : الأول : أن يستفيد منه باقي الأعضاء . الثاني : توجد به عدة مشكلات أود من أحد الخبراء مساعدتي فيه . المطلوب : 1) : تعديل اكواد الدخول للبرنامج من صفحة الصلاحيات و يسجل عملية الدخول و الخروج في صفحة تقرير الدخول و على ان يظهر اسم المستخدم في الصفحة الرئيسية R4 2): اضافة كود في الصفحة الرئيسية تغيير كلمة المرور البرنامج للجميع و يمكن اضافة اي برنامج عليه بعد الانتهاء من جميع المراحل و يمكنكم التعديل عليها و اعادة نشره ليستفيد الجميع منه و جزاكم الله خير الجزاء و جعله الله في ميزان حسناتكم دخول.xlsm تم تعديل سبتمبر 21, 2023 بواسطه husain alhammadi
husain alhammadi قام بنشر سبتمبر 22, 2023 الكاتب قام بنشر سبتمبر 22, 2023 السلام عليكم و رحمة الله و بركاتة اخواني هل يوجد خطا 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
أفضل إجابة mahmoud nasr alhasany قام بنشر سبتمبر 26, 2023 أفضل إجابة قام بنشر سبتمبر 26, 2023 (معدل) الملف غير كامل لايوجد فية 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 تم تعديل سبتمبر 26, 2023 بواسطه mahmoud nasr alhasany
husain alhammadi قام بنشر سبتمبر 26, 2023 الكاتب قام بنشر سبتمبر 26, 2023 السلام عليكم و رحمة الله و بركاتة جزاك الله خير الجزاء على التنبية و الصحيح هو 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
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.