أكاديمية الصقر للتدريب
FBConnect

اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا




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

Preview






  •  صورة gedo_hafs الشخصية
  •   gedo_hafs

       عضو
      rating
      
 رسائل الزوار
 معلوماتي
 قائمة الأصدقاء (2)
 إحصائيات
رسائل الزوار
عرض رسائل الزوار
  22-07-2019 11:05 مساء  

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

بالنسبة للمشكلة الى فاهما من كتابتك حاليا هى كود الدخول  من النظر للكود ستجد ان الملف عند فتحه يكون شيت المبيعات هو المفعل او الاكتف والكود الخاص بك لم يعرف الخلايا التى سيبحث فيها لانك كاتب cells والصح 1- يا اما تفعل شيت الباسورد عند فتح البرنامج عن طريق 
Private Sub Workbook_Open()
Application.Visible = False
Dim sh As Worksheet
Set sh = Sheets("اسم المستخدم")
sh.Activate
Form.Show
End Sub
في حدث thisWorkbook او وافضل 2- غير السطور الحالية بالكود القديم لديك
Dim username As String
Dim password As String


username = TextBox1.Text
password = TextBox2.Text

Dim x As Integer
x = 2
Dim sh As Worksheet
Set sh = Sheets("اسم المستخدم")
Do While sh.Cells(x, 1).Value <> ""
If sh.Cells(x, 1).Value = username And sh.Cells(x, 2).Value = password Then
MsgBox "welcome"
Me.Hide
Form1.Show
End
Else
x = x + 1
End If
Loop
MsgBox "wrong username or password or poth of them"
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.SetFocus
اما باقي الطلبات اعرضها بموضوع اخر كل طلب مع شرحه بالتفصيل ونصيحة اخيرة اجعل الاسم البرمجي لورقة العمل بدلا من ورقة1  اجعلها sheet1 واذا كانت لغة الاوفس عندك عربي مع كل اضافة لشيت جديد غير الاسم  طيب ليه اقولك بيختصر اكواد مثلا في الطريقة 1 هتكتفي انك تقول 
Private Sub Workbook_Open()
Application.Visible = False
sheet1.Activate
Form.Show
End Sub
والتانية 2- 
Do While sheet1.Cells(x, 1).Value <> ""
If sheet1.Cells(x, 1).Value = username And sheet1.Cells(x, 2).Value = password Then
وفي النهاية اتمنى ان اكون قد اوضحة سبب المشكلة بالكود الذى لديك تحياتى وتقديرى



كتابة رسالة زائر جديدة

سؤال عشوائي: ما هو رقم 3 باللغة العربية ثلاثة
معلوماتي
اسم العضو :gedo_hafs
المجموعة:الأعضاء
عضو
التسجيل : 30-06-2019 09:30 مساء
تاريخ الميلاد : 1-10-1980
الجنس : icon
الوقت لديه الآن : 19-04-2021 10:41 صباحا
الحاله :
أصدقاء gedo_hafs
محمود ابو الدهب
icon
مشرف على لغات برمجة والاكسيل
مصر
Eslam Abdullah
icon
مشرف على لغات برمجة آخرى
مصر

آخر الزوار
آخر 20 زائر لهذه الصفحة هم :

رمضان بكري    محمود ابو الدهب    ashraf_hertlion   
هذه الصفحة زارها 3 زائر




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

الساعة الآن 10:41 صباحا

أعلن هنا
أعلن هنا
أعلن هنا