الساده الكرام
السلام عليكم ورحمة الله وبركاته
من كانه لديه خبره في انشاء بحث عن طريق Data1 الرجاء برامجة البحث في برنامجي المرفق با الرساله والله يحفظ الجميع :(
ملاحظه / ارجو من الله ثم الجميع المساعده والمشاركه ؟
البحث عن طريق الأدة Data
مغلق
و عليكم السلام و رحمة الله و بركاته
اهلاً بيك في المنتدي :)
و نتمني لاحقاً ان يكون العنوان دالاً علي المضمون , و انصحك باستخدام خاصية البحث اولا ثم طرح الموضوع فقد تجد اكثر مما تريد
:)
اخي العزيز ... عند فك ضغط الملف يطلع لي مشكله ..
الملفات مضروبه
ممكن تعيد ظغطه وتنزيله هنا ان امكن
أشهد أن لا إله إلا الله ***************** وأشهد أن محمد عبده ورسوله
السلام عليكم ورحمه الله وبركاته :D
الاخ athen25 :D
إستخدم هذا الكود
Data1.Recordset.FindFirst "faild name='" & Text6.Text & "'"
▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
لاتناسب الوحدة سوى الله
إعجاب المرء بنفسه دليل على صغر عقله
الحكمة عشرة أجزاء تسعة منها الصمت والعاشرة قله الكلام
قال لقمان لولده : شيئان إذا حفظتهما لا تُبالي بما ضيَّعت بعدهما ، درهمك لمعاشك ودينك لمعادك
▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
WWW.ZADTECH.COM _*_*_*_*_*_*_*_MRZAD_1@HOTMAIL.COM
افضل كود بالعالم للبحث
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
هذا الموضوع مغلق.