ganabo61

I am trying to create a report from a crosstab query. The problem I have is that new records will be added daily and they won't appear on the report as I can only get records that are presently in the query to appear on the report. These records do however appear in the crosstab query. Is there a way of creating a crosstab report that will pick up all the records? The only other option I can see is to either create a new report every year which is not practical since I am not the one that is going to be using the database or to create a record for every date(as this is what is being used as the column's of the crosstab) just so I can create a report with every date of the year in, and the upcoming years.

أخى العزيز يقوم هذا الكود بعملية الضغط والإصلاح وثم نسخ قاعدة البيانات إلى مكان آخر على الهارد ديسك ولكن الفكرة أننى قمت بفصل قاعدة بياناتى إلى قسمين القسم الثانى هو الجداول فقط ( وهى البيانات التى نخشى عليها من الضياع) والقسم الأول يشمل باقى كائنات قاعدة البيانات ( وهذا القسم هو الذى نضع فيه الكود ليقوم بضغط ونسخ القسم الأول إلى مكان آمن) ولا يمكن ضغط قاعدة البيانات برمجيا وهى مفتوحة مع خالص تحياتى جنابو

تظهر هذه الرسالة فى حالة كتابة إسم الملف المطلوب ضغطه وإصلاحه بطريقة خاطئة وإليك هذا الكود الذى يقوم بضغط وإصلاح قاعدة البيانات يوم الخميس من كل أسبوع وعمل نسخة منها فى موقع آخر على الهاردديسك يمكنك وضعه فى حدث زر إغلاق قاعدة البيانات ( طبعا بعد تعديل الإسم والمسار) 'If today = thrusday Then copy the data file Else go away If Weekday(Now()) <> 5 Then GoTo GoAway Dim MyDistenation As String MyDistenation = "E:\ArsheefData\" MyDistenation = MyDistenation + Format(Now, "dd-m-yyyy") MyDistenation = MyDistenation + ".mdb" DBEngine.CompactDatabase "E:\Data\ArsheefData\ArsheefData.mdb", MyDistenation GoAway: DoCmd.Close

السلام عليكم ورحمة الله وبركاته أخى العزيز يمكنك استخدام هذا الكود DBEngine.CompactDatabase SrcName, DstName مع خالص تحياتى

ألف مبروك وأتمنى لكم دوام الترقى