ابوخليل

اخي الكريم
يمكن حسب تصميمك في المثال ايجاد الحل ولكننا نحتاج الى جملة برمجية اطول من الحاجة
حيث انك جعلت مربع التحرير يأخذ بياناته من جدول
بينما في جدول البيانات جعلت الحقل يأخذ البيانات نفسها ولكن كقيم مكتوبة داخل الاستعلام
لذا قمت بتعديل نوع الحقل داخل الجدول  الى رقمي  وكذلك مربع التحرير
لتصبح الجملة البرمجية التي تحقق مطلوبك هكذا :
 
Private Sub o_Change() Me.tr.Value = Me.o.Value End Sub اما اذا اردت الابقاء على عملك بدون تعديل فيمكن حينها ان اعمل لك الكود المناسب 
ولكنه سيكون اطول قليلا  حيث سيكون لكل تبويب شرطا يخصه
 
علامة الجدوله2.rar

تفضل
ولاحظ اني غيرت نوع حقل المدرسة في جدول الطلاب الى رقمي
نموزج الاخصائي2.rar

اجابة لكل اسئلتك
عند الانتهاء من مشروعك تقوم بتقسيم قاعدة البيانات الى جداول وواجهات (معالج اكسس يقوم بذلك )
تضع الجداول على جهاز وتوزع الواجهات على الاجهزة الاخرى  ويمكن في هذه الحالة ان تعمل عشرة اجهزة في وقت واحد
بقي شيء مهم وهو لا تنسى تضبط جميع نماذجك من الخصائص / لسان التبويب : بيانات /القيمة : تأمين السجلات  ، اجعلها : سجل محرر 

السبب هو انك جعلت مصدر بيانات النموذج من اكثر من جدول واستعلام
لذا لا يمكنك التعديل

هل تصلح لك هذه الطريقة
انظر استعلام التوحيد داخل المثال
db1.rar

Age: DateDiff("yyyy";[Texit_Brtheday];[forms]![frm1]![text1]) شرط يكون النموذج مفتوح
اذا غير واضح ارفق مثالك للتعديل

الان المطلوب واضح تماما
ولكن اعلم ان هذه الطريقة تصلح لبرنامج يستخدمه مستخدم واحد فقط
وتحتاج لتطبيق ذلك الى التالي :
نموذج بداية يتفحص الشرط
فإن وجد الخانة مفعلة فتح نموذج كلمة المرور والا فتح نموذج البيانات
 
انظر المثال المرفق :
كلمة المرور=1
انقر على زر تعديل لتغيير الرقم السري ولتفعيل ظهور نموذج كلمة المرور من عدمه
 
آمل ان يكون هو ما تبحث عنه
تحكم في ظهور نموذج كلمة لمرور.rar

Private Sub Command9_Click() If IsNull(Frame0) Then MsgBox "ادخل احد الخيارات" Exit Sub Else DoCmd.Close End If End Sub Database3.rar

جزاك الله خير استاذ علي
وهذا المثال بعد التعديل
db1.rar

جزاك الله خيرا يابو احمد على هذا الجهد والعطاء
 
اخونا علي :  الخلية في اكسس  ليست كمثيلاتها في اكسل او وورد
لذا فالتعامل معها يحتاج الى عمليات خاصة خارج نطاق خصائصها
وفي مسألتك هذه نحن بحاجة الى عمليتين :
الاولى : لتوسيع الخلية عموديا ( ويجب ان تتزامن الخلايا الاخرى معها في التمدد والتقلص )
الثانية : توسيط النص عموديا سواء كان سطرا واحدا او اكثر  ( ويطبق ذلك على جميع الخلايا )
ولدي وحدتين نمطيتين تعمل كل واحدة على حدة ولم يتسنى لي الجمع بينهما
ولكن العملية الثانية هي الاقرب الى حاجتك ومطلوبك وكثيرا ما استخدمها
وهي تحتاج بدأً الى ضبط ارتفاع الخلايا على مقياس محدد ،كسطرين او ثلاثة ونحو ذلك حسب البيانات المتوقعة
 
انظر التعديل على المرفق آمل ان يحوز على رضاك
Database4.rar

شكرا للاستاذ جلال وجزاه الله خيرا
 
السبب هو ان نوع بيانات الحقل المفروز = نص
غير نوع البيانات في الجدول الى = رقم

يمكن ان تضيف نموذجا فرعيا جديدا يكون كواجهة
ويمكن ان تضع صورة تغطي النموذج الفرعي ويتم اظهارها واخفاءها حسب الرغبة 
في المرفقات تطبيق للطريقة الاولى
db68.rar

في الاستعلام qyr_saderbydate2
استبدل المعيار الموجود بهذا
>=[forms]![frm_main]![zh]![txtDateFrom] And <=[forms]![frm_main]![zh]![txtDateTo] يبدو ان سبب المشكلة واضح الآن

يمكن عبر النموذج  ؟
يمكن التحكم في ذلك من خصائص النموذج 
لسان التبويب : بيانات
القيمة : السماح بالاضافة = لا

بعد اذن الاستاذ علي
استبدل الكود الموجود في حقل date2 بهذا :
 date2: (SELECT MAX(A2.S_date) FROM Absent As A2 WHERE A2.S_date < A1.S_date and A2.[emp no]=A1.[emp no] )

اخي ايمن
احرص دوما على عدم ترك مسافات خالية في التسميات
From_Date_one_month = DateAdd("m", -1, [the_Date]) Date2.rar

المشكلة عندك نقص في المكتبات
اتبع الخطوات التالية بعد فتح القاعدة على التصميم :
1-افتح محرر الفيجوال ؛ ( Alt+F11)
2- Tools / References
3- سيظهر لك مربع حوار المكتبات المفعلة
انظر ان كانت المكتبة التالية موجودة :
microsoft office 11.0 object library
اذا لم تكن موجودة
انقر زر المستكشف سيفتح لك آليا على مجلد النظام 
ابحث عن ملف باسم  Mso.dll
انقر عليه نقرتين
تجد انه اضاف المكتبة الى برنامجك 
موافق ثم اخرج
ملحوظة : اذا لم تجد المكتبة في مجلد النظام system تجدها في :
c:\programfiles\microsoftsharad\office11\Mso.dll

الرسالة تعني ان اعدادات اللغة في الجهاز غير متوافقة مع البرنامج
اضبط اعدادات اللغة في وندوز من لوحة التحكم 
في xp الاعداد الاقليمية 
وفي win7 المنطقة واللغة

لم اكتب اجابتي الا بعد التجربة
الخطوات المسبقة :
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 ترجع القيمة الخالية صفرا