الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ليه هالسؤال محد قادر يجاوب عليه ؟؟؟

مغلق
بدأه الثريـــــا في 29 يوليو 2005 · 7 رد · 751 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمه الله وبركاته

اخواني اعضاء المنتدى

بحثت كثيرا ً في هذا المنتدى عن هذه المشكله التي تواجهني في الكريستال ريبورت ولم اجد لها حلا ً

رغم اني وجدت عدت مواضيع تسأل عن نفس السؤال ولكن بدون اجابه

سؤالي هو

قمت بعمل تقرير بالكريستال ريبورت وقمت بربطها بالفيجوال بيسك

وعند عرض التقرير للمره الاولى اشتغل التقرير بدون مشاكل

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

علما ً بأن الداتا بيس مصممه بالاكسس

ارجوا الاجابه على سؤالي فبرنامجي متوقف على عرض التقرير بدون مشاكل :(

مع الشكر للجميع

#2

عليكم السلام ورحمة الله وبركاته

يا ليت تضع مثال هنا ؟

كيف حذفت البيانات ؟ يدوي او من داخل البرنامج ؟

هل قطعت الاتصال بقاعدة البيانات واتصلت من جديد؟

460.gif

#3

جزاك الله الف خير اخوي المتميز على مرورك

بالنسبه لحذف البيانات تم حذفها يدويا من قاعده البيانات

قمت بقطع الاتصال بقاعده البيانات وعمل الاتصال من جديد

قمت بتعديل الريبورت بعد ان قمت بحذف علامه الصح من كلمه save data with report عند تصميم الريبورت في الكريستال ريبورت 10

دمت بود

#4

السلام عليكم ورحمة الله وبركاته

تأكد من خاصية save data with report قبل ان تحفظ التقرير في مرحلة التصميم

gaza3-3.jpg
#5

نفس الرد فقط تاكد من حذف علامة الصح على save data with report

الايمان +الحلم +العلم +العمل = النجاح

ما اسهل ان تنجح ... وما اصعب ان تحافظ على نجاحك

#6

جزاكم الله خير يا اخوان على اهتمامكم

يمكن ماكون وصلت لكم المشكله بالشكل الصحيح

المشكله هي مثلا ً لما اختار رقم وارد وابحث عنه يظهر لي التقرير كامل

يعني يعرض لي قاعده البيانات كامله مايعرض لي ماتم اختياره

وهذا كود زر البحث

If Text3.Text <> "" Then
cn.Open "dsn=aws"
        rs.CursorType = adOpenKeyset
        rs.LockType = adLockOptimistic
        
        
    rs.Source = "select * from  awamr where ward_no= val( '" & Text3 & " ' ) "
        rs.ActiveConnection = cn
        rs.Open
        If Not rs.EOF Then
        
        
         Form1.Show
          
        rs.close
        cn.close
      Set rs = Nothing
      Set cn = Nothing
      
      
      
Else
      MsgBox "ÇáÑÞã ÇáÐí ÃÏÎáÊå ÛíÑ ãæÌæÏ ,ÇáÑÌÇÁÇáÊÃßÏ ãä ÇáÑÞã ÇáÕÍíÍ æÔßÑÇð", vbOKOnly + vbExclamation, "ÑÓÇáÉ ÎØÇÁ"
       Text1.Text = ""
      Text2.SetFocus
           End If
           Set rs = Nothing
            Set cn = Nothing
     
    Else
 MsgBox "ÇáÑÌÇÁ ÃÏÎÇá ÑÞã ÕÍíÍ", vbCritical + vbOKOnly, "ÑÓÇáÉ ÍÐíÑ"
        Text1.SetFocus
         End If

اتمنى اني اكون وصلت لكم المعلومه صحيحه

#7

الاخ الكريم انا لا افهم ايه اللي انت كاتبه في الكود هذا

المفروض مرحلة البحث والشروط تكون قبل استعراض التقرير بالذات في الكريستال ريبورت

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

===

لذا انا اقترح انك تعمل الشروط قبل عرض التقرير وهذه لها 3 طرق :

1- ان تبني التقرير علي فيو وهذا الفيو يكون معتمد علي جداول البينات اللي عاوز تضيفها بالاضافة الي جدول جديد لك تحفظ فيه الشروط عند طلب التقرير

2- ان تبني التقرير الخاص بك علي جملة Sql ترسلها للتقرير عند طلبه وبها الشروط التي تريدها في كل مرة

3- ان تبني التقرير الخاص بك علي جملة Sql او فيو او جدول لكن ترسل الشروط الي التقرير نفسه عن طريق خاصية

SelectionFormula

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

#8

يعطيك العافيه اخوي engbelal2003

جاري التجربة

وان شاء الله ابلغكم بالنتائج

تم تعديل هذه المشاركة بواسطة الثريـــــا في 30 يوليو 2005 في 21:49

هذا الموضوع مغلق.

مواضيع مشابهة