• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

الاسد الكاسر

اعضاء
  • عدد المشاركات

    88
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 عادي

عن الاسد الكاسر

  • الرتبة
    عضو
  1. كان التقرير يعمل معي جيد ولكن فجأة ظهرت لي هذه الرسالة أرجو الرد للأهمية وجزاك الله خير
  2. استعلام في الكريستال

    معقول يا جماعة الخير مفيش إجابة الموضوع مهم جدا عندي نفس المشكلة
  3. اريد أن اطبع نسختين من التقرير بحيث انه بمجرد الضغط على زر طباعة يقوم بسحب ورقتين وطباعتهم
  4. كود الإضافة كان يعمل عندي بصورة جيدة وهو عند الضغط علية يزيد في التسلسل واحد بمعنى المسلسل = 1 بعد الضغط عليه يزيد ليصبح المسلسل = 2 ولكني فوجئت بان التسلسل يعطي رسالة بأن التسلسل مكرر ولا يريد الزيادة ومرفق لكم الكود للتعديل وجزاكم الله خير Public Sub bill_numb() Dim cmdno As New OleDb.OleDbCommand("Select * From Bill_info", con) con.Open() Dim drno As OleDb.OleDbDataReader = cmdno.ExecuteReader While drno.Read bill_no.Text = drno(0) End While Me.bill_no.Text = Val(Me.bill_no.Text) + 1 con.Close() drno.Close() End Subوفي زر الإضافة يقوم باستدعاء الإجراء Private Sub BTN_ADD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_ADD.Click BTN_ADD.Enabled = False BTN_EX.Enabled = True btn_prin.Enabled = False BTN_SAV.Enabled = True CMP_CIT.Enabled = True CMP_CUS.Enabled = True DataGridView1.Enabled = True Call CLEAR() Call setg() Call bill_numb() End Sub
  5. أخي محمد تم التاكد أن مسارات التقرير مضبوطة وتم مراجمعة الكود والتاكد من المسارات المكتوبة داخل الكود هل من الممكن المساعدة في التعديل على المشروع نفسة أقوم  برفعه الان وجزاكم الله خيرا http://www.4shared.com/rar/CgRyKn8mba/MASBAGHA.html فعلا أنا حاولت كتير جدا
  6. ظهرت لي رسالة بعد تركيب البرنامج على جهاز العميل تظهر لي رسالة ولا يظهر التقرير ومرفق صورة من الرسالة فأرجو المساعدة لحل هذه المشكلة
  7. رسالة خطأ تظهر في تقرير دون التقارير الاخرى

    Private Sub bill_show_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If con.State = ConnectionState.Open Then con.Close() End If Dim crtableLogoninfos As New TableLogOnInfos() Dim crtableLogoninfo As New TableLogOnInfo() Dim crConnectionInfo As New ConnectionInfo() Dim CrTables As Tables Dim CrTable As Table Dim obj As New ReportDocument() With crConnectionInfo .DatabaseName = Application.StartupPath & "\database\masbagha.mdb" End With If rpt = "bill_rep" Then Dim ds As New DataSet Dim x As Integer = bill_frm.txt_cUS_id.Text Dim da As New OleDb.OleDbDataAdapter("select * from bill_info INNER JOIN item_sold ON bill_info.bill_id = item_sold.ibill_no where bill_info.Bill_id =" & dts, con) Dim da1 As New OleDb.OleDbDataAdapter("select * from pynt", con) Dim da2 As New OleDb.OleDbDataAdapter("select cus_mont,cus_depit from cus where id_cus=" & x, con) con.Open() da.Fill(ds, "Bill_info, Item_Sold") da1.Fill(ds, "pynt") da2.Fill(ds, "cus") CrTables = obj.Database.Tables For Each CrTable In CrTables crtableLogoninfo = CrTable.LogOnInfo crtableLogoninfo.ConnectionInfo = crConnectionInfo CrTable.ApplyLogOnInfo(crtableLogoninfo) Next obj.Load(Application.StartupPath & "\report\bill_rep.rpt") obj.Database.Tables(0).SetDataSource(ds.Tables("Bill_info, Item_Sold")) CRV_BILL.ReportSource = obj CRV_BILL.Refresh() con.Close() End If End Subظهرت رسالة الخطأ التالي بعد وضع الكود ومرفق صورة للخطأ
  8. رسالة خطأ تظهر في تقرير دون التقارير الاخرى

    Private Sub bill_show_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If con.State = ConnectionState.Open Then con.Close() End If If rpt = "bill_rep" Then Dim ds As New DataSet Dim x As Integer = bill_frm.txt_cUS_id.Text Dim da As New OleDb.OleDbDataAdapter("select * from bill_info INNER JOIN item_sold ON bill_info.bill_id = item_sold.ibill_no where bill_info.Bill_id =" & dts, con) Dim da1 As New OleDb.OleDbDataAdapter("select * from pynt", con) Dim da2 As New OleDb.OleDbDataAdapter("select cus_mont,cus_depit from cus where id_cus=" & x, con) con.Open() da.Fill(ds, "Bill_info, Item_Sold") da1.Fill(ds, "pynt") da2.Fill(ds, "cus") Dim obj As New ReportDocument obj.Load(Application.StartupPath & "\report\bill_rep.rpt") obj.Database.Tables(0).SetDataSource(ds.Tables("Bill_info, Item_Sold")) CRV_BILL.ReportSource = obj CRV_BILL.Refresh() con.Close() End If End SubEnd Classجزاك الله خير أستاذ محمد بس لو أمكن ممكن تعدل لي على الكود التالي لاني لم استطع التطبيق وجزاكم الله خير                                  
  9. رسالة خطأ تظهر في تقرير دون التقارير الاخرى

    السلام عليكم المشكلة تم حليها لاني اكتشفت ان الرسالة سببها تغيير مكان قاعدة البيانات بس المشكلة أكيد ستظهر عند الانتهاء من البرنامج وتثبيته فما الحل
  10. رسالة خطأ تظهر في تقرير دون التقارير الاخرى

    جزاكم الله خيرا لسرعة استجابتك كما عهدناك لا يوجد فرق كلهم قمت بتصميمهم بالكريستال 10 وربطتهم بالبرنامج لان حينما قمت بتصميمهم بالفيجوال (الكريستال ريبورت ) كان لا يفتحهم بعد تحزيم البرنامج
  11. السلام عليكم بعد أن قمت بتصميم تقرير وبعد ربطه بالبرنامج واثناء التجربة فوجئت بأنه يطل اسم مستخدم وكلمة مرور مرفق لكم صورة من الرسالة وباقي التقارير تعمل والحمد لله
  12. إظهار آخر ثلاث سجلات من جدولفي تقرير

    هل من مجيب
  13. السلام عليكم ورحمة الله وبركاتة كل عام وانتم إلى الله أقرب وعلى طاعته أدوم عندي سؤال بخصوص إظهار آخر ثلاث فواتير لعميل محدد في آخر الفاتورة وجزاكم الله خيرا
  14. مشكلة في جملة الاستعلام للتقرير

    هل من مساعدة ؟؟؟؟