ابوخليل

لم اكتب اجابتي الا بعد التجربة
الخطوات المسبقة :
1- انشأت جدول جديد مشابه  ( نسخ ولصق ) ثم افرغته من البيانات
2- انشأت نموذج جديد مشابه (نسخ ولصق ) وجعلت مصدر بياناته الجدول الجديد الفارغ
الآن عندي نسختين متطابقتين ولكن كل نموذج له جدوله الخاص
1- قمت بتحديد الكل في النموذج الاول ثم النسخ
2- فتحت النموذج الثاني وجعلت المؤشر على السجل ثم لصق
تمت العملية بنجاح

سيكون البحث لآخر سنة
فقط اجعل مصدر النموذج استعلام وفعل خاصية الفرز التنازلي
 
تذكير مرة اخرى :
البحث في حقل منفصل افضل
 
ملحوظة : حذفت البيانات من الجداول لتخفيف العبء
ترقيم3.rar

استاذ انه قريب مما هو مطلوب ولن الاغلاق ليس كما هو مطلوب  بل هو ما طلبت :
 
فلم تذكر التناقص او التراجع ولا يغلق بنفس طريقة الفتح ؟
 
الآن تم تحقيق طلبك الاخير في المثال المرفق مع الشرح
 
Option Compare Database Const i As Double = 4000 'هذا الرقم هو المسؤول عن زيادة ونقص حجم النموذج Dim x As Boolean   'وسيط نعم/لا متغير كشرط لتشغيل العداد Private Sub Form_Open(Cancel As Integer) Me.InsideHeight = 0 ' الارتفاع يساوي صفر عند الفتح Me.InsideWidth = 0  'العرض = صفر عند الفتح x = False  ' الوسيط=لا عند الفتح End Sub Private Sub Form_Timer() ' عداد النموذج وقد جعلنا قيمته عند الحدث = 100 If x = False Then  ' اذا كان الوسيط = لا Call Enlarg ' شغل التكبير Else '  وإلا Call Redu ' شغل التصغير End If End Sub Private Sub Enlarg() ' وحدة نمطية تزيد الطول والعرض 100 كل 0.1 من الثانية If i > Me.InsideHeight Then Me.InsideHeight = Me.InsideHeight + 100 Me.InsideWidth = Me.InsideWidth + 100 Else x = True End If End Sub Private Sub Redu() ' وحدة نمطية تنقص الطول والعرض 100 كل 0.1 من الثانية If Me.InsideHeight > 0 Then Me.InsideHeight = Me.InsideHeight - 100 Me.InsideWidth = Me.InsideWidth - 100 End If If Me.InsideHeight < 10 Then ' اذا كان الارتفاع اقل من 10 DoCmd.Close ' اغلق النموذج DoCmd.OpenForm "frm2", acNormal ' وافتح النموذج رقم2 End If End Sub تكبير وتصغير متدرج.rar

السبب هو مصدر بيانات كل من التقرير الاساسي والتقريرين الفرعيين
التقرير الاساسي مصدره qryTransfer  بينما التقريرين الفرعيين مصدرهما  New_qryTransfer
وهذا ليس تكرار  بل هما سجلين اثنين فيqryTransfer   ولكن لا يظهرا بسبب اختلاف المصادر

طريقة جميلة ورائعة اخي علي
وهي افضل مما قدمته لك 

هذا هو المتبع غالبا 
ولكن لاحظ اننا لا نتعامل مع الاستعلامات مباشرة داخل البرنامج
School2.rar

NZ([text1])+NZ([text2])+NZ([text3])+NZ([text4])+NZ([text5])>>>>> الخ الدالة NZ ترجع القيمة الخالية صفرا

في الكود ادناه يمكنك عند الخطأ جعل مربع الصورة فارغ  او عرض صورة رمزية
On Error GoTo ErrHandler   Me.myPics.Picture = Application.CurrentProject.Path & "\" & Me.eSiS & ".jpg" ErrHandler:     If err.Number = 2220 Then        Me.myPics.Picture = ""    '  Me.myPics.Picture = Application.CurrentProject.Path & "\0.jpg"              End If

