منتصر الانسي

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

تفضل اخي المثال بعد التعديل المطلوب تحياتي,,, بحث بدون همزة.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 بإرجاع القيمة المطلقة للرقم تحياتي,,,

بعد إذن اخي العزيز nart lebzo وهذا تعديل يوضح فهرس الصفحات التي ترد فيها المجموعة فقط ارجو ان يكون مفيداً تحياتي,,, NA_ReportIndex.rar

تفضل اخي جرب التعديل تحياتي,,, bd11.rar

اخي العزيز يمكنك حل المسألة بعمل مايلي : أولاً : إنشاء جدول وسيط يمثل (تكويد الحسابات البنكية) يحتوي على الحقول التالية 1- كود الحساب (مفتاح رئيسي) يمكن حتى أن يكون ترقيم تلقائي 2- رقم الحساب (نفس رقم الحساب في البنك) 3- نوع الحساب (جنيه - دولار-...الخ) 4- كود البنك (يرتبط بجدول البنوك) 5- كود العميل (يرتبط بجدول العملاء) ثانياً : تعديل جدول الشيكات بما يلي 1- الإستغناء عن حقل (البنك) 2- إنشاء حقل جديد (رقم الحساب) يظهر على شكل كومبوبوكس في الفورم الأن عند إدخال كود العميل في نموذج الشيكات سيتم تصفية كومبوبوكس (رقم الحساب) بأرقام الحسابات الخاصة بهذا العميل وبعد إختيار أحد الحسابات سنكون بالتالي قد تعرفنا على البنك وعلى نوع الحساب ... أرجو أن يكون شرحي واضح وتستطيع تنفيذه تحياتي,,,

اخي العزيز كنت قد عملت مثال بجداول جديدة وفكرة جديدة ولكن بعد تفكير رأيت أن أعدل في مثالك حتى لاتتلخبط ارجو ان تجربه وتخبرنا بالنتيجة تحياتي,,, المرفق2.zip

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

اخي العزيز يبدو انك لم تتمعن في المثال الذي ارفقته لك في المشاركة السابقة مرفق لك مثالك معدل وبنفس الطريقة التي ذكرتها لك المرة السابقة تحياتي,,, Sample.rar