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

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

السلام عليكم 

اساتذتي الافاضل 

الملف المرفق 

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

حيث تم تحويل اسماء الجداول من الانكليزي الى العربي 

وبفضل استاذي @صالح حمادي

والان اردت ان احول اسماء الحقول الى العربية 

بواسطة  أضافة جدول به ثلاثة حقول (اسم الحقل . اسمه بالعربية . الجدول)

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

 

ولم اصل الى حل لذلك 

اكسل.rar

[jjafferr]

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

 

رجاء توضيح طلبك بمثال لوسمحت.

 

والقي نظرة على هذا الموضوع

 

جعفر

 

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

2 ساعات مضت, jjafferr said:

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

 

رجاء توضيح طلبك بمثال لوسمحت.

 

والقي نظرة على هذا الموضوع

 

جعفر

 

@jjafferr

 

اسف لكون،طلبي لم يتم فهمه

المطلوب هو تحويل اسماء الحقول الى مسميات عربية بدل المسمى الانكليزي 

 

حاله من حال اسماء الجدول. 

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

بعد اذن اخي jjafferr

اظن اني فهمت الاخ زياد الحسناوي

اتفضل شوف اظن انه طلبك حسب ما فهمت

اكسل.rar

وهذا بالطريقه الاخرى

final.rar

تم تعديل فبراير 1, 2019 بواسطه ابو ياسين المشولي

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

بعد اذن اخي jjafferr

اظن اني فهمت الاخ زياد الحسناوي

اتفضل شوف اظن انه طلبك حسب ما فهمت

وهذا مع عنوان العمود

final.rar

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

5 ساعات مضت, ابو ياسين المشولي said:

بعد اذن اخي jjafferr

اظن اني فهمت الاخ زياد الحسناوي

اتفضل شوف اظن انه طلبك حسب ما فهمت

اكسل.rar

وهذا بالطريقه الاخرى

final.rar

@ابو ياسين المشولي

عاشت ايدك استاذ وهو المطلوب 

ممكن اعرف شو الي تغير وكيف تم ذلك 

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

7 ساعات مضت, زياد الحسناوي said:

@ابو ياسين المشولي

عاشت ايدك استاذ وهو المطلوب 

ممكن اعرف شو الي تغير وكيف تم ذلك 

هذا ما تم عمله تعديل في الكود فاصبح هكذا

وتعديل في تصميم الحقول اللي في الصورة

    Set db = CurrentDb
    Set Td = db.TableDefs(Me.ChooseTble)
        Me.ChooseField.RowSource = ""
        Me.ChooseField.AddItem ("اسماء الحقول")

    For Each fld In Td.Fields
    On Error Resume Next
    sCaption = fld.Properties("Caption")
        If fld.Type = 4 And fld.Attributes = 17 Then
            Me.ChooseField.AddItem fld.Name & ";" & sCaption
        Else
           Me.ChooseField.AddItem fld.Name & ";" & sCaption
        End If
    Next

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

5 ساعات مضت, ابو ياسين المشولي said:

هذا ما تم عمله تعديل في الكود فاصبح هكذا

وتعديل في تصميم الحقول اللي في الصورة

    Set db = CurrentDb
    Set Td = db.TableDefs(Me.ChooseTble)
        Me.ChooseField.RowSource = ""
        Me.ChooseField.AddItem ("اسماء الحقول")

    For Each fld In Td.Fields
    On Error Resume Next
    sCaption = fld.Properties("Caption")
        If fld.Type = 4 And fld.Attributes = 17 Then
            Me.ChooseField.AddItem fld.Name & ";" & sCaption
        Else
           Me.ChooseField.AddItem fld.Name & ";" & sCaption
        End If
    Next

@ابو ياسين المشولي

شكرا الك استاذ