وعليكم السلام ورحمة الله وبركاته   الاستعلام الجدولي يحقق النتيجة المطلوبة  انظر مثالك بعد التعديل   اما لو اردت  ان ترسم تقريرا خاصا  فيمكنك توظيف الدالة Dcount  لعد  الافراد حسب النوع فمثلا نكتب السطر التالي لجلب عدد الذكور في فرع معين نكتبه في  في عنصر التحكم لحقل في نموذج او تقرير فهو يجلب عدد البيانات في جدول حسب شرطين نصيين =DCount("txt1";"tbl1";"txt1='" & "1" & "'" & " And txt2='" & "ذكر" & "'")  
Database4.rar

لنقل جدول محدد :
DoCmd.TransferDatabase acExport, "Microsoft Access", "C:\Database1.mdb", acTable, "Table1", "Table1" وهذا لنقل استعلام محدد
DoCmd.TransferDatabase acExport, "Microsoft Access", "C:\Database1.mdb", acQuery, "Query1", "Query1" واذا اردت  جعل القاعدة الجديدة في الملف الحالي اي بجانب قاعدة البيانات  لنفرض ان المسار هو  "C:\Database1.mdb"  فسيكون بعد التعديل ::
CurrentProject.Path & "\Database1.mdb"

هذه احدى الطرق لتحقيق الهدف بالاقتصار على استعلام واحد
vv.rar

تأكد من وجود هذه المكتبة ضمن المراجع
Microsoft Activex Data Objects Library

من المفترض يكون هناك نسخة احتياطية 
 
الرسالة تفيد ان مشروع vb معطوب 
 
وعلى حد علمي ومعرفتي يمكن استخراج الجداول والبيانات
 
كما يمكن استخراج الكائنات الاخرى بلا اكواد ، فلا يمكن الاصلاح الا بحذف مشروع vb
 
اعانك الله وعوضك

بقليل من البحث تجد بغيتك
 
انظر هنا
http://www.officena.net/ib/?showtopic=36736
 
وهنا
http://www.officena.net/ib/index.php?showtopic=37846

في المرفق ادناه يتم تصفية التقرير حسب النموذج
 
وبالنسبة لما تريد في الصورة فهو موجود فعلا وكل ماعليك فعله هو زيادة المعايير حسب الرغبة
 
tast6.rar

افتح البرنامج واصبعك على  shift 

وهذه احدى صيغ الكود المستخدم كمعيار داخل الاستعلام :
Between [Forms]![frmserch]![text1]and[Forms]![frmserch]![text2] frmserch هو نموذج البحث
text1  حقل بداية التاريخ
text2 حقل نهاية التاريخ

الخطأ في اسم النموذج الرئيس
مثال بحث2.rar

ادرج في آخر سطر الكود  وقبل النص التعريفي الذي ستكتبه  علامة تنصيص مفردة  ( حرف الطاء بدون شفت  )  ستلاحظ ان النص انقلب الى اللون الاخضر  
وطبعا هي الطريقة المتبعة لايقاف اي سطر برمجي عن العمل

فيه حاجة افضل وهي اني اوضح لك ما خفي عليك
انظر الى المرفق الجديد
1- مصدر بيانات التقرير هو الاستعلام
2- عملنا مربع نص للرقم في النموذج وسميناه "الرقم"
3- وضعنا معيار في الاستعلام حسب الرقم الذي في النموذج
هذا كل شيء
الآن التقرير لا يظهر الا البيانات التي في النموذج فقط
 
 
 
الجدول الواحد افضل لك فمن خلاله سيتحقق كل ما تفكر به

ممكن 
انظر الصورة المرفقة

شكرا لاخونا حسان وجزاه الله خيرا
وحيث اني لم اطلع على الحل المرفق بحكم اختلاف الاصدار  ’ ولكنه عرض  الحل في مشاركته الاولى
 
يقصد هكذا :
Nz([Gom_mont]);0 اخونا كريم : استبدل جملة الجمع في الاستعلام بهذه :
Montant_Global: nz([Mont_Eau])+nz([Rar10])+nz([Mont_Gom])

if Not IsNull([ID]) then MsgBox"يوجد بيانات" else Exit Sub end if

سبب عدم الوصول الى حل  هو بسبب عدم تحقق خصيصتين
الاولى  : نوع العلاقة بين اعمدة الجدولين في الاستعلام 
الثانية : عدم امكانية القراءة من حقول وهمية غير موجودة
 
تم التعديل :
الاولى  بتعديل العلاقة
الثانية : استخدام  IsNull  بدلا من  Null
db1.rar

اكتب في اول سطر من الكود محل المشكلة الجملة التالية :
on error resume next