[ayman]

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

عند تصميم التقرير الكريستال ببيئة الفيجوال , أقوم بإعطاء التقرير عنوان لقاعدة البيانات لإنشاء اتصال جديد وإدراج الحقول وخلافه ...
المشكلة أنه عندما أضع البرنامج عند العميل يطلب تحديد مكان قاعدة البيانات لأن العنوان للقاعدة اختلف !

قمت بوضع هذا الكود في زر عرض التقرير :

كود :

Dim arr As New arrivalReport
        Dim rep As New rep
        rep.CrystalReportViewer1.ReportSource = arr
        arr.DataSourceConnections.Item(0).SetConnection(Application.StartupPath & "\data.accdb", "data.accdb", False)
        arr.Refresh()
        rep.ShowDialog()

وفي حدث CrystalReportViewer1_Load للتقرير قمت بوضع هذا الكود :

كود :

CrystalReportViewer1.RefreshReport()

تم حل المشكلة ولكن لابد لهذه الرسالة من الظهور : Logon Failed. Please Try Again Later مع زر موافق .
ما إن تضغط موافق حتى يعمل التقرير بالشكل السليم , كيف أتخلص من هذه الرسالة المزعجة أو إذا كان هناك طريقة أخرى أتمنى معرفتها؟

شكرا لكم والسلام عليكم