الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

مغلق
بدأه alsihran في 15 يونيو 2007 · 23 رد · 1,967 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

لدي هذا الكود ووظيفته يجعل الحقول بالتقرير 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
#2

بأمر منا نحن كاتب الموضوع يرفع للافاده

عسى يأتي من يحل هذا الامر

#3

الا يمكن بأمر منكم يرفع مثال على الكود ليتم تعديله

تم تعديل هذه المشاركة بواسطة مصلح الحريصي في 16 يونيو 2007 في 18:25

#4

الحمد لله رب العالمين

اخيراً وجدت من يرد

اخي مصلح اشكرك على ردك وتفضل اخي هذا هو المثال

مع بالغ شكري وتقديري لك

metal.rar

#5

اين انت يا استاذ مصلح اصلحك الله

#6

اصلحنا الله جميعاً

أنا موجود وأنت على البال

فعلاً شغلت البرنامج على 2007 وعلى 2003 لأنني محملهما مع بعض ويعمل الكود مع 2003 ولا يعمل مع 2007 ومن خلال الفصح السريع لا أعلم ما المشكلة حتى الآن ولكن أصبر علي سأرى إن كان بمقدوري حل تلك المشكلة أم لاء وسوف أخبرك قريباً بالنتيجة.

#7

وانا بانتظارك اخي العزيز ومقدر وشاكر لك

الله يجزيك كل خير

#8

up

#9

رفع

#10

والله ما نسيت ولكن للأسف بحثت وعدلت ولم أصل إلى السبب

المشكلة أنه أثناء تتبع خطوات تنفيذ الكود بواسطة F8 يتم تنفيذ الكود كاملاً بدون أي خلل

عموماً لا زلت أبحث عن السبب وأرجو أن نجد الحل

#11

الله يعطيك الف عافيه اخي مصلح

ان شاء الله بجهودك وجهود المخلصين في هذا المنتدى الرائع

لابد وان تجد حل لهذا السبب وانا في الانتظار على احر من الجمر

تحياتي وتقديري وشكري الحار لك

#12

اخي مصلح

عند تحليل الاداء للتقرير تخرج هذه النتيجه

حاولة اضافة الكلمة لكن المشكلة

ان محرر الفجول بيسك مغلق

ارجو ان ترى مدى الاستفاده من هذا التحليل

t%20h%20l.JPG

#13

أخي الكريم

أضافة Option Explicit يتم في أعلى صفحة الكود بعد Option Compare Database مهمة Option Explicit هي رفض أي متغير لم يتم تعريفه مسبقاً وسبب ظهورها لديك لأنك لم تعرف المتغير (I )

قم بتعريف المتغير كما يلي :

Dim I As Integer

ولكن لن يفيد ذلك في مشكلتنا

#14

الله يعطيك الف عافية اخي مصلح

وبانتظار الحل

جزاك الله خير

#15

جربت اقلب الاكواد وتعمل مع الاكسس 2007 في التقارير

المشكله فقط في هذا الكود

الا توجد طريقة اخرى او هل هناك صياغة اخرى لكود يعمل

بهذه الطريقة

حيث اني اعاني اصلاً من مشكلة انه اذا كانت عدد السجلات اكثر من عشرين سجل فأن التقرير لايمكن فتحه

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

تحياتي

#16

أخي الكريم

لم أتوصل إلى حل مع الكود بالإضافة إلى المشكلة التي قلتها

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

#17

اخي مصلح بارك الله فيك

وأسف اني اتعبتك ما عليش يا اخوي

لكن هذا العشم فيك

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

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

#18

منذ تاريخ كتابة الموضوع

الى الان لم اجد حل لهذه المشكله

ارجو من الاخوان المساعده في حلها

تحياتي

#19

الاخ الفاضل

بالفعل اتذكر اننى نرلت المرفق ولم يعمل معى

ولكن اليوم عمل الكود بشكل صحيح واعتقد السبب اننى حملت sp1 للاوفيس 2007

وشكرا

مر الكلام زى الحسام يقطع ما كان ما يمر، أما المديح سهل ومريح يخدع لكين بيضر، والكلمة دين من غير إيدين بس الوفا ع الحر

#20
khatab كتب:
الاخ الفاضل

بالفعل اتذكر اننى نرلت المرفق ولم يعمل معى

ولكن اليوم عمل الكود بشكل صحيح واعتقد السبب اننى حملت sp1 للاوفيس 2007

وشكرا

ممكن وصلت تنزيل

sp1 للاوفيس 2007

تحياتي

#21

up

#22

السلام عليكم ورحمة الله

المشكلة عندك وجود الفاصلة المنقوطة في الاستعلام الموجود في التقرير

لتصحيح الخطأ غير الجملة في بداية التقرير الى مايلي او من مصدر البيانات في التقرير

Me.RecordSource = Replace(rsrce, ";", "") & " ORDER BY ex_list_1.ex_no"

تحياتي لك

myblog.jpeg

مدونتي

استضافة مواقع asp.net :.Net 3.5,4,4.5, MVC2 & 3,SQL server 2008 R2, Crystal reports

#23

http://www.microsoft.com/downloads/details...;displaylang=ar

هذا هو الرابط

مر الكلام زى الحسام يقطع ما كان ما يمر، أما المديح سهل ومريح يخدع لكين بيضر، والكلمة دين من غير إيدين بس الوفا ع الحر

#24
TareqVB كتب:
السلام عليكم ورحمة الله

المشكلة عندك وجود الفاصلة المنقوطة في الاستعلام الموجود في التقرير

لتصحيح الخطأ غير الجملة في بداية التقرير الى مايلي او من مصدر البيانات في التقرير

Me.RecordSource = Replace(rsrce, ";", "") & " ORDER BY ex_list_1.ex_no"

تحياتي لك

يا اخي وينك انت من يوم كتبت الموضوع وين كنت غايب فيه

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

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

واذا زدت عدد السجلات تطلع صفحه ثانيه ووتخرب علي تنسيق التقرير

الف شكر لك حبيبي مره ثانية

................................................................................

.................................................................................

.....................................................................

الاخ khatab

شكرا لك اخي

هذا الموضوع مغلق.

مواضيع مشابهة