كيف اعمل تقرير بة عدة حقول

Dim Cmd As ADODB.Command

Dim DB As ADOX.Catalog

Dim SQL As String

Set DB = New ADOX.Catalog

DB.ActiveConnection = "Provider=Microsoft.jet.oledb.4.0;Data Source=" & App.Path & "\DatabaseName.MDb"

Set Cmd = New ADODB.Command

SQL = "Select Left(phone1,3),Left(phone2,3),Left(phone3,3) From TableName Where customerName='" + Left(Text1.Text, 4) + "'"

Cmd.CommandText = SQL

DB.Views.Append "MyQuery", Cmd

Crystalreport1.Data(0) = "Databasename"

Crystalreport1.ReportFilename = "Filename.RPT"

Crystalreport1.Active = 1

شكرا للاخ Neo_2010

اخي انا استعمل DAO ارجو تعديل الكود حتى يعمل مع DAO

ملاحظة اخي في الكود Where customerName انا ابحث في رقم الهاتف

وليس باسم الشخص

مثال عند البحث عن رقم هاتف يظهر اسماء الاشخاص المسجلة لهم نغس الرقم

بعض الاشخاص يسكنون في منزل واحد ويكون لهم نفس الرقم

ارجو المساعدة واسف اخي على الازعاج

شكرا جزيلا اخي

ارجو التوضيح اكثر من ذلك لان حضرتك عنك اربع حقول للتليفون حدد اى حقل سوف تقوم عملية البحث على اساسة ولو عايز تعمل بحث بالحقول الاربعة ممكنة بس حضرتك لازم تعطى للبرنامج مدخلات هذة القيم او القيم التى تشابها او ذى معرضت لحضرتك استخدام الدالة

Left(TableField,Number Of First String

ممكن اعمل لحضرتك مثال بس حاول توضح اكثر

لاشكر على واجب

شكرا للاخ Neo_2010 على الاهتمام

سوف اغير المثال للتوضيح عن فيلم وعدة ممثلين

لدي جدول بة Film_Name , Film_No , Actor_1, Actor_2 , Actor_3 , Actor_4

المطلوب عند البحث على ممثل سوف يبحث بكل حقول الممثلين , Actor_1, Actor_2 , Actor_3 , Actor_4 واذا وجدة يعرض اسم الفيلم الموجود بة

بمعنى يعرض كل الافلام التي بها اسم الممثل الذي تم البحث عنة

ان شاء الله وصلت الفكرة

وشكرا اخي على المساعدة

اعتقد ان الموضوع اتفهم دلوقتى

انا عملت مثال على الموضوع دة وربنا يوفق الجميع :)

Searching_in_More_Than_One_Field.rar

شكرا للاخ Neo_2010 والف شكر

اخي المثال ممتاز جدا للبحث باكثر من حقل وليس للتقارير

اخي ابي كود يستعمل للكرستال ريبورت يعطي نفس نتيجة المثال يعني ادخل اسم الممثل يعطي كل الافلام التي شارك بها

يعني يبحث في الحقل الاول والحقل الثاني الخ

ارجو المساعدة وشكرررررررررررررررررا جزيلا