الاستاذ مجدى
عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا
ادارة المنتدي







 
الرئيسيةالأستاذ التعليماليوميةس .و .جبحـثالأعضاءضع التسجيلالمجموعاتدخولالتسجيل
سبحانك لا علم لنا إلا ما علمتنا أنك أنت العليم
عزيزى الزائر قم بالتسجيل بالمنتدى لمشاهدة باقى الاقسام المهمه
مع تحيات مجدى عبد المنعم محمود يونس ببورسعيد " مدير المنتدى "
أهلا بك من جديد يا زائر آخر زيارة لك كانت في
آخر عضو مسجل Kina فمرحبا به


شاطر | 
 

 مشكلة اليوزر فورم باسم المستخدم وكلمة المرور

اذهب الى الأسفل 
كاتب الموضوعرسالة
budhabi



عدد المساهمات : 2
تاريخ التسجيل : 07/12/2017

مُساهمةموضوع: مشكلة اليوزر فورم باسم المستخدم وكلمة المرور   الخميس ديسمبر 07, 2017 10:49 am

عندي مشكله في اليوزر فورم

عند فتح ملف الأكسل

اذا كنت داخل شيت id وإدخال اسم المستخدم والباسوورد يفتح اليوزر فورم عادي والانتقال الى الفوم الثاني

لكن اذا كنت داخل شيت home وإدخال اسم المسنخدم وكلمة المرور يقول كلمه المرور خاطئة

صور التوضيح







وعندي طلب وهو عرض تصفية الخلايا المحدد في الفورم الثاني بنفس عرضها بملف الاكسل

مثل خليه الصنف بها عدد أسماء

لو اخترت مثلا عامل يفرز لي كلمة عامل بالخلية على حسب العدد الموجود

ونفس الشي خلية المجموعة مثلا

عند اختيار احد المجموعات داخل الخلية يفرع الجميع

مثال



وأريد كود الطباعه على حسب تصنيف الخلايا المحدد في الفورم

وشكرا لكم على دعمكم الدائم

تحميل الملف

للتحميل هنا

الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
مجدى يونس
Admin
avatar

عدد المساهمات : 1013
تاريخ التسجيل : 22/02/2013
العمر : 64

مُساهمةموضوع: رد: مشكلة اليوزر فورم باسم المستخدم وكلمة المرور   الأحد ديسمبر 10, 2017 1:13 pm

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

واليك الكود بعد التعديل
Private Sub CommandButton1_Click()
Dim user As String
Dim pass As String
user = TextBox1.Text
pass = TextBox2.Text
Dim x As Integer
Dim sh As Worksheet

Set sh = Sheets("id")
x = 3
Do While sh.Cells(x, 1).Value <> ""
   If sh.Cells(x, 1).Value = user And sh.Cells(x, 2).Value = pass Then
   MsgBox "أهلا وسهلا يا " & " " & username, , " كشف الموظفين"""
   End
   ad.Show
   Else
   x = x + 1
   End If
Loop
MsgBox "Please check you username or Password!"
'ActiveWorkbook.Close True
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.SetFocus
End Sub

_________________
عندما تولد يابن ادم يؤذن فى أذنك من غير صلاة وعندما تموت يصلى عليك من غير أذان وكأن حياتك فى الدنيا ليست سوى الوقت الذى تقضيه بين الأذان والصلاة فلا تقضيهما فيما لاينفع
---((الله ناظرى الله سامعى الله مطلع علي))-

الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://magdi54.forumegypt.net
budhabi



عدد المساهمات : 2
تاريخ التسجيل : 07/12/2017

مُساهمةموضوع: رد: مشكلة اليوزر فورم باسم المستخدم وكلمة المرور   الأحد ديسمبر 10, 2017 11:33 pm

لم يجدي نفعا الكود



MsgBox "Please check you username or Password!"
'ActiveWorkbook.Close True بنسبه لهذا الكود اضفته بناء على طلب احد المبرمجين لم ينفع ونسيت ان احذفه
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.SetFocus
End Sub

جزاك الله خير على الرد
في انتظار حل اخر

المطلوب عند كتابه اسم المستخدم وكلمة المرور وضغط على الدخول يفتح الفورم الثاني سوا كنت داخل شيت id او شيت home

الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
مجدى يونس
Admin
avatar

عدد المساهمات : 1013
تاريخ التسجيل : 22/02/2013
العمر : 64

مُساهمةموضوع: رد: مشكلة اليوزر فورم باسم المستخدم وكلمة المرور   الإثنين ديسمبر 11, 2017 5:09 am

عزيزى شككتنى انظر الصور اعمل زر لظهور الفورم فى جميع اوراق الشيت وجرب انظر الصور






_________________
عندما تولد يابن ادم يؤذن فى أذنك من غير صلاة وعندما تموت يصلى عليك من غير أذان وكأن حياتك فى الدنيا ليست سوى الوقت الذى تقضيه بين الأذان والصلاة فلا تقضيهما فيما لاينفع
---((الله ناظرى الله سامعى الله مطلع علي))-

الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://magdi54.forumegypt.net
 
مشكلة اليوزر فورم باسم المستخدم وكلمة المرور
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

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