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

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





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







 رسائل الزوار
 معلوماتي
 قائمة الأصدقاء (13)
 إحصائيات
رسائل الزوار
عرض رسائل الزوار
  30-08-2019 06:46 مساء  

دكتور محمود ابوالدهب انت فين


  21-08-2019 01:39 صباحا  

دكتور محمود 

  24-07-2019 05:29 مساء  

المشاركة الأصلية كتبت بواسطة: محمود ابو الدهب
المشاركة الأصلية كتبت بواسطة: 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
وفي النهاية اتمنى ان اكون قد اوضحة سبب المشكلة بالكود الذى لديك تحياتى وتقديرى

اشكر لك الرد اخى العزيز افادنا واسعدنا مرورك

  22-07-2019 06:23 مساء  

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


  23-03-2018 09:59 صباحا  

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

اسف لم اخ

كيف حالكم شباب

  21-02-2018 12:46 صباحا  

اليك تحياتى حبيبى الغالى
محمود أبوالدهب
 

  16-02-2018 05:36 مساء  

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

اسف لم اخذ بالى من اى مواضيع جديده والله يومين الان انتكاسة مرضية لم افق منها الا الان يبدو انى سوف اخذ وقت في الاستشفاء دعواتك لى وان شاء الله بمجرد الفتح من الحاسب سارى المواضيع الجميلة من كل اعضاء الفريق

شافاك الله وعافك استاذ محمود

  15-02-2018 08:53 مساء  

استاذ محمود اين تعليقاتك الجميلة ونصائحك عندك موضوعين جديدين فى أولى فيديوهاتى فى الاكسس

الصفحة 1 من 2 < 1 2 > الأخيرة »



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

سؤال عشوائي: ما هو رقم 3 باللغة العربية ثلاثة
معلوماتي
اسم العضو :محمود ابو الدهب
المجموعة:المشرفين
مشرف
التسجيل : 21-08-2017 11:44 مساء
تاريخ الميلاد : 4-7-1990
الدولة : مصر
الجنس : icon
الموقع الشخصي : زيارة موقعي
الوقت لديه الآن : 23-09-2019 07:42 مساء
الحاله :
أصدقاء محمود ابو الدهب
EM_ACC
icon
عضو

gedo_hafs
icon
عضو

جعفر الطريبق
icon
خبير

بليغ البتول
icon
عضو

Osmanko
icon
عضو

عبدالجيد
icon
عضو محترف
مصر
hben
icon
خبير

محمد حسن المحمد
icon


malik
icon
عضو

محمود الشريف
icon
خبير
مصر
Yasser Elaraby
icon
المشرف العام

الصقر
icon
مدير المنتدى

YasserKhalil
icon
مراقب عام


آخر الزوار
هذه الصفحة زارها 155 زائر




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



الساعة الآن 07:42 مساء

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