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

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

قام بنشر (معدل)

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

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

 

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

 

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

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

المطلوب :

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information