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





مشكله في اليوزر فورم

عندي مشكله في اليوزر فورم عند فتح ملف الأكسل اذا كنت داخل شيت id وإدخال اسم المستخدم والباسوورد يفتح اليوزر فورم عادي ..



07-12-2017 09:42 مساء
ادم احمد
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 02-11-2017
رقم العضوية : 1337
المشاركات : 14
الجنس : ذكر
تاريخ الميلاد : 1-8-1980
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 20
الاعجاب : 5
 offline 
عندي مشكله في اليوزر فورم

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

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

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


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

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

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

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

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

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

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


لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب


تم تحرير الموضوع بواسطة :ادم احمد
بتاريخ:07-12-2017 09:43 مساء





08-12-2017 10:40 مساء
مشاهدة مشاركة منفردة [1]
محمود ابو الدهب
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 335
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 3
يتابعهم : 4
يتابعونه : 7
قوة السمعة : 892
الاعجاب : 319
 Online 
look/images/icons/i1.gif مشكله في اليوزر فورم
اهلا استاذ ادم 
الامر وما فيه انك لم تعرف الشيت الخاص باستدعاء البيانات وعليه اذا كان شيت 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
تحياتى وتقديرى

أثارت هذه المشاركة إعجاب: الصقر، YasserKhalil، malik،


توقيع :محمود ابو الدهب

 

لى عظيم الشرف بالانضمام لهذا الصرح العظيم 


 

وكم أتمنى من الله ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير 

 

تحياتى وتقدير للجميع / محمود ابوالدهب



09-12-2017 08:02 صباحا
مشاهدة مشاركة منفردة [2]
الصقر
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 549
الجنس : ذكر
الدعوات : 3
يتابعهم : 0
يتابعونه : 154
قوة السمعة : 3091
الاعجاب : 716
 offline 
look/images/icons/i1.gif مشكله في اليوزر فورم

جزاكم الله خيرا استاذ محمود ما شاء الله المستوى بالطالع 142



أثارت هذه المشاركة إعجاب: محمود ابو الدهب، YasserKhalil،



09-12-2017 12:20 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 1764
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 8
يتابعهم : 0
يتابعونه : 152
قوة السمعة : 4937
الاعجاب : 1403
 offline 
look/images/icons/i1.gif مشكله في اليوزر فورم
بارك الله فيك أخي الغالي محمود ومشكور على المجهود الجبار .. تسلم الأيادي ، وكفاية شهادة الكبير ليك 

أثارت هذه المشاركة إعجاب: محمود ابو الدهب،



09-12-2017 03:57 مساء
مشاهدة مشاركة منفردة [4]
محمود ابو الدهب
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 335
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 3
يتابعهم : 4
يتابعونه : 7
قوة السمعة : 892
الاعجاب : 319
 Online 
look/images/icons/i1.gif مشكله في اليوزر فورم
هذا شرف كبير لى استاذ حسام واستاذى واخى العزيز ياسر خليل واتمنى ان اظل عند حسن ظنكم 

أثارت هذه المشاركة إعجاب: الصقر،


توقيع :محمود ابو الدهب

 

لى عظيم الشرف بالانضمام لهذا الصرح العظيم 


 

وكم أتمنى من الله ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير 

 

تحياتى وتقدير للجميع / محمود ابوالدهب



10-12-2017 02:15 مساء
مشاهدة مشاركة منفردة [5]
ادم احمد
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 02-11-2017
رقم العضوية : 1337
المشاركات : 14
الجنس : ذكر
تاريخ الميلاد : 1-8-1980
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 20
الاعجاب : 5
 offline 
look/images/icons/i1.gif مشكله في اليوزر فورم
الف شكر للجميع على خدماتكم
وتحية خاصة للاخ محمود ابو الدهب

أثارت هذه المشاركة إعجاب: الصقر، محمود ابو الدهب،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
اسهل واسرع طريقة لتغيير خلفية اليوزرفورم بدون الدخول الى محرر الاكواد بطريقة ديناميكية emad ghazi
1 30 emad ghazi
ترحيل صورة من اليوزرفورم الى اكثر من شيت hamadass
13 84 محمود الشريف
ترحيل صوره من اليوزر فورم الى خليه محدده الشيت Salamco
3 124 YasserKhalil
طباعة اليوزرفورم احمد حمدان
11 155 احمد حمدان
ادراج شكل بيانى على اليوزرفورم Mohsen Hebshawy
18 306 محمود الشريف

الكلمات الدلالية
مشكله ، اليوزر ، فورم ،


 







الساعة الآن 02:59 صباحا