Professional VB9

اخوي انسي لو تخرب المسابقه اهم شي ان تكون انت معنا

انا ارشح الاخ HNHN

ماشاء الله مشكور على المشاركه الطيبه

مستعد مستعد متى نبدأ

On Error Resume Next Data1.Recordset.AddNew For i = 0 To Data1.Recordset.RecordCount - 1 Data1.Refresh 'للتحديث Data1.Recordset.Move (i) If Left(Data1.Recordset("NameStudent"), Len(Text7)) = Text7 Then Exit For End If Next i هذا الكود ممتاز ضع الكود التالي في …

عضو واحد فقط لي في

مشروع 100 ممتاز مافيه خطاء جربته بعد

1 عضو باقي

كم باقي اعضاء ونكتمل

اوكي

انا الحين حملته وراح اكمل المشرووووووع

انا اتكلم جد بس باقي عضويييييين (انا صاحب الفكره) لو مبتدئييييين بس وينكم ياأعضاء

بس نضع اسمي واسمكم واسم كل المشتركين في الكتاب صح ولا لا

أخوي ضع المشروع وانا اتكفل به اسوي كل شي انت بس حطه

انا طبعا راح أشترك

ماقصدك :angry:

اولا نريد ان نعلم المبتدئين شوف اسئلتهم مره عاديه نريد ان نعلمهم دروس قيمه جدا

شباب خلونا نبدا بالمسابقه

افضل كود بالعالم للبحث On Error Resume Next Data1.Recordset.AddNew For i = 0 To Data1.Recordset.RecordCount - 1 Data1.Refresh 'للتحديث Data1.Recordset.Move (i) If Left(Data1.Recordset("NameStudent"), Len(Text7)) = Text7 Then Exit For End If Next i

وضعت لعبه ثلاثيه البعد مصممه بالفيجوال بيسك