بسم الله الرحمن الرحيم
سوف اضع فى المرفقات مشروع قمت بعملة ولكن لم أستطيع أن أضع كود بحث فأرجو أن تساعدونى فى
وضعة ------ أول طلب
الطلب الثانى ------ عندما أقوم بإضافة جديدة عندالضغط على زر حفظ يحفظ الأسم فقط لمازا وأرجو أن
تساعدونى فى حل المشكلتين
بخصوص الطلب الأول
البحث يكون بإدخال الإسم فى text أو فى InputBox
وشكراً ولكل من يساعدنى فى الموضوع هدية بخصوص الفيجوال بيسك
السلام عليكم ورحمة الله وبركاته
لو بالامكان استخدام خاصية البحث اسفل المنتدي و ستجد الكثير باذن الله
اخوك محترف
ضع الكود التالي بالتكست
وهو افضل بحث
بحث سريع جدا
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شكراً أخى Professional VB9
بس أنا مش فاهم فلوسمحت أرجوك أن تضع الأكواد وتصلح الأخطاء بالمشروع وتضعة مرة أخرى بالمرفقات أو ترسلة لى على الأيميل leader_basel@hotmail.com
أرجو المساعدة
وأنا لسة عند وعدى بالنسبة للهدية
شكراً للمنتدى كلة كنت أتمنى أفضل من ذلك أكثر من 54 ألف عضو فى المنتدى لايرد على سوى أثنان ولم أطلع برد يفيدنى
أرجو الرد هل سيساعدنى أحد أم لا :(
أخي الحبيب ها هو المشروع بعد تعديله و اوعي تزعل من حد من الاعضاء، محدش يعرف ظروف الناس ايه، المشروع عدلته بحيث يعمل الا انه يحتاج الكثير من العمل، و ان شاء الله ربنا يوفقك
أخوك احمد شلبي DB Systems Developer
Oracle 10G Certified Professional Developer.
عودة بعد 3 سنوات غياب، ان شاء الله سوف اتكلم معكم قريبا احبائي
أخوي ضع المشروع وانا اتكفل به اسوي كل شي انت بس حطه
شكراً أخى أحمد شلبى على مجهودك الرائع فالبحث أشتغل 100 %
وشكراً أيضاً أخىProfessional VB9
هازى هديتى
دورة من منتديات العاصفة فى الفيجوال بيسك من الصقر الجارح & المخترق
هزة بعض المشاريع وسوف أضع ملف pdf فى المشاركة الثانية
لابد من فك ضغط الملفات فى مجلد واحد
romantic_boy كتب:أخي الحبيب ها هو المشروع بعد تعديله و اوعي تزعل من حد من الاعضاء، محدش يعرف ظروف الناس ايه، المشروع عدلته بحيث يعمل الا انه يحتاج الكثير من العمل، و ان شاء الله ربنا يوفقكأخوك احمد شلبي DB Systems Developer
-----------------------------------------------------------------------------------------------
خي العزيز / احمد شلبي
السلام عليكم ورحمة وبركاته
ارجو من الله ان تصل رسالتي هده وانت با الف صحه وعافيه اخي العزيز ارجو من الله ثم منكم مساعدة في برامجة البحث في برنامجي المرفق والله يحفظكم ويرعاكم
أخوتى أرجو المساعدة أكود اشتغل 100% بس نسختة ووضعتة فى مشروع أخر مشتغلش لية أرجو الأهتمام والمساعدة
هاهو الكود
()CODE]Private Sub Command1_Click]
Dim x As String
(x = Trim$(Text1
' هنا يبحث في حقل ال name
"'"& Data1.Recordset.FindFirst "name = '" & x
("لا يوجد نتائج للبحث!")If Data1.Recordset.NoMatch Then MsgBox
End Sub
السطر دة الى فية الخطأ
"'"& Data1.Recordset.FindFirst "name = '" & x
ورسالة الخطأ فى المرفقات
تم تعديل هذه المشاركة بواسطة basel2000 في 26 يوليو 2005 في 22:21
انا الحين حملته وراح اكمل المشرووووووع
أرجو الرد بسرعة
أرجو أن تفيدونى ما الخطأ فى هزا الكود
Dim x As String
x = InputBox("من فضلك ادخل الاسم", "بحث بالاسم")
If x = Cance1 Then Exit Sub
Data1.RecordSource = "select * from tabel1 where name like '*" & x & "*'"
Data1.Refresh
أرجو الرد ولا مفيش مساعدة
بقالى يومين مستنى
basel2000 كتب:أرجو الرد ولا مفيش مساعدةبقالى يومين مستنى
----------------------------------------------------------------------------------------------- اخوي العزيز شكرا لك على المساعده
ارغب منك اخوي المساعده وعمل في برنامج المرفق بحث با الا سم ارجوك برنامجي مرفق ؟؟؟؟؟؟؟؟؟؟؟؟؟
والله يحفظكم ويرعاكم :rolleyes:
مشروع 100 ممتاز مافيه خطاء جربته بعد
أخي الحبيب قلت لك قبل ذلك لا تسمي الحقول بأسماء عربية انت مسميها بأسماء عربية و كمان مسافات، لو غيرت تصميم القاعدة و جعلت الحقول أسماء انجليزية ان شاء الله كل شيء سيسير علي ما يرام .. أخوك أحمد شلبي
Oracle 10G Certified Professional Developer.
عودة بعد 3 سنوات غياب، ان شاء الله سوف اتكلم معكم قريبا احبائي
romantic_boy كتب:أخي الحبيب قلت لك قبل ذلك لا تسمي الحقول بأسماء عربية انت مسميها بأسماء عربية و كمان مسافات، لو غيرت تصميم القاعدة و جعلت الحقول أسماء انجليزية ان شاء الله كل شيء سيسير علي ما يرام .. أخوك أحمد شلبي
-----------------------------------------------------------------------------------------
اخي الحبيب
السلام عليكم ورحمة الله وبركاته
ارجو من الله ان تكون با الف صحه وعافيه معليش على الازعاج اخوي اريد منك خدمه بسيطه وارجو من الله ثم منك المساعده اريد برامجة عداد السجلات انظر الى البرنامج المرفق وسوف تعرف ما اقصد ؟ والله يحفظكم ويرعاكم :)
والك مني فائق الاحترام والتقدير
اقتباساريد برامجة عداد السجلات انظر الى البرنامج المرفق وسوف تعرف ما اقصد
أرجوا التوضيح لا أفهم ما تقصده
Oracle 10G Certified Professional Developer.
عودة بعد 3 سنوات غياب، ان شاء الله سوف اتكلم معكم قريبا احبائي
romantic_boy كتب:أرجوا التوضيح لا أفهم ما تقصده
--------------------------------------------------------------------------------------------
اخوي العزير
اقصد من برامجة عداد سجلات كما هوا موضح في الصوره وارجو من الله ثم منكم مساعده في برنامجي المرفق في برامجة عداد سجلات والله يحفظك ويرعاكم اخوي الفاضل
هذا الموضوع مغلق.
