mmghv

إذا كنت تريد التأكد من عدم تكرار قيمة العنصر رقم 3 مثلاً في باقي العناصر فأستخدم الكود: For i = LBound(MyArray) to UBound(MyArray) If i <> 3 and MyArray(3) = MyArray(i) Then msgbox i Next

LBound تعني Lower Bound او رقم اول عنصر من عناصر المصفوفة و UBound تعني upper Bound او رقم آخر عنصر من عناصر المصفوفة

شكراً لك اخي Najy_Zl ملحوظة جميلة بارك الله فيك .. ولإستكمال الملحوظة يجب ان تنتهي الحلقة الخارجية عند UBound(MyArray)-1 حتى لا يحدث خطأ عند آخر عنصر من عناصر المصفوفة عند جعل الحلقة الداخلية تبدأ بالعنصر الذي يليه .. فيكون الكود كامل : For I1 = LBound(MyArray…

للتحقق من وجود تكرار من عدمه بين عناصر المصفوفة نستخدم لووب داخل لووب اللوب الاول لسرد عناصر المصفوفة واللوب الثاني لمقارنة كل عنصر من عناصر المصفوفة (اللووب الاول) مع باقي عناصر المصفوفة (اللووب الثاني) فمثلاً لنفترض ان لدينا مصفوفة اسمها MyArray ونريد التحقق…

مجرد نصيحة : إذا كنت مبتدأ بالبرمجة لماذا لا تبتدأ بالفيجوال بيسك دوت نت ؟؟!

Check1 هي الاداه و True هي القيمة, لكن قيمة ماذا, يجب تحديد الخاصية اولاً If Check1.Value=1 Then ........... End If خاصية التحديد هي Value وتكون قيمها 0 او 1 او 2 فيكتب اسم الاداه ثم "." ثم الخاصية ثم "=" ثم القيمة هذه هي الصيغة العامة لتغيير او تحديد قيمة خاص…

حسناً , إذا كانت هذه الإختيارات ثابتة وغير قابلة للتغيير او الإضافة فيمكنك عمل التالي: اولاً في الكومبو في وقت التصميم من خلال خاصية الـ List تقوم بإضافة الإختيارات التي تريد ولربط الكومبو بالداتابيز يصبح لديك خيارين: الاول: ان تتعامل مع الكومبو في الربط كأنه …

لا عيب في السؤال طالما تتحقق منه الإفادة في الفهم والتعلم, فلولا السؤال ما تعلمنا جميعاً, فأنا بدايتي كانت في هذا المنتدى وهو ما تعلمت منه الكثير عن طريق طرح اسئلة او حتى الإجابة على اسئلة .. بالنسبة لمشروعك اولاً حاولي فهم الاكواد وتطبيقها على مثال صغير ثم عل…

يوجد للغة SQL نوعين من الاوامر, نوع إستعلامي ونوع تنفيذي النوع الإستعلامي هو ما نستخدم فيه الجملة Select لنقوم بالإستعلام في جدول بشروط معينة والنوع التنفيذي هو ما نقوم به بالإضافة والتعديل والحذف على السجلات ويقوم هذا النوع بتنفيذ الامر على كل السجلات التى تن…

اشتغل عادي .. Exa.rar

ضع مثال لنرى ما المشكلة ..

فقط استخدم: If .State = adStateOpen Then .Close .Open "select * from Tab_2012 where Field1 Like '%" & Text1.Text & "%'" count.Text = .RecordCount .Close ففي الاستعلام الذي نفتح به الجدول نقوم بعمل الفلترة اللازمة ثم نعرض عدد السجلات

حسناً .. لنتعلم سوياً .. اولاً لإضافة بيانات في الليست دي سهلة , فقط : List1.AddItem "ItemText" ثانياً .. البحث في النصوص: نستطيع مقارنة نص بنص آخر وإستخدام جملة شرطية مثل: If "Text1" = "Text2" Then ... End If لكن ماذا إذا اردنا ان نبحث في جزء من النص, مثلاً ن…

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

لسا كنت بفكر وبتساءل هل هناك خاصية Sort للـ RecordSet حتى لا احتاج لإعادة فتح الـ RecordSet وتغيير الإستعلام كل مرة اريد فيها عمل Sort بحقل معين .. شكراً لك لمشاركتنا المعلومة المفيدة .. بارك الله فيك

بعد عمل التحديث الى ServicePack6 قم بحذف الداتاريبورت نهائياً ثم قم بإنشاءه من جديد . وللتأكد من نجاح الموضوع قبل عمله قم بإنشاء مشروع تجريبي جديد ثم قم بإضافة داتاريبورت وقم بإستخدام خاصية الـ Orientation ثم قم بتجربة إستخراج ملف تنفيذي .. فإن نجحت قم بحذف كل…

المفرود انك تطلبي استفسار ومساعدة في كتابة كود لا بناء فورم كامل بأكواده في البرنامج فنحن هنا للمساعدة فقط والمساعدة في معرفة وفهم الكود لا عمل كود واخده Copy & Paste إذا كنتي تريدي مساعدة في عمل الكود وفهمه لتقومي بتطبيقه في مشروعك فأخبرينا لنقوم بمساعدتك

يعني عرفت تعبي الجريد من الـ NotePad ومعرفتش تحسب مجموع عمود على العموم استخدم هذا الكود : Dim Total As Double With DataGrid1 .Col = 2 .Row = 0 For n = 0 To .VisibleRows - 1 Total = Total + Val(.Text) If .Row < .VisibleRows - 1 Then .Row = .Row + 1 Next MsgBox…

هذه خاصية تدعى Microphone Playback وتكون Muted حتى لا تستطيع سماع صوتك عند التحدث في المايك ولتستطيع سماع صوتك يجب رفع مستوى الـ Microphone وإلغاء الـ Mute من خيارات الصوت لتشغيلها هذا المثال يقوم بذلك فقط قم بإلغاء خيار الـ Mute للميكروفون ورفع مستوى الصوت من…

إذا كان لديك إتصال بالداتابيز وتريد مجموع قيم حقل معين تستطيع إستخدام الكود : Dim Total As Double Total = 0 rs.MoveFirst Do Until rs.EOF Total = Total + Val(rs!MyField) rs.MoveNext Loop MsgBox Total حيث rs هو الجدول المربوط بالداتابيز و MyField هو الحقل الذي ت…