منتصر الانسي

جرب الان sample.rar

اخي فرهاد لقد فهمت طلبك من البداية ولكن استفساراتي كانت لغرض في نفسي عموما مرفق لك مثالك بعد التعديل وستلاحظ انه نفس الحل الخاص بمشاركتك السابقة المشابهة لهذه والتي على الرابط هنــا وهذا بصراحة ما احزنني فاذا لم تكن تستفيد مما يقدم لك في هذا المنتدى او من غيره فذلك يعني انك لن تتطور وستبقى محلك سر (رغم كل البوادر التي تبشر بظهور مبدع عربي جديد)ولكني حاولت ان اتلمس لك العذر في ان الطلب هذا خاص بنموذج فرعي (رغم انه ليس بعذر) فقد كان بإمكانك تجربة الكود السابق هنا (وهذا ما قمت به انا في هذا المثال)واذا لم ينفذ المطلوب يمكنك عندها طرح سؤالك . عموما اخي فرهاد ارجو ان تتقبل نصيحتي بسعة صدر فانا مثلك دخلت هذا المجال هاوياً ولولا (فصفصة) كل مايقع في يدي من امثلة لم تعلمت شيئاً وحتى الان لا تعرف مدى السعادة التي اشعر بها عندما يقع في يدي مثال بفكرة جديدة (الله وكيلك افرمه فرم). تحياتي,,, sample.rar

اخي فرهاد لدي استفسارين هل تاريخ الدخول يكون تاريخ اليوم الحالي افتراضياً ام يجب إدخاله يدوياً؟ بعد اثبات تاريخ الدخول هل يمكن تعديله (رغم ان الدخول قد تم فعلاُ) ام ان هناك حالات يمكن فيها تعديل التاريخ ... واذا ما تم التعديل وصادف انه تغيرت السنة فهل من الضروري تغيير كود المريض ...؟ تحياتي,,,

تفضل اخي تم التعديل على التقرير تحياتي,,, control 2011.rar

اخي العزيز تم تعديل المرفق الثاني ومرفق لك مثالك بعد التعديل ارجو ان تجربه وتخبرنا النتيجة تحياتي,,, SRCH.rar

شكرا ابو عمر على كل ماتقدمه تحياتي,,,

مشكور اخونا ابوعمر وما قصرت جزاك الله خير تحياتي,,,

تفضل اخي المثال بعد التعديل المطلوب تحياتي,,, بحث بدون همزة.rar

اخي العزيز sweety هذه تعرف بالمتغيرات ووظيفتها تقدر تقول عليها (مخزن مؤقت للبيانات) وذلك بغرض استعمالها داخل الكود وستجد شرح مبسط لها على الرابط هنـــــا تحياتي,,,

تفضل اخي العزيز مثال الاستاذ محمد طاهر تحياتي,,, NewStrSearch.zip

بعد اذن اخونا sabha الفرق بين الدالتين هي ان دالة DLookup تقوم بالبحث عن اول قيمة تطابق المعايير فمثلاً إذا كان لديك 10 سجلات تطابق المعيار فإنه سيظهر لك اول سجل منها فقط (اي انها ستظهر البيانات الموجود في هذا السجل) اما دالة DCount فإنها ستظهر لك عدد السجلات المطابقة اي 10 (وليس البيانات) وهذا سبب تفضيلها من قبل الأخ sabha (بحسب إعتقادي) لأنه إذا كانت النتيجة اكبر من صفر فذلك يعني وجود سجلات مكررة . ولكن يمكن الاستفادة من دالة Dlookup بإن تسبقها بدالة IsNull فإذا كانت القيمة True فذلك يعني أنه لايوجد سجل مطابق للمعايير والعكس صحيح . تحياتي,,,

