[Abdellah]

(13-03-17, 02:57 PM)sendbad100 كتب : السلام عليكم

كل بحث  سيطبع في اكتف ريبورت  مستقل

عندما تغلق الاكتيف ريبورت يظهر نتائج الباحث التالي وعنما تغلق التالي يظهر الذي يليه

---

يشترط وجود نتائج للبحث حتى يتم اعتماد النتائج

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

[sendbad100]

السلام عليكم

لا اعرف طريقة لعمل ذلك

طبعا لا مستحيل في عالم البرمجة

في بالي طريقة ستكون بطيئه والنتائج قد تتكرر في حال تكررت في نتائج البحث المختلفه

لذلك اترك المجال لاخواني الكرام

[Abdellah]

شكرا جزيلا أخي العزيز لقد قمت بالواجب جزاك الله كل خير

[sendbad100]

الحمد لله من قبل ومن بعد 

وجدت طريقة 

تفضل 

غير الكود في Command2_Click  بالتالي   والله الموفق

PHP كود :

Private Sub Command2_Click()

If List1.ListCount < 1 Then Exit Sub
Dim x As String

For i = 0 To List1.ListCount - 1
 
 
List1.ListIndex = i
 If t = "" Then
t = "'*" & Trim(List1.Text) & "*'"

Else

t = t & " or [CARTE] LIKE '*" & Trim(List1.Text) & "*'"
End If
 Next
  
 Dim AR As New ActiveReport1
 

AR.DAODataControl1.DatabaseName = App.Path & "\DATA.mdb"
 
AR.DAODataControl1.RecordSource = " select * from [Table1]  WHERE [CARTE] LIKE  " & t


 AR.Show 1
  
List1.Clear
 
 End Sub 


[Abdellah]

لقد غيرت الكود ولكن عندما أقوم بالبحث على سجل واحد يطلع في التقرير سجلا واحدا وعندما أقوم بالبحث على سجليين يطلع لي
كل محتوى قاعدة البيانات

[sendbad100]

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

جرب الكود بعد التعديل 

والله الموفق

[Abdellah]

(13-03-17, 05:44 PM)sendbad100 كتب : قمت بتعديل الكود  في المشاركة رقم  14

جرب الكود بعد التعديل 

والله الموفق

عليك نور ياأخي الكل تمام الكود صحيح الله يعافيك ويحفظك 
وجزاك الله خير الجزاء