مشكله في هذا الكود مع اكسس 2007

[alsihran]

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

وهو يعمل مع اكسس 2002 وأكسس 2003 بكل كفاءه وعندما حولة الاكسس الى 2007 لاحظت ان التقرير يفتح

بعدد الحقول التي توج بها بيانات فقط مما يؤثر على شكل التقرير

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

Private Sub Report_Open(Cancel As Integer)
x = DCount("ex_no", "ex_list")
n = DMax("ex_no", "ex_list")
rsrce = Me.RecordSource
For i = 1 To 20 - x
n = n + 1
    rsrce = rsrce & " Union SELECT " & n & " as a, null as b, null as c,null as d,null as e,null as f,null as g,null as h,null as j, null as v, null as w, null as z FROM ex_list"
Next i
'MsgBox rsrce & " ORDER BY ex_no.ex_list"
Me.RecordSource = rsrce & " ORDER BY ex_list.ex_no"

End Sub

تم تعديل يونيو 14, 2007 بواسطه alsihran

[alsihran]

الا من مجيب الا من معين الا

[alsihran]

وهذا مثال للتعديل عليه

metal.rar

[alsihran]

up

up

[منذر عساج]

اخي الكريم

بالنسبة لي لم أنتقل بعد الى 2003 بعد فما بالك بـــ 2007

[alsihran]

الله يعطيك العافيه اخي منذر

بانتظار الشباب اللي تحولوا الى اكسيس 2007

يمكن تكون مرت عليهم مثل هذي المشكله

الله يعطيك العافيه اخي منذر

بانتظار الشباب اللي تحولوا الى اكسيس 2007

يمكن تكون مرت عليهم مثل هذي المشكله