الى الاخوة الاعزاء
السلام عليكم ورحمة الله وبركاته
اذا كان يوجد لديه تقرير بتواريخ أنتهاء مستندات وطبعا هذا التقري مبني على جدول , فاريد أن اعمل ماكرو تنبيه قبل تاريخ انتهاء المستندات بعشرة ايام يفيدني بأن هناك مستندات لم يبقى على انتهاءها سواء عشرة ايام ومن ثم يفتح التقرير لمعرفة تلك المستندات .
وشكر جزيلا لكم .
أخي الكريم
السلام عليكم
بالطبع هذا ممكن لكن متى تريد عرض الرسالة هل عند تشغيل البرنامج ؟
أم متى
والفكرة هي فحص الجدول عند تشغيل البرنامج فإذا كان هناك سجلات مطابقة للشرط الذي ذكرت يعرض رسالة تنبيهية ويسألك عن الرغبة في عرض التقرير أو نحو ذلك
حبذا لو أرفقت لنا ولو بعض الملف الذي تريد التطبيق عليه حتى تسهل العملية مثلاً ضع الجدول والتقرير والنموذج الافتتاحي في ملف وأرفقها وستجد من يساعدك بإذن الله
تحياتي
الاخ ابو هاجر
السلام عليكمورحمة الله وبركاته
ارجو منك تعريفي كيف يرفق الملف حيث ان خبرتي في ذلك بسيطة
وشكرا لك
أخي الكريم
السلام عليكم
تحت المربع الذي تكتب فيه مشاركتك يوجد زر مكتوب عليه استعراض انقر عليه ثم حدد قاعدة البيانات طبعاً بعد الضغط ثم انقر زر فتح وبعد كتابة الرسالة انقر زر ارسل الرد وسوف يتم إرفاق الملف مع الرد أو المشاركة
تحياتي
الاخ ابوهاجر
لايوجد على جاهزي برنامج ضغط الملفات ارجو تحديد رابط لتحميله ومن ثم ارسال الملف اليك
وشكر جزيلا لك
أخي الكريم
السلام عليكم
هذا رابط لتحميل وين رار العربي
http://www.rarlab.com/rar/wrar310a.exe
تحياتي
أخوك / أبو هاجر
اذا كنت محمل ويندوز ميلينيوم اذهب اللى لوحة التحكم و اضافة برامج ومن ثم Windowes Setup وبعد ذلك System Tools وبعد ذلك اضف Compressed Folders
او ..... اذهب الى موقع www.winzip.com وحمل winzip
اسف على مايبدو ارسلت رسالتي نفس وقت ارسال رسالتك وكما يقولون
" اذا حضر الماء بطل التيمم "
السلام عليكم ورحمة الله وبركاته:
لو تكرمت ياخوي بو هاجر ولا عليك امر لماذا لا تعمل لنا نموذج مبسط لطلب الاخ ابوشاهر، يعني ماهو بشرط برنامج كامل بس النقطة المطلوبه حتى تعم الفائدة.
ولكم جزيل الشكر والاحترام
الاخ ابو هاجر
انني اضم صوتي الى صوت الاخ فتى الخليج وذلك لتعم الفائدة ولكم مني جزيل الشكر والعرفان
الإخوة الكرام أبو شاهر زكوان فتى الخليج
السلام عليكم
بناء على طلبكم أرفق مثالاً كتبته على عجل
آمل منكم المعذرة والتجاوز عن التقصير فيه فالمقصود هو المثال والطريقة
تحياتي
أخوكم / أبو هاجر
تسلم يا اخوي بو هاجر على تلبية طلب الاخوان والله مهما قلنا ومهما شكرناك الا لانقدر نوفيك حقك،،،،،،،
وكثر الله من امثالك وجعلها الله في ميزان حسناتك ان شاء الله
وشكرا
اشكرك يا ابوهاجر ونطمع في المزيد من المعلومات النادرة ولك تحياتي
الاخ ابوهاجر
السلام عليكم
لقد جربت الكود الاتي ولم يعمل بالطريقة الصحيحة حيث يقوم باظهار رسالة التنبيه في حالة وجود اقامات منتهية اوغير منتهية .
اين يقع الخطاء .وشكرا لك
if dcount("akama_end]", " workers")>10 then
dim a as integer
(vbmasgboxright + vbYesNo"الرســـــــالة") a= masgbox
If a = vbYes Then
DoCmd.OpenReport "worker_rep2", acPreview
End If
End If
أخي الكريم
السلام عليكم
من الواضح أن الخطأ في الاستعلام workers الذي أشرت إليه في الكود السابق
الكود السابق يعني إذا كان الاستعلام workers يحتوي على أكثر من 10 سجلات فاعرض الرسالة وهذا خطأ من ناحيتين :
1- أننا نريد أن نعرض الرسالة في حالة وجود ولو سجل واحد وليس عشرة
2- من الواضح أن الاستعلام يحتوي على أكثر من عشرة سجلات ولذلك عرض هذه الرسالة ومعنى ذلك وجود خطأ في كتابة الاستعلام
وقبل أن تجرب الكود تأكد أن الاستعلام workers يعرض فقط الإقامات المنتهية وإلا فأرفق الملف وسأقوم بالتعديل عليه بإذن الله
تحياتي
أخوك / أبو هاجر
الاخ ابوهاجر
لقد حاولت ارسال الملف اليك ولكن واجهتني صعوبة في التحميل وسوف اقوم بارساله لك فيما بعد .
علما ان workers iهو جدول بيانات العاملين akama_endهو تاريخ انتهاء الاقامة في الجدول اعلاه .
والكود موضوع في النموذج الرئيسي في خاصية عند الفتح
تذكير لك يا اباهاجر .
علما اخي العزيز حاولت ارفاق الملف ولكن عند وضع استعراض وضغط ارسال الرد لايقوم الجهاز باعتماد ذلك .
أخي الكريم
السلام عليكم
يجب ضغط الملف قبل إرساله بواسطة WinZip
تحياتي
تم ضغط الملف ولكن دون جدوى
الاخ ابو هاجر
السلام عليكم
لقد قمت بأرفاق الملف وهو عبارة عن نموذج رئيسي وجدول بيانات العاملين
وتقرير يعبر عن المستندات المنتهية بحيث يوضع كود في النموذج الرئيسي في خاصية عند الفتح ليقوم بقراءة الجدول وعند وجود مستندات منتهية يعرض رسالة تفيد بذلك ومن ثم يفتح التقرير لمشاهدة تلك المستندات .
كما ارجو منك يااخي ابو هاجر يكون التعديل على اكسس 97 حيث الاصدرات الاخرى ليس على جهازي .
ودائم تاعبينك يابو هاجر يحفظلك هاجر .(f)
100% با ابو هاجر
وفعلا انك خبير الاكسس
وشكرا لك با اباهاجر(f)
الاخ ابو هاجر
السلا عليكم
لقد ضبط معي الكود ويعمل اثناء فتح النموذج وتظهر الرسائل ولكن اريد هذه الرسائل تظهر بعد فتح النموذج بالكامل وقد جربت في جميع مواقع الحدث ولم تضبط .
علما ان النموذج رئيسي ويقوم بفتحه ماكرو autoexec فهل ممكن وضع هذا الكود في وحدة نمطية وتعمل بعد فتح النموذج من خلال الماكرو .
واذا كان ذلك ممكن كيف الطريقة
وشكرا يااباهاجر
أخي الكريم
السلام عليكم
يمكنك وضعه في حدث عند عداد الوقت وضبط الفاصل الزمني لعداد الوقت إلى 1000 أي ثانية واحدة
بالطبع أضف إلى الحدث أمر ضبط الفاصل الزمني إلى صفر حتى لا يتكرر تنفيذ الحدث مرة أخرى
تحياتي
أخوك / أبو هاجر
الأخ أبو هاجر
السلام عليكم ورحمة الله وبركاته
البرنامج لايعمل عندي مطلقا حيث تظهر لي رسالة unrecognized database format
ارجوك اعلامي عن السبب 0
وتقبل فائق شكري وتقديري 0
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…