(13-03-17, 02:57 PM)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
لقد غيرت الكود ولكن عندما أقوم بالبحث على سجل واحد يطلع في التقرير سجلا واحدا وعندما أقوم بالبحث على سجليين يطلع لي
كل محتوى قاعدة البيانات
قمت بتعديل الكود في المشاركة رقم 14
جرب الكود بعد التعديل
والله الموفق
(13-03-17, 05:44 PM)sendbad100 كتب : [ -> ]قمت بتعديل الكود في المشاركة رقم 14
جرب الكود بعد التعديل
والله الموفق
عليك نور ياأخي الكل تمام الكود صحيح الله يعافيك ويحفظك
وجزاك الله خير الجزاء
