Super_Pro

السلام عليكم الحل هو مصفوفة الكائنات قم باضافة اداة تايمر و اعملي كوبي بيست ستظهر لكي رساله تسأل هل ترغب في ان شاء مصفوفة كائنات اختاري نعم :lol: وكرري العمليه مره اخر كوبي بيست ليصبح لديك 3 ادوات تايمر ثم جربي الكود التالي و عدلي عليه كما ترغبين :::: ;) Priva…

مشكور اخي على الموضوع لكن لم تعمل الاداه :unsure: ربما لها اعدادات اخرى خاصه بالصوت اذا امكن الافادة :D

السلام عليكم قراءة سريعه للكود تبين نسيت اضافه التالي rs.edit ليصبح الكود RS.FindFirst "Password='" & Text1.Text & "'" If RS.NoMatch Then MsgBox "wrong password": Exit Sub RS.Edit RS!Password = Text2.Text RS.Update العذر عن اي خطأ لاني جاوبت بسرعه وبدون تجربه …

وهي المسؤوله عن فتره تنفيذ الحدث يعني كل ثانيه كل ثانيتين :lol:

اخواني الاحظ ان معظم الاسئلة و الاخطاء المتكررة في المنتدى هي من قبل اعضاء جدد بالدرجة الاولى هم بالاصل زوار وسبب التسجيل اصلا هو سؤال او سؤالين -_- ثم هجر المنتدى من دون عودة :( هذا على مستوى تجربتي الخاصه مع بعض الاعضاء و المراسله المتكررة على الخاص ومن ثم و…

جاري التحميل و التجربه والى الامام :lol:

مشكورين اخواني على المعلومات و على التصحيح :D

طبع الكود السابق سليم 99% هناك خطأ املائي dowhile ===> do while اخي الكريم هما احتمالين حسب معلوماتي المتواضعه :D اولا ربما ان الحذف يتم من جزاء اخر من الكود وليس الجزء الذي قمت بعرضه الثاني ان البيانات لا تحذف اصلا من قاعدة البيانات حيث ان عندما تقوم بعرض الم…

كود اخر لزيادة الفائدة ;) Private Sub Command1_Click() Combo1.SetFocus SendKeys "{F4}" End Sub (h)

مرحبا تأكد من ان السلاك الذي بين الشاشه و كرت الشاشه موصول في كلا الاتجاهين واذا موصول 100 % جرب فك كرت الشاشه وقوم بتفريغ الشحنات الساكنه منه بوسطه دعكه بممحاة مثلا و اعد تركيبه و السلام عليكم ورحمه الله وبركاته (h)

جاري التحميل و التجربة :D و بالتوفيق ومع امنيات الاستمرار و التطور والى الامام :lol:

مع اني اشعر ان الموضوع في صفحة الوفيات (المواضيع المغلقة) :P لكني ساضع الاجابه التي اقدر عليها وارجو منك في المشاركة المقبله قراءة قواعد المشاركة و وضع عنوان مناسب للموضوع المنطقة التي تقصدها هي الموضوحه في الصورة التاليه قوم باختيار كلمة general من داخل الكمب…

على الرحب والسعة في اي وقت :lol:

اخي مع اني اعتقد ان الموضوع في عدد المواضيع المغلقة لكن ساقوم بالاجابه بالاقدر عليه ولكن ارجو منك في المرة المقبلة قراءة قواعد المنتدى و وضع اسم مناسب لاي موضوع تقوم باضافته :lol: ضع الكود التالي قبل الكود السابق حيث انك قمت بتاكد من عدد السجلات التي تم استدعا…

موضوع رائع وفعلا متقدم :lol: وشكرا لكم (h)

اخي يرجى تحويل نفس المثال المنفذ بوحدات الماكرو الى مشروع vb وتذكيري بواسطه رساله خاصه لارى المثال و اساعدك للعثور على اخطاءك و الوصول الى سورس كود سليم خالي من الاخطاء ;) ;)

اخي هذا جزء من المنطلوب و حاول اكمال الباقي و حدك :D Private Sub Text1_Change() With Text1 If Val(.Text) <= 100 And Val(.Text) >= 80 Then Text2.Text = "very good" ElseIf Val(.Text) < 80 And Val(.Text) >= 50 Then Text2.Text = "good" End If End With End Sub و هن…

اخي الكريم B) / تعني اشارة للقسمة وليس باقي القسمة mod تعني باقي القسمة لاحظ المثال MsgBox 3 / 2 MsgBox 3 Mod 2 B)

اختي الكريمة مثال مخصوص عشانك لكن لي رجاء خاص بعدم استعمال البرنامج بدون فهم ولكن قومي بفتح السورس كود و الداتا بيس و فهم ما بهما :D ومن ثم بقومي بتعديل كما يحلو لكي :lol: بالنسبة لسؤال الثاني هل تريدين تعديل الترتيب في نفس الداتا بيس اما في العرض فقط (اقصد عر…

مرحبا B) اذا امكن المزيد من الشرح حيث اين تريدين البحث (في داتا بيس , في تكست في كمبو وبكس) المزيد من التوضيح لو سمحتي و يرجى عدم تكرار الموضوع !! :rolleyes: