كود تصدير جدول في الاكسس الى اكسل

[ابو ياسين المشولي]

4 ساعات مضت, qathi said:

عمل رائع يشكر علية الاستاذ @Shivan Rekany وكذلك الاستاذ @ابو عارف

أطلعت على الملف ولي ملاحظات علية

يتم عرض جميع الجداول في القائمة المنسدلة  وهذا خطاء فليس من المعقول ذلك .. فهناك جداول بالمفروض أن يتم أخفائها لا يرغب المبرمج في عرضها للمستخدم

لذلك ارجو منكم تطوير الملف على النحو التالي:

1- تحديد الجداول المراد عرضها في الكود

2- يتم عرض في القائمة أسماء غير اسماء الجداول الحقيقية كمثال باللغة العربيه كالتالي: 

اسم الجدول Sand_T يتم عرضة بالقائمة " الاسناد "

ItemsT = "الاصناف"

ItemsABT = "أنواع الاصناف"

InvoiceHT = "الفواتير"

والجداول التي لا يرغب بعرضها مثال: USERS و ItemsNumbers و colors 

3- تفعيل خيار تحديد جميع الحقول 

مرفق الملف مع وجود ماذكر من جداول سابقاً 

Ex1.rar

 

 

في حدث عند التحميل

DoCmd.Rename "الاصناف", acTable, "colors"
وفي حدث عند الاغلاق
DoCmd.Rename "colors", acTable, "الاصناف"
ويطبق على بقيه الجداول

 

[qathi]

55 دقائق مضت, ابو ياسين المشولي said:

في حدث عند التحميل

DoCmd.Rename "الاصناف", acTable, "colors"
وفي حدث عند الاغلاق
DoCmd.Rename "colors", acTable, "الاصناف"
ويطبق على بقيه الجداول

 

شكرا لك ستاذنا الغالي @ابو ياسين المشولي على ردك .. نجح الامر بالفعل هذا هو المطلوب رقم 2

متبقي:

1- اخفاء جداول معينه من القائمة المنسدلة و 3-  تحديد جميع الحقول من القائمة الList

[زياد الحسناوي]

في ٣‏/١٠‏/٢٠١٨ at 20:22, Shivan Rekany said:

ليس من المهم اي قاعدة تشتغل عندك المهم توصل للحل كما حضرتك تريد 
عندي بيشتغل كلا القاعين وبدون اي مشاكل

اتفضل 
تم استخدام هذه الاكواد
 

Private Sub ChooseField_AfterUpdate()
    If Not IsNull(Me.ChooseField) = True Then
        If Len(Me.TxtForQuery & vbNullString) > 6 Then
            Me.TxtForQuery = Me.TxtForQuery & " " & "," & Me.ChooseTble & "."
            Me.TxtForQuery = Me.TxtForQuery & Me.ChooseField
            Else
            Me.TxtForQuery = Me.TxtForQuery & " " & Me.ChooseTble & "." & Me.ChooseField
        End If
            Me.EndForQuery.Enabled = True
    End If
    Me.ChooseField.RemoveItem (Me.ChooseField)
End Sub

Private Sub ChooseTble_AfterUpdate()
    Set db = CurrentDb
    Set Td = db.TableDefs(Me.ChooseTble)
        Me.ChooseField.RowSource = ""
        Me.ChooseField.AddItem ("اسماء الحقول")
    For Each fld In Td.Fields
        If fld.Type = 4 And fld.Attributes = 17 Then
            Me.ChooseField.AddItem (fld.Name)
        Else
            Me.ChooseField.AddItem (fld.Name)
        End If
    Next
End Sub

Private Sub EndForQuery_Click()
On Error Resume Next
    Dim CountStrTbl As Integer
    CountStrTbl = Len(Me.ChooseTble)
    Me.ExportTo.Enabled = True
    If Left(Me.TxtForQuery, CountStrTbl) = Me.ChooseTble Then Exit Sub
    Me.TxtForQuery = Me.TxtForQuery & " From " & Me.ChooseTble
    Me.EndForQuery.Enabled = False
End Sub

