تصدير الى اكسل

[alma_fandi]

بس الله  الرحمن الرحيم

تحياتي لجمع اعضاء المنتدى 

بخليكم مع الصور

فورم    ... searchf

last.rar

[alma_fandi]

up

some one      f1 me

[ابوخليل]

السلام عليكم

((( التصدير الى اكسل بنفس شكل تصميم التقرير )))

انت صعبت على اخوانك المسألة  ، فتصميم  ورقة اكسل  يجب طرحه في منتدى اكسل

 

[alma_fandi]

3 دقائق مضت, ابوخليل said:

السلام عليكم

((( التصدير الى اكسل بنفس شكل تصميم التقرير )))

انت صعبت على اخوانك المسألة  ، فتصميم  ورقة اكسل  يجب طرحه في منتدى اكسل

 

انا بمشكلة التصدير  مو مهم  يكون  نفس الشكل المهم  يصدر  البيانات لان الهدف من التصدير  التعديل  على التقرير 

اذا بقدر  اعدل  ع التقرير  بدون  التصدير بكون  حل  اخر

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

[ابوخليل]

مع اني لم افهم تماما  مقصدك من تعديل التقرير ، ولكني سأنقل المرفق للاطلاع  والنظر

 

[alma_fandi]

3 دقائق مضت, ابوخليل said:

مع اني لم افهم تماما  مقصدك من تعديل التقرير ، ولكني سأنقل المرفق للاطلاع  والنظر

 

استاذي 

 

هيك مطلوب مني  ( انا مثلك ما بعرف الهدف)

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

[ابوخليل]

هههههه  حلوة  

التقرير هو  مثل  نافذة الغرفة  ، لما ننظر منها  : ساعة غيم ، وساعة نجد السماء صافية

بمعنى  ان التقرير يعرض الموجود في الجداول  فلما نعدل في الجداول يظهر في التقرير

ما علينا .. المهم نعرف  ما المقصود بالتعديل على التقرير 

[alma_fandi]

4 دقائق مضت, ابوخليل said:

هههههه  حلوة  

التقرير هو  مثل  نافذة الغرفة  ، لما ننظر منها  : ساعة غيم ، وساعة نجد السماء صافية

بمعنى  ان التقرير يعرض الموجود في الجداول  فلما نعدل في الجداول يظهر في التقرير

ما علينا .. المهم نعرف  ما المقصود بالتعديل على التقرير 

انا  قلت  نفس  كلامك 

التقرير  مثل  المعاينة قبل الطباعه  بس  نتفرج عليه

خلينا من  التقرير  نرجع للاستعلام  نعمل  تصدير  للاكسل  وهناك  بنعدل  وينطبع  (  بقدر  اعمل  صفحة على الاكسل فيها  نفس  العنوانين  والترتيب وبنعمل امر طباعه  )

Private Sub Command47_Click()

'Step 1: Declare your variables
Dim MyDatabase As DAO.Database
Dim MyQueryDef As DAO.QueryDef
Dim MyRecordset As DAO.Recordset
Dim i As Integer
'Step 2: Identify the database and query
Set MyDatabase = CurrentDb
Set MyQueryDef = MyDatabase.QueryDefs(Me.ÍÏË.Column())   'Query name in the database
'Step 3: Open the query
'DoCmd.OpenQuery Me.allq.Column(1)
MyQueryDef.Parameters(0) =Between [Forms]![searchf]![frm] And [Forms]![searchf]![to]
Set MyRecordset = MyQueryDef.OpenRecordset
'Step 4: Clear previous contents
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
With xlApp
.Visible = True
.Workbooks.Add
''.Sheets("???E1").Select
'Step 5: Copy the recordset to Excel
.ActiveSheet.Range("A2").CopyFromRecordset MyRecordset
'Step 6: Add column heading names to the spreadsheet
For i = 1 To MyRecordset.Fields.Count
xlApp.ActiveSheet.Cells(1, i).Value = MyRecordset.Fields(i - 1).Name
Next i
xlApp.Cells.EntireColumn.AutoFit
End With
MsgBox "Êã ÇáÊÕÏíÑ"

End Sub
End Sub

[ابوخليل]

تم التعديل

يتم تصدير  التقرير  : "حدثت " الى اكسل

last2.rar

[alma_fandi]

22 ساعات مضت, ابوخليل said:

تم التعديل

يتم تصدير  التقرير  : "حدثت " الى اكسل

last2.rar

اشكرك ...