اخي العزيز يوجد هناك طريقتين الطريقة الأولى عن طريق خصائص النموذج اذهب الى خيار "Data Entry" وبالعربي "إدخال البيانات" كما اعتقد ثم اجعل هذا الخيار (Yes - نعم) الطريقة الثانية في حدث "On Open" أو "عند الفتح" اكتب الكود التالي : DoCmd.GoToRecord acDataForm, "FormName", acNewRec قم بكتابة اسم النموذج مكان (FormName) الفرق بين الطريقتين هي أن الطريقة الأولى ستفتح النموذج على سجل جديد دون إظهار لأي سجلات سابقة (اي انك لا تستطيع البحث في السجلات السابقة) أما الطريقة الثانية فإنها تقوم بفتح النموذج بجميع سجلاته ولكن يتم الإنتقال الى سجل جديد مباشرة تحياتي,,,

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

اخي العزيز بصراحة انا لم استخدم هذا الكود من قبل ولكني اعتقد انه بحاجة الى تعديل مسميات الجداول والحقول والاستعلامات بما يلائم برنامجك . ولكن في الحقيقة اعجبتني فكرتك الأصلية وقد حاولت تطبيقها كما ستجده في المرفق واعتقد انها اسهل من المثال السابق تحياتي,,, مساحة.rar

اخي العزيز سبق وضع موضوع مشابه من سابق هنـــا ارجو ان يفيدك تحياتي,,,

اخي العزيز لاتنسى بأن كل عضو لديه أعمال ومشاغل اخرى تجعل منه يحجم عن الرد على الطلبات الغير واضحة او المتشعبة ويفضل الرد على المشاركات ذات الطلب المحدد ضمن مثال يوضح هذا الطلب ولذا دائماً ما نطلب من الأخوة الأعضاء التقيد بقواعد المشاركة من ناحية ومن ناحية اخرى ان تكون تساؤلاتهم واضحة ومدعومة بمثال يوضح طلبهم وهنا ستلاحظ انك قمت بوضع اكثر من سؤال في نفس المشاركة وقمت بإرفاق مثال لايحوي أي سجل وبالتالي لا يستطيع الشخص الذي يرغب في مساعدتك بفهم المشكلة فمثلاً لم توضح مصدر الصورة التي تريد إظهارها فهل هي حقل ضمن أحد الجداول ام انها موجودة في ملف خارجي هذا توضيح بسيط لسبب عدم تفاعل الاخوة مع مشاركتك وحتى لاتعتقد انه اهمال من قبلهم . نرجو التفهم ... تحياتي,,,

تفضل اخي العزيز مرفق لك مثالك معدل على عجل ارجو ان يكون مفيدا لك تحياتي,,, دمج الخلايا.rar

اخي العزيز مرفق لك المثال بعد التعديل تحياتي,,, تجزئة مكونات النص.rar

تفضل اخي فرهاد مرفق مثالك بعد التعديل تحياتي,,, Sample.rar

اخي العزيز تفضل المثال المرفق ارجو ان يكون مفيداً لك تحياتي,,, تجزئة مكونات النص.rar

اخي العزيز ارجو الاطلاع على الموضوع هنـــــا وستجد فيه الفائدة إن شاء الله تحياتي,,,

اخي العزيز اذا كنت قد فهمت طلبك فمرفق لك مثال اجنبي جميل فيه تقرير اخر عمود فيه اسمه Montaser اذهب الى جدول tblReductionByPhysician واذهب الى اخر سجل وقم بمسح كلمة Montaser او حذف السجل كاملاً ثم اعد فتح التقرير وشاهد النتيجة ارجو ان يكون هذا هو طلبك . تحياتي,,, CrosstabReport2k.rar

تفضل اخي العزيز جرب التعديل المرفق تحياتي,,, Sample.rar

تفضل اخي العزيز مرفق لك مثالين الاول تعديل مثالك الاصلي الثاني وهي الفكرة الافضل وذلك بتعديل في تصميم الجداول ارجو ان يكونا مفيدين تحياتي,,, db.rar db_2.rar

اخي العزيز قم بتعديل هذا السطر GetNo = Format(TheNo, "000000000000.00") بهذا السطر [GetNo = Format(Abs(TheNo), "000000000000.00") حيث تقوم الدالة Abs بإرجاع القيمة المطلقة للرقم تحياتي,,,