كيفية التصدير من برنامج اكسيس الى نموذج في اكسيل

[عبدالله نبها]

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

سواء سجل سجل او مجموعة من السجلات بحيث يتم حفظ سجلات الاكسيل منفصلة(كل عميل بملف منفصل)

وجزاكم الله كل خير وعلى القائمين على هذا الموقع الاكثر من رائع

[jjafferr]

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

 

انا عملت برنامج لهذا الغرض ، على الرابط:

http://www.officena.net/ib/topic/58001-منقول-هدية-برنامج-تصدير-بيانات-من-جداولاستعلامات-اكسس-الى-اكسل/#comment-369232

 

جعفر

[محمد سلامة]

وفين كمان استاذ جعفر مسقط للتقرير

[عبدالله نبها]

شكرا لك استاذ jjafferr على ردك

ولكن انا اريد اصدر البيانات الى ملف اكسيل يحيتوي ع نموذج مصمم من قبل بمعنى استبانة اريد ملئ البيانات فيها

مرفق النموذج المراد ترحيل البيانات اليه

استبانة يتيم.rar

تم تعديل أكتوبر 4, 2015 بواسطه عبدالله نبها

[jjafferr]

السلام عليكم أخي عبدالله 

 

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

 

جعفر

[عبدالله نبها]

السلام عليكم

استاذ جعفر شكرا على ردك

نفرض ان قاعدة البيانات اي قاعدة تحتوي مثلا ع 10 حقول

الاسم

والعنوان

والعمر ورقم البطاقة والمدرسة ...الخ

واريد ان ارحلها الى ملف اكسيل كالذي في المرفق السابق

(ملف الاكسيل عبارة ع استبانة)

[jjafferr]

أخوي عبدالله 

 

إحساسي يحسسني بأن فيه شئ آخر تريد تعمله بعدما تحل موضوع نقل البيانات للاكسل 

شو الخطوة التالية اللي تريد تعملها؟

هل تريد حفظ ملف الاكسل باسم معين؟

هل تريد ان تطبع البيانات او ايش الخطوة اللي تريد تعملها بعد حفظ البيانات في الاكسل؟

لو تعطينا تفصيل اكثر ، ممكن نعطيك جواب متكامل اكثر 

 

جعفر

[عبدالله نبها]

السلام عليكم

انا عندي قاعدة بيانات للايتام (يتم فيها ادخال اسم اليتيم وعمره ومدرسته وتاريخ الميلاد و...الخ)

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

**** بعد الترحيل من قاعدة البيانات الى الاكسيل

المطلوب: حفظ كل ملف اكسيل اما باسم اليتيم او ب id تلقائيا وكل يتيم منفصلا عن الاخر

بالنهاية اريد لكل يتيم ملف اكسيل مسمى باسمه او بال id الخاص باليتيم

انا لا اطبع الملفات وانما ارسل استبانة كل يتيم منفصلة للجهة الكافلة

 

اتمنى ان يكون الامر واضحة

وان شاء الله يكون في ميزان حسناتكم

 

استبانة يتيم.rar

[jjafferr]

تفضل أخي عبدالله 

 

تستعمل النموذج ، وتذهب الى السجل الذي تريد ، ثم تنقر على زر تصدير السجل الى الاكسل ،

وسيتم حفظ ملف البيانات بصيغة xls وبرقم الشخص ، في نفس مجلد البرنامج ،

الكود التالي يقوم بالعمل:

