AlwaZeeR

الدقة: 1366*768

صراحة لم افهم ما تقصده ارفق صورة اذا تكرمت

مرة ثانية لا تضغط تم حل الاجابة قبل ان تتاكد من انك انهيت ما تريد او افتح موضوع جديد تحياتي ShowAllpic.zip

تفضل :: تحياتي التعامل مع wالصور.zip

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

نعم اجعل الامر اخفاء للنموذج بدل اغلاقه وعند اغلاق التقرير اعمل اظهار للنموذج وهكذا يبقى محتفظا بالتعديلات التي اجريتها عند المعاينة

وما المانع من عمل نسخة Accde قبل ذلك قم بتقسيم القاعدة باك اند وفرنت اند وعدل براحتك على نسختك الاصلية ويعدها استبدل الفرنت اند ولن تتاثر بياناتك

صراحة مجهود يستحق الشكر والتقدير وتم دمجها في احد برامجي واخذ ما يلزم منها مع الاخذ بعين الاعتبار الحقوق طبعا ولكن لم افهم الفرق بين نعم وموافق عندما استخدم مثلا لحذف سجل ما الفرق بين ان اختار موافق او نعم؟؟ جميل وفي ميزان حسناتك ان شاء الله :: تحياتي

يعتمد على الارتساء للحقول وبالتالي الارتساء يعتمد على ضبط دقة الشاشة عادة ما يكون الضبط للحقول اقصى اليسار في الوضع التلقائي ولا علاقة للويندوز في هذا الذي حدث

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

وعليكم السلام ورحمة الله وبركاته بخصوص الطلب الثاني صراحة لم افهم مقصدك ما معيار الفلترة التي تريده لاستخراج هذه السجلات؟ codeM.accdb

وعليكم السلام ورحمة الله وبركاته يعني اولا انت تختار السن ثم تختار الاجراء؟ كم اجراء للسن؟ واحد ام اكثر؟ لاني لم افهم طريقتك يعني لازم نفهم آلية العمل حتى نمتكن من المساعدة وقد يكون هناك طريقة اسهل من طريقتك :: تحياتي

Public Sub OpenMyForm() DoCmd.OpenForm "types", acNormal End Sub ثم قم بالاستدعاء تحت زر الامر هكذا OpenMyForm

=DLookUp("[gehat]","[karz]","[nam]='" & [com1] & "'")

بعد اختيار افضل اجابة من الافضل لو تقوم بفتح موضوع جديد كي يتسنى للجميع مساعدتك عموما تفضل صديقي test (2)w.accdb