[farid34000]

(31-05-24, 02:49 AM)Taha Okla كتب : إذا كنت تريد التحكم بقاعدة البيانات وجداولها بشكل أكثر احترافية وديناميكية
عليك الاتصال بقاعدة البيانات وجداولها من خلال الكود .. وليس من خلال الأدوات.

هناك أمثلة كثيرة في هذا المنتدى يمكنك الاطلاع عليها والتعلم منها..

بارك الله فيك يا استاذنا، مشكلة البحث تم علاجها بمساعداتك، بقي شيء لم أجد له أي حل وهو كيفية نقل معلومات داتاقريد التي تم فرزها الى ملف خارجي اكسل او وورد وهذا لاستعمالها في طباعة تقرير خارجي أو للارشفة برقم ticket
حاولت عدة مرات بطريقة textMatrix
Private Sub SaveToExcel_Click() Dim xlApp As Object Dim xlWorkbook As Object Dim xlWorksheet As Object Dim i As Integer Dim j As Integer ' Check if DataGridView has rows If DataGridView1.Rows.Count = 0 Then MsgBox "No data available to export!", vbExclamation Exit Sub End If ' Create a new instance of Excel Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True ' Add a new workbook Set xlWorkbook = xlApp.Workbooks.Add Set xlWorksheet = xlWorkbook.Worksheets(1) ' Export data from DataGridView to Excel For i = 0 To DataGridView1.Rows.Count - 1 For j = 0 To DataGridView1.Columns.Count - 1 xlWorksheet.Cells(i + 1, j + 1).Value = DataGridView1.Rows(i).Cells(j).Value Next j Next i ' Release Excel objects Set xlWorksheet = Nothing Set xlWorkbook = Nothing Set xlApp = Nothing MsgBox "Data has been exported to Excel successfully!", vbInformation End Sub

بحيث أنه دائما يتوقف ويقول خطأ سواء في التي ذكرتها اولا أو في For j = 0 To DataGridView1.Columns.Count - 1
يا ريت يا استاذي مساعدتي في حل هذه المشكلة مع الشكر الجزيل