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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


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



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





تعديل كواد msgbox

انا عمل مسج بوكس يغير اسم الزر وعمل مسج يكتب قيمة في التكس بوكس بس المشكله ان بعد ما اغير الاسم زر وكتب القميه تكس بوكس ..



19-08-2019 12:38 صباحا
احمد 9598
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-08-2019
رقم العضوية : 14230
المشاركات : 82
الجنس : ذكر
تاريخ الميلاد : 19-2-1989
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 48
الاعجاب : 13
 offline 

انا عمل مسج بوكس يغير اسم الزر وعمل مسج يكتب قيمة في التكس بوكس بس المشكله ان بعد ما اغير الاسم زر وكتب القميه تكس بوكس واضغط تاني يظهر المسج مره اخره وانا مش عايز يظهر انا عايز بعد ما اغير الاسم واكتب القيمه معاش تظهر الرساله يعني كل ما اضغط عليه يكتب القيمة اللي انا

كتبته في التكس بوكس فقط

Dim o As String
o = InputBox("ادخل رقم التجاري", "اختصارات")
TextBox1.Value = o
Dim Name As String
Name = InputBox("ادخل اسم الزر", "اختصارات")
CommandButton1.Caption = Name






19-08-2019 01:16 صباحا
مشاهدة مشاركة منفردة [1]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1238
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 212
قوة السمعة : 4092
الاعجاب : 476
موقعي : زيارة موقعي
 Online 
look/images/icons/i1.gif تعديل كواد msgbox
لازم طبقا لهذا الكود يتفعل الامرين 
اذا يجب فصل زر تغير الاسم عن الكتابة بالتكست
Dim Name As String
Name = InputBox("ادخل اسم الزر", "اختصارات")
CommandButton1.Caption = Name


او فيه طريقة حلوه بردو اعمل مع الكود تيكست بوكس مخفى مثلا textbox2 وخلى caption الخاص بيها 1 مثلا 
وبعدين ضع الكود ده في الزر بتاعك عادى

Dim Name As String
Dim o As String
o = InputBox("ادخل رقم التجاري", "اختصارات")
TextBox1.Value = o
'======================
If Me.TextBox2.Value = 1 Then
Name = InputBox("ادخل اسم الزر", "اختصارات")
CommandButton1.Caption = Name
Me.TextBox2.Value = 0
End If


طول ماقيمة التيكست 2 دى 1 الكود هيطلب الاسم وبعدين يغير قيمتها 0 والى بعد كدا لن يطلب اى اسم

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

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




 

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


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

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


19-08-2019 01:21 صباحا
مشاهدة مشاركة منفردة [2]
احمد 9598
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-08-2019
رقم العضوية : 14230
المشاركات : 82
الجنس : ذكر
تاريخ الميلاد : 19-2-1989
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 48
الاعجاب : 13
 offline 
look/images/icons/i1.gif تعديل كواد msgbox
لا يعمل





19-08-2019 01:25 صباحا
مشاهدة مشاركة منفردة [3]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1238
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 212
قوة السمعة : 4092
الاعجاب : 476
موقعي : زيارة موقعي
 Online 
look/images/icons/i1.gif تعديل كواد msgbox
لا يعمل وفقط مش فاهم وازاى لا يعمل وايه الخطا الى ظهرلك وهل خليت قيمة التيكست 2 خليت قيمتها 1 عند فتح الفورم الاول ام لا

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

Dim Name As String
Dim o As String
o = InputBox("ادخل رقم التجاري", "اختصارات")
TextBox1.Value = o
'======================
If Me.TextBox2.Value = "" Then
Name = InputBox("ادخل اسم الزر", "اختصارات")
CommandButton1.Caption = Name
Me.TextBox2.Value = 1
End If



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

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


19-08-2019 01:31 صباحا
مشاهدة مشاركة منفردة [4]
احمد 9598
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-08-2019
رقم العضوية : 14230
المشاركات : 82
الجنس : ذكر
تاريخ الميلاد : 19-2-1989
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 48
الاعجاب : 13
 offline 
look/images/icons/i1.gif تعديل كواد msgbox
انا بعتلك المرافق شوف بنفسك
 
 
  المصنف1.xls   تحميل xls مرات التحميل :(2)
الحجم :(32.256) KB






19-08-2019 01:33 صباحا
مشاهدة مشاركة منفردة [5]
احمد 9598
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-08-2019
رقم العضوية : 14230
المشاركات : 82
الجنس : ذكر
تاريخ الميلاد : 19-2-1989
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 48
الاعجاب : 13
 offline 
look/images/icons/i1.gif تعديل كواد msgbox
انا عايز يظهر مسج يغير اسم الزر وبعده يظهر مسج اكتب في اي قيمة بعده لم اضغط علي  الزر مره اخر يظهر القيمه اللي انا كتبته فقط يعني معاش يظهر المسج مره اخر 


تم تحرير المشاركة بواسطة :احمد 9598
بتاريخ:19-08-2019 01:34 صباحا






19-08-2019 01:46 صباحا
مشاهدة مشاركة منفردة [6]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1238
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 212
قوة السمعة : 4092
الاعجاب : 476
موقعي : زيارة موقعي
 Online 
look/images/icons/i1.gif تعديل كواد msgbox
يا راجل بذمتك الى انا قلته فوق هو الى طبقته 
ولا حته منه جرب الملف بعد التعديل لان تعبت خلاص منك smile

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  المصنف1 (2).rar   تحميل rar مرات التحميل :(2)
الحجم :(10.962) KB


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


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

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


19-08-2019 01:49 صباحا
مشاهدة مشاركة منفردة [7]
احمد 9598
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-08-2019
رقم العضوية : 14230
المشاركات : 82
الجنس : ذكر
تاريخ الميلاد : 19-2-1989
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 48
الاعجاب : 13
 offline 
look/images/icons/i1.gif تعديل كواد msgbox

انا اسف يادكتور دأما الطلب يحتاج الي دكتور لكي يتعلم





19-08-2019 01:53 صباحا
مشاهدة مشاركة منفردة [8]
احمد 9598
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-08-2019
رقم العضوية : 14230
المشاركات : 82
الجنس : ذكر
تاريخ الميلاد : 19-2-1989
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 48
الاعجاب : 13
 offline 
look/images/icons/i1.gif تعديل كواد msgbox
يادكتور محمود ابو ذهب انا عايز الرسلتين يظهرو مره واحد فقط يعني بعد مااغير اسم ازر واكتب قيمة التكس بوكس واحد تختفي ومعاش تظهر حتي لوضغظ مره اخر يظهر القيمه في التكس بوكس1 فقط يعني الرسالتين معاش يظهر



تم تحرير المشاركة بواسطة :احمد 9598
بتاريخ:19-08-2019 01:54 صباحا






19-08-2019 02:14 صباحا
مشاهدة مشاركة منفردة [9]
احمد 9598
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-08-2019
رقم العضوية : 14230
المشاركات : 82
الجنس : ذكر
تاريخ الميلاد : 19-2-1989
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 48
الاعجاب : 13
 offline 
look/images/icons/winner_second_h4h.gif تعديل كواد msgbox
انا عدل كواد زاي ما انا طالبت منك بس نقص ان  لم اضغط عليه مره اخر يظهر القيمة تكس بوكس 1
فقط دكتور محمود ابوالدهب
'======================
If Me.TextBox2.Value = "" Then
Dim Name As String
Dim o As String
o = InputBox("ÇÏÎá ÑÞã ÇáÊÌÇÑí", "ÇÎÊÕÇÑÇÊ")
Me.TextBox1.Value = o
Name = InputBox("ÇÏÎá ÇÓã ÇáÒÑ", "ÇÎÊÕÇÑÇÊ")
CommandButton1.Caption = Name
Me.TextBox2.Value = 1
End If





19-08-2019 05:55 مساء
مشاهدة مشاركة منفردة [10]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1238
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 212
قوة السمعة : 4092
الاعجاب : 476
موقعي : زيارة موقعي
 Online 
look/images/icons/i1.gif تعديل كواد msgbox
ضع السطر التالى بداية الكود على ما فهمت 
if me.textbox2.value = 1 then
msgbox me.textbox1.value
me.textbox2.value = 2
end if



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

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


19-08-2019 08:44 مساء
مشاهدة مشاركة منفردة [11]
احمد 9598
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-08-2019
رقم العضوية : 14230
المشاركات : 82
الجنس : ذكر
تاريخ الميلاد : 19-2-1989
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 48
الاعجاب : 13
 offline 
look/images/icons/i1.gif تعديل كواد msgbox
لو افترض ان عندي تكس بوكس1 وعند زر ماشي 
وانا عمل كواد يغير اسم ازر ماشي وشيء الاخر يتكب قيمه في تكس بوكس1 ماشي 
لو فرض انا اسم زر بعد التغير اصبح 12345 ماشي 
والقيمة تكس بوكس 1 =54678 ماشي 
انا عايز بعد التغير اللحصل في تكس بوكس وفي الزر عدم اظهر الرساله مره اخر سواء كانت الرساله تغير اسم الزر او رساله تكس بوكس انا عايز لما اغير الاسم واكتب القيمه خلاص بعد كده لما اضغط علي يظهر قيمة تكس بوكس1  فقط اتنما اني قدرة علي تفهيمك مااريد 
وشكرا يادكتور محمود ابوالدهب علي مساعدتك دأمان معاي 


تم تحرير المشاركة بواسطة :احمد 9598
بتاريخ:19-08-2019 08:46 مساء






20-08-2019 12:02 صباحا
مشاهدة مشاركة منفردة [12]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1238
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 212
قوة السمعة : 4092
الاعجاب : 476
موقعي : زيارة موقعي
 Online 
look/images/icons/i1.gif تعديل كواد msgbox
بدلا من استخدام textbox2 لتخزين البيان وعندها عند غلق الفورم واعادة فتحة نرجع كما كنا يمكن الاستعانه بخلية في اى شي لتخزين البيانا  وعندها 
اذا تم تغير الاسم واعطاء تيكست 1 قيمة لن يطبها ثانيتا حتى لو اغلقت الفورم وقمت بفتحه مرة اخرى
 

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


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

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



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
فورم اضافة ومسح وحذف وتعديل و بحث بعددة طرق مختلفة مجدى يونس
7 80 مجدى يونس
فورم اضافة وتعديل وحذف وحفظ الملف مجدى يونس
7 46 YasserKhalil
مساعدة في تعديل كود جمع القيم المبتدأ
8 53 YasserKhalil
اريد برنامج قابل للتعديل يعتبر مثل قاعدة البيانات للموظفين لدي في الشركة عبد الله السعيد
6 80 ابراهيم الحداد
تعديل كود ترحيل من صفحة الى أخرى بدون تكرار اسم الفندق فى نفس التاريخ مهند محسن
16 336 مهند محسن

الكلمات الدلالية
msgbox ، كواد ، تعديل ،


 







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



الساعة الآن 09:50 مساء

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