فهمت الآن قصدك تمام .. وقد مر علي برنامج وهو برنامج المعقب .. يتيح لك البحث في الأسم الأول أو الثاني أو الثالث وهكذا .. أو حتى أسمين فقط ..
آمل أن يكون هذا قصدك ..
وهذا نفس المثال اللي كان قبل ما أضيف مشاركتي بعد التعديل ...
لاحظ طريقة الربط .. ولاحظ طريقة الإستعلام ..
يمكنك البحث حتى عن أسم واحد مثلاً ( اسم الأب ) أو ( أسم الجد ) أو غيره .. فيظهر لك جميع اللي أسماء آباءهم أو أجدادهم مطابق للبحث المدخل ..
مع تمنياتي لك بالتوفيق ..
اول شي مشكور يا اخ شوقي ويا اخ ابراهيم
لكن في مشكله
اول شي هذي الفكره الي انا ابيه يا اخ شوقي لكن في شي ثاني
الحين البرنامج 100%100 بس ليش مايطلع المعلومات الباقيه مثل رقم الاول والثاني والعنوان
انت عملتها كويس بس عاوز منك عند ما ابحث عن الاسم تطلع كل البيانات الموجوده مع الاسم وشكرآ
انتظر الرد على احر من الجمر
شوقي ليش لما اضيف اسم ومعلومات جديده مايبحث عليهم يقولي مافي
واهم موجودين في الداتا بيس
والثاني مايطل الى الاسم فقط وغيها مافي شي يعني الرقم العنوان مايطلع
وارجوووو الرد بسرعه
انا لما اضيف في قاعدة البيانات مايطلع الي اضفته
يعني عندي قاعدة بياننات نفس الي مع البرنامج بس اليوزرات الي فيها كثيره تقريب 250يوزر مع المعلومات كامله
ما اقدر اكتبهم كلهم لكن شنو اسوي اعمل لهم نسخ وبعدين لصق في قاعدة البيانات الثانيه
لما ابحث عليهم مايطلعون وجرب وكتبت واحد منهم طلع بس كتابه مش نسخ
الشي الثاني ماتطلع كل المعلومات الي مرفقه
مثل العنوان والرقم الى اخر شي من المعلومات
ربنا يخليك حلها
ابراهيم ياطيب انت وشوقي انا معتم على الله ثم عليكم في المشكله هذي
انا عارف اني سببت ازعاج لكن ربنا يخليكم ساعدوني
عملة المستحيل ابي المعلومات مثل الرقم والعنوان تطلع مافي فايده
قاعدة البيانات المصممه على access ابي اضيف عليها شي تضيف بس المشكله مايطلع في البحث
اذا ابيه يطلع لازم اكتب البيانات كامله والبيانات الي موجوده عندي كثيره ما اقدر اكتبها في يوم او يومين لازم اسبوع
لو اقدر اضيفهم في قاعدة البيانات عن طريق نسخ ولصق يعني انسخ من القاعده الي عندي في الجهاز الى قاعدة البيانات الموجوده في البرنامج
plzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz help me
موقادر احل المشكله
مع اني اسوي كل الى في استطاعتي
اي انتم يا اخواني لم احد يجيبني وانا في اشد الحاجه للأجابه
هل تريدون البحث في جميع القاعدة اذا هذي الحل عندي
اهلا اخي نعم اريد ولكن
المشكله الى عندي انه الداتا بيس لازم تكتب كل شي فيها وانا عندي 250 اسم مع الارقام يطلعون 500
يعني ماقدر اتبهم في يوم او يومين
هذي اول نقطه
ثاني نقطه ابيها تطلع تحت مرتبه على ادات flexgrid
بحيث يطلع كل شي مرتب
ثالث شي ابيه يبحث في الرقم ويطلع كل البيانات المرفقه مع الرقم
عزيزي q8-77 أنا آسف إني ما رديت عليك .. لأني لي يومين ما دخلت المنتدى ....
أولاً : حكاية البيانات ما تطلع كاملة .. هذي سهله .. عليك إنت تضيفها بنفسك .. انا وضعت فقط الأسماء الأربعة الأولى .. والباقي تضيفة بنفسك إذا كان على flexgride أو غيره ..
List1.AddItem rec("name") & " " & rec("name1") & " " & rec("name2") & " " & rec("name3") & " " & rec("name4")
عليك أن تضيف الحقول التي تريدها
rec("FiledName")ثانياً : أنت تقول عندك 250 على قاعدة ثانية .. والبيانات ما تطلع ويقول لم يجد شي .. طيب تأكد من أسماء الحقول وغيرها إذا كانت مو نفسها ..
أو إنك تضع برنامجك أشوف إيش الخلل . وأنا حاضر ..
أخوك .
q8-77 كتب:شوقي ليش لما اضيف اسم ومعلومات جديده مايبحث عليهم يقولي مافيواهم موجودين في الداتا بيس
والثاني مايطل الى الاسم فقط وغيها مافي شي يعني الرقم العنوان مايطلع
وارجوووو الرد بسرعه
طبعاً البرنامج أللي كتبته يعتمد على المساواه .. يعني لازم تدخل الإسم كما هو بمسافاته والهمزة .. وأخشى إنك تكون كاتب الإسم وعليه مسافه . لكن ممكن تستبدل جزء من الكود اللي كتبته والخاص بعملية المساواه إلى عملية البحث حتى جزء من النص .. حتى تتمكن من البحث مثلأ بدل ما تكتب "محمد" يكفي أن تكتب "مح" ويظهر لك جميع الأسماء التي يكون فيها "مح" .
If Text1.Text <> "" Then Sql = "name='" & Text1.Text & "'": AddAnd = True If Text2.Text <> "" Then If AddAnd = True Then Sql = Sql & " AND name1='" & Text2.Text & "'" Else Sql = "name1='" & Text2.Text & "'": AddAnd = True If Text3.Text <> "" Then If AddAnd = True Then Sql = Sql & " AND name2='" & Text3.Text & "'" Else Sql = "name2='" & Text3.Text & "'": AddAnd = True If Text4.Text <> "" Then If AddAnd = True Then Sql = Sql & " AND name3='" & Text4.Text & "'" Else Sql = "name3='" & Text4.Text & "'": AddAnd = True If Text5.Text <> "" Then If AddAnd = True Then Sql = Sql & " AND name4='" & Text5.Text & "'" Else Sql = "name4='" & Text5.Text & "'"
وتستبدله بهذا الكود
If Text1.Text <> "" Then Sql = "name LIKE '%" & Text1.Text & "%'": AddAnd = True If Text2.Text <> "" Then If AddAnd = True Then Sql = Sql & " AND name1 LIKE '%" & Text2.Text & "%'" Else Sql = "name1 LIKE '%" & Text2.Text & "%'": AddAnd = True If Text3.Text <> "" Then If AddAnd = True Then Sql = Sql & " AND name2 LIKE '%" & Text3.Text & "%'" Else Sql = "name2 LIKE '%" & Text3.Text & "%'": AddAnd = True If Text4.Text <> "" Then If AddAnd = True Then Sql = Sql & " AND name3 LIKE '%" & Text4.Text & "%'" Else Sql = "name3 LIKE '%" & Text4.Text & "%'": AddAnd = True If Text5.Text <> "" Then If AddAnd = True Then Sql = Sql & " AND name4 LIKE '%" & Text5.Text & "%'" Else Sql = "name4 LIKE '%" & Text5.Text & "%'"
اول شي هذي بوسه على راسك انت وكل الاخوان
طلعت كل المعلومات
بس شوقي انا ركبت ادات flexgrid
يطلع لي خطأ
هذي الي عقدتني
اما الداتا بيس الحين قاعد اكتبها وإن شاء الله اخلص منها اليوم بس المشكله الادات هذي اذا ممكن تضيفها انت على البرنامج اكون ممنونك
وشكرآ
ياعم انت عجيب انت رهيب
مشكوووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووور
تعال ابي ابوسك على خشمك
ربنا يخليك
اما على الفواصل الي في قاعدة البيانات انا علمت لها حل
نسخت قاعدة البيانات على الوورد وبعدها خليت الصفوف متساويه بحيث تكون مافي مسافات بين الكلام واشتغلة على طول
ربنا يخليك ويطرح فيك البركه
واي خدمه عيوني لك
لا شكر على واجب .. :rolleyes:
وعلى قولهم .... أنت تأشر وإحنا نقشر :lol:
ياعم وربنا المعبود انت عسل
واشكرك واشكر كل الاخوان الي في المنتدى
السلام عليكم ورحمة الله
ادري سببت ازعاج بس استحملني
ابي احد زر اضافه يا شوقي مايصير
شنو الحل
اي انت ياشوقي اين انت يا ابراهيم الطيب اين انتم يا اخوان
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…