Private Sub ExportTo_Click()
On Error Resume Next
    DoCmd.DeleteObject acQuery, "QForExport"
    Set QFEx = CurrentDb.CreateQueryDef("QForExport", Me.TxtForQuery)
    DoCmd.OutputTo acOutputQuery, "QForExport", acViewPreview
    DoCmd.DeleteObject acQuery, "QForExport"
    MsgBox "تم تصدير بالنجاح"
End Sub

 

test 15 - Copy.rar

@Shivan Rekany

استاذي العزيز

عاشت ايدك ع البرنامج جدا رائع وكنت ابحث عن مثل هالشي 

 

ولكن صادفتني مشكلة

عند نقل الفورم الى برنامجي 

عن اختيار الجداول و تصديرها الى اكسل 

تظهر رسالة "تم تصدير بنجاح"

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

تم تعديل يناير 6, 2019 بواسطه zYo

[زياد الحسناوي]

@Shivan Rekany

 

بالرغم من انه الملف الاصلي يشتغل بصورة طبيعية

تم تعديل يناير 6, 2019 بواسطه zYo

[ابوآمنة]

استفسار

عندما تكون قاعدة البيانات مقسمة لا تظهر لي الجداول في القائمة

ما السبب وما الحل ؟

[Shivan Rekany]

11 ساعات مضت, zYo said:

بالرغم من انه الملف الاصلي يشتغل بصورة طبيعية

في بداية الكود اكتب كود التخطي للمشاكل 

On Error Resume Next
هذه المشكلة بيطلع لان ليس هناك ملف بذلك الاسم في قاعدتك

[زياد الحسناوي]

25 دقائق مضت, Shivan Rekany said:

في بداية الكود اكتب كود التخطي للمشاكل 

On Error Resume Next
هذه المشكلة بيطلع لان ليس هناك ملف بذلك الاسم في قاعدتك

@Shivan Rekany 

استاذ لما اضع الكود لا يتم تصدير الملف 

هذا فيديو توضيحي

74648 -  42.5 MB
 

تم تعديل يناير 7, 2019 بواسطه zYo

[زياد الحسناوي]

في ٧‏/١‏/٢٠١٩ at 09:48, zYo said:

@Shivan Rekany 

استاذ لما اضع الكود لا يتم تصدير الملف 

هذا فيديو توضيحي

74648 -  42.5 MB
 

@Shivan Rekany

[Elhalafawy]

السلام عليكم,

زر خيار تحديد جميع الحقول لا يعمل 

[ahmed_2040]

انا اطلعت علي كل المشاركات مجهود رائع وبارك الله لكما 

لكن محتاج تعديل بسيط هو بدل اظهار اسماء الحقول في الكمبو بوكس الثاني بالانجليش اريدها تظهر بالعربي حسب التسمية التوضيحية

وشكرا لكما في مجهودكم 

[محمد على عبدالباقى]

في 5‏/1‏/2019 at 16:19, qathi said:

عمل رائع يشكر علية الاستاذ @Shivan Rekany وكذلك الاستاذ @ابو عارف

أطلعت على الملف ولي ملاحظات علية

يتم عرض جميع الجداول في القائمة المنسدلة  وهذا خطاء فليس من المعقول ذلك .. فهناك جداول بالمفروض أن يتم أخفائها لا يرغب المبرمج في عرضها للمستخدم

لذلك ارجو منكم تطوير الملف على النحو التالي:

1- تحديد الجداول المراد عرضها في الكود

2- يتم عرض في القائمة أسماء غير اسماء الجداول الحقيقية كمثال باللغة العربيه كالتالي: 

اسم الجدول Sand_T يتم عرضة بالقائمة " الاسناد "

ItemsT = "الاصناف"

ItemsABT = "أنواع الاصناف"

InvoiceHT = "الفواتير"

والجداول التي لا يرغب بعرضها مثال: USERS و ItemsNumbers و colors 

3- تفعيل خيار تحديد جميع الحقول 

مرفق الملف مع وجود ماذكر من جداول سابقاً 

Ex1.rar 32.3 kB · 201 downloads

السلام عليكم 

هل من الممكن ان تظهر اسماء الجداول (لينكد من قاعده اخرى) بمعنى القاعد مقسومه باك وفورنت