السلام علكيم
حل سريع / استخدم الدالة between ،،،، ضعها بين التاريخ الأول والثاني .
ممكن تعدل البريمج مع الطباعة وأكون لك من الشاكرين
الشكر والتقدير لك أخي العزيز
وأنا بانتظار الطباعة ...لأنها مهمة بالنسبة لي
وفقك الله....وتحياتي لك
:)
شكرا لكم
اذا كانت البيانات برقم سري
اين اضع الكوذ
'
Set db = DBEngine.OpenDatabase(App.Path & "dewon.mdb")
Set rs = db.OpenRecordset("SELECT * FROM fbs")
'
Set Data1.Recordset = rs
'
MSFlexGrid1.TextMatrix(0, 1) = "aa"
MSFlexGrid1.TextMatrix(0, 2) = "bb"
MSFlexGrid1.TextMatrix(0, 3) = "cc"
MSFlexGrid1.TextMatrix(0, 4) = "det"
MSFlexGrid1.TextMatrix(0, 5) = "hh"
'
i = 0
'
If rs.EOF = False Then
'
Do While Not rs.EOF
i = i + 1
MSFlexGrid1.Rows = i + 1
MSFlexGrid1.TextMatrix(i, 1) = rs("aa")
MSFlexGrid1.TextMatrix(i, 2) = rs("bb")
MSFlexGrid1.TextMatrix(i, 3) = rs("cc")
MSFlexGrid1.TextMatrix(i, 4) = rs("det")
If Not IsNull(rs("hh")) Then MSFlexGrid1.TextMatrix(i, 5) = rs("hh")
rs.MoveNext
Loop
End If
'
End Sub
الاخ الكريم ... Visitor_OM المحترم
الكود ممتاز ويعمل لكن جربته مع حقل تاريخ من نوع تكسيت وليس ديت وتايم
ولم يعمل ... هل هناك كود اخر ...
او ان البحث بنوع تكسيت لايعمل ... لان حقل التاريخ عندي نوع تكسيت
اذاً مضطر لتغيير الداتا بيز من جديد ...
**** ((( عزيزي لاتنسى كود الطباعة ))) *****
وشكرا لجميع اعضاء المنتدى الرائع ...
أخي الكريم جرب حذف الدالة DateValue من الكود .
بالنسبة للطباعة ارجوا المعذرة لإني لا أملك الركريستال ربيوتر .
من أجل كلمة المرور غير في هذا الكود في الإطراف فقط /
Set db = DBEngine.OpenDatabase(App.Path & "dewon.mdb", True, False, ";pwd=abcd")
طبعا abcd معناه كلمة المرور .
تحياتي .
شكراً لللاخ Visitor_OM
سوف اجرب الكود
سوال للزملاء الاخرين .. بعد فرز البيانات في فلكس جريد
هل يوجد كود لطباعة البيانات مباشرة بدون كرستال ريبورت
وشكراً .....
شكرا للزملاء ....
واليكم البرنامج بعد التعديل ...
البحث ممتاز يعمل ... بين تاريخين وبحقل من نوع تكسيت
مع الرقم السري للداتا .... وكود استعراض سجل عشوائي
وكود اخر الفرق بين التاريخين بالايام ...
وكود الطباعة ...؟ لكن ناقص يبي تعديل ؟؟؟؟؟؟؟؟ اللي يقدر يعدله
يضعه في المنتدى لخدمة الجميع
انزله بعد التعديلات
أخي الكريم الاتصالات لماذا لا تستخدم DataReport للطباعة .
عملية سهلة
واخوي الاتصالات انا متاكد انه لايعرف:'(:'(:'(
ما نعرف ممكن شرح بسيط:'(:'(:'(
اخي Visitor_OM المحترم ...
اشكرك على جهودك معنا في البرنامج
انا لااعرف طريقة الطباعة / بالداتا ريبورت .. ممكن تكمل جميلك وتعمل
الطباعة على البرنامج مباشرة مع العلم ان حقل التاريخ تكسيت
وشكرا لك
الشكر وكل التقدير لك....سوف نجرب الكود
اخي العزيز ........... مشكووووووووووووووووور
الكود جداً ممتاز الطباعة ويعطيك العافية على المجهود
العفوا أخي العزيز فهذا واجب علينا ,,,
هذا الموضوع مغلق.