Private Sub cmd_to_xls_Click()
'Created by Helen Feddema 8-18-2000
'Last modified 8-18-2000

    'File_Name = "c:\" & me.emp_no & ".xls"
    File_Name = Application.CurrentProject.Path & "\" & Me.emp_no & ".xls"
    Template_Name = Application.CurrentProject.Path & "\230.Orphan_Details.xlt"
   
        On Error GoTo err_cmd_to_xls_Click



   Dim appExcel As Object   'Excel.Application
   Dim bks As Object        'Excel.Workbooks
   Dim wks As Object        'Excel.Worksheet

   
   Set appExcel = GetObject(, "Excel.Application")
   Set bks = appExcel.Workbooks
   
   'Open the workbook
   bks.Add Template_Name
   
   Set wks = appExcel.ActiveSheet
   
   'Write Access data directly to cells in worksheet
   With wks
      .Range("B11").Value = Me.first_name
      .Range("B12").Value = Me.last_name
      .Range("B13").Value = Me.birth_date
      .Range("B14").Value = DateDiff("yyyy", CDate(Me.birth_date), Now)
      .Range("B15").Value = Me.gender
   End With
   
   appExcel.DisplayAlerts = False
   wks.Saveas FileName:=File_Name, FileFormat:=56
   appExcel.Quit
   appExcel.DisplayAlerts = True


    'cleaning up
    Set appExcel = Nothing
    Set bks = Nothing
    Set wks = Nothing
    

ErrorHandlerExit:
Exit Sub
err_cmd_to_xls_Click:

    If Err = 429 Then
      'Excel is not running; open Excel with CreateObject
      Set appExcel = CreateObject("Excel.Application")
      Resume Next
   Else
      MsgBox "Error No: " & Err.Number & "; Description: " & Err.Description
      Resume ErrorHandlerExit
   End If
    
End Sub

.

رجاء التأكد ان المرفقين موجودين في مجلد واحد (طبعا تستطيع ان تغيره لاحقا ، بتغيير مساره في الكود) ،

 

سؤال: لماذا لا تصدر البيانات بصيغة pdf بدلا عن الاكسل؟

حيث يمكنك تصدير البيانات من تقرير الاكسس بصيغة pdf مباشرة

 

جعفر

230.Orphan_Details.zip

[عبدالله نبها]

جزاك الله كل خير استاذ جعفر

وبالنسبة لسؤالك لماذا لا يتم تصديرها بصيغة pdf

ان المؤسسة الكفالة للايتام تطلب الملفات بصيغة اكسيل 

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

[jjafferr]

[عبدالله نبها]

لو اردت ان احفظ كل السجلات مرة واحدة بمعنى عندما اضغط ع تصدير يتم حفظ كل الملفات مرة واحدة وحفظ كل ملف منفصل عن الاخر

وبارك الله فيك على المساعدة

[jjafferr]

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

لو اردت ان احفظ كل السجلات مرة واحدة بمعنى عندما اضغط ع تصدير يتم حفظ كل الملفات مرة واحدة وحفظ كل ملف منفصل عن الاخر

.

تذكر لما سألتك:

أخوي عبدالله 

 

إحساسي يحسسني بأن فيه شئ آخر تريد تعمله بعدما تحل موضوع نقل البيانات للاكسل 

شو الخطوة التالية اللي تريد تعملها؟

هل تريد حفظ ملف الاكسل باسم معين؟

هل تريد ان تطبع البيانات او ايش الخطوة اللي تريد تعملها بعد حفظ البيانات في الاكسل؟

لو تعطينا تفصيل اكثر ، ممكن نعطيك جواب متكامل اكثر 

.

ولا يهمك 

تريد شئ ثاني قبل ما اقفل الدكان 

 

جعفر

[عبدالله نبها]

السلام عليكم 

انت اكثر من رائع استاذي الكريم

واعرف اني غلبتك كثير

ولكن اسأل الله ان يكون في ميزان حسناتك يا رب

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

ودمتم للعطاء عنوان استاذ جعفر

 

[jjafferr]

تفضل يا سيدي الكريم 

شاكرا لك جميل كلمات ، ودعائك 

 

جعفر

230.Report_to_Excel.mdb.zip

[عبدالله نبها]

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

بارك الله فيك

وشكرا جزيلا لك

 

[jjafferr]

[فقير ومشتري الدنيه بضحكتي]

يمكنك ذلك عن طريق ان تعمل مايكرو - وتختار 

export with formatting 

في حقل تنسيق الاخراج  اختر 

microsoft excel 

بعدما تنتهي سمي المايكرةو باي اسم ثم قم بانشاء زر يقوم بتشغيل ذلك المايكرو