+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : الاحتفاظ بنتائج البحث (/showthread.php?tid=19607)
الصفحات:
1
2
RE: الاحتفاظ بنتائج البحث - Abdellah - 13-03-17
(13-03-17, 02:57 PM)sendbad100 كتب : السلام عليكم
كل بحث سيطبع في اكتف ريبورت مستقل
عندما تغلق الاكتيف ريبورت يظهر نتائج الباحث التالي وعنما تغلق التالي يظهر الذي يليه
يشترط وجود نتائج للبحث حتى يتم اعتماد النتائج
عندما أقوم بالبحث مثلا على خمسة سجلات الأحسن أن يكونو في ورقة واحدة عوض خمسة أوراق
جزاك الله كل خير
RE: الاحتفاظ بنتائج البحث - sendbad100 - 13-03-17
السلام عليكم
لا اعرف طريقة لعمل ذلك
طبعا لا مستحيل في عالم البرمجة
في بالي طريقة ستكون بطيئه والنتائج قد تتكرر في حال تكررت في نتائج البحث المختلفه
لذلك اترك المجال لاخواني الكرام
RE: الاحتفاظ بنتائج البحث - Abdellah - 13-03-17
شكرا جزيلا أخي العزيز لقد قمت بالواجب جزاك الله كل خير
RE: الاحتفاظ بنتائج البحث - sendbad100 - 13-03-17
الحمد لله من قبل ومن بعد
وجدت طريقة
تفضل
غير الكود في 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
RE: الاحتفاظ بنتائج البحث - Abdellah - 13-03-17
لقد غيرت الكود ولكن عندما أقوم بالبحث على سجل واحد يطلع في التقرير سجلا واحدا وعندما أقوم بالبحث على سجليين يطلع لي
كل محتوى قاعدة البيانات
RE: الاحتفاظ بنتائج البحث - sendbad100 - 13-03-17
قمت بتعديل الكود في المشاركة رقم 14
جرب الكود بعد التعديل
والله الموفق
RE: الاحتفاظ بنتائج البحث - Abdellah - 14-03-17
(13-03-17, 05:44 PM)sendbad100 كتب : قمت بتعديل الكود في المشاركة رقم 14
جرب الكود بعد التعديل
والله الموفق
عليك نور ياأخي الكل تمام الكود صحيح الله يعافيك ويحفظك
وجزاك الله خير الجزاء
