يوسف أحمد

و فيك بارك اخي العزيز ابو الحسن ... و لك بمثل ما دعوت به و زياده 🌺

و عليكم السلام و رحمة الله و بركاته اخي الكريم ابو الحسن مرفق مثال لما طلبت : في حال كان جهازك متصل بالانترنت يعمل زر الاغلاق و في حال عدم الاتصال لا يعمل الزر و تظهر لك رسالة تفيد بذلك ارجو ان يكون هو المطلوب بالتوفيق internet Check.rar

اهلا بالاستاذ الحبيب ابو خليل الشكر موصول لك و لكل الاخوه و الاساتذه بمنتدانا الغالي شرفني مرورك العظر

السلام عليكم و رحمة الله و بركاته اخواني و اساتذتي الاعزاء رواد منتدانا الغالي اضع بين يديكم مثال لارسال ايميل مع مرفق لمستلمين يتم اختيار سجلاتهم . هذه الطريقه تعتمد على الاوتلوك و قد رأيت امثله جميله من الاساتذه في هذا المنتدى و احببت ان اشارك بمثالي عسى ان يكون به فائده لمن يحتاجه . ليعمل البرنامج يحتاج الى اضافة مرجع للاوتلوك من محرر الفيجوال بيسك ثم اختيار القائمه Tools محبكم يوسف أحمدSend Email.rar

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

بارك الله فيك اخي ابو الحسن اشكرك على تجاوبك و تعاونك معي بارك الله فيك اخي kanory احسنت بارك الله فيك .. يبدو انه الحل الوحيد لهذه المشكله اشكرك جزيل الشكر

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

اذا لم يكن هو المطلوب فاعتقد بأن التعبير ادناه يؤدي الغرض Not Like "[*<<*]" And Not Like "*@*" And Not Like "*$*" And Not Like "*'*'*" And Not Like "*^*" And Not Like "[*+*]" And Not Like "*=*" And Not Like "*!*" And Not Like "*%*" And Not Like "[*#*]" And Not Like "*|*" And Not Like "*<*" And Not Like "*؟*"

و اياك جزى اخي الغالي هناك حل و هو عمل جدول بالقيم المطلوبه و من ثم يتم عمل استعلام غير المتطابقات و هذا يسهل عليك اضافة قيم اخرى للمقارنه الى الجدول مباشرة دون التعديل على الاستعلام الجدول tblTfrValues يحمل قيم المقارنه و الاستعلام qryTfr يظهر لك السجلات المطلوبه بالتوفيق اخي الغالي MusndWZwayid 01_Update.rar

بارك الله فيك اخي Moosak و اكثر من امثالك اذا سمحت لي بالمساهمه في الحل بالمرفق استعلامين لكل حقل من الحقول يوضح القيم الغير مدخله حسب المطلوب بالتوفيق للجميع ان شاء اللهMusndWZwayid 01_Update.rar

بارك الله فيك اخي الغالي ابا جودي و اكثر من امثالك اذا سمحت لي بالمساهمه في الحل =(DSum("goldImport";"table1";"")/2)-DSum("goldExport";"table1";"") * مع العلم بان اسماء الحقول هنا بدون فراغات * table1 هو اسم الجدول ارجو ان يكون هو المطلوب اخي امير بالتوفيق للجميع ان شاء الله

و عليكم السلام اخي ازهر ان كنت فهمت قصدك فأنت تحتاج ان تعمل استعلام تحديد و يكون حقل updateQuantity حقل محسوب بالاستعلام و يحتوي المعادله quantity- numweap و يكون الاستعلام هو مصدر بيانات النموذج بالتوفيق

بارك الله فيك ... و لك بمثل ما دعوت به و زيادة تفضل المرفق بعد التعديل .. قمت بالغاء تفعليل الزر بدلاً من اخفائه .. بالتوفيق ss.rar

و عليكم السلام اخي المسافر 2006 لعمل ذلك ضع الكود التالي في حدث عند النقر لزر التفاصيل DoCmd.OpenForm "NamesRecord", , , "[السجل المدني]=" & Me.السجل_المدني If Forms!NamesRecord!الرتبة <> "جندي" And Forms!NamesRecord!الرتبة <> "جندي اول" And _ Forms!NamesRecord!الرتبة <> "عريف" And Forms!NamesRecord!الرتبة <> "وكيل رقيب" And _ Forms!NamesRecord!الرتبة <> "رقيب" And Forms!NamesRecord!الرتبة <> "رقيب اول" And _ Forms!NamesRecord!الرتبة <> "رئيس رقباء" Then Forms!NamesRecord![رقم الملف].Visible = flase Forms!NamesRecord![السجل المدني].Visible = flase Forms!NamesRecord![الإختصاص].Visible = flase Forms!NamesRecord![تاريخ الميلاد].Visible = flase Forms!NamesRecord![تاريخ التعيين].Visible = flase Forms!NamesRecord![تاريخ اخر ترقية].Visible = flase Forms!NamesRecord![تاريخ استحقاق الترقية].Visible = flase Forms!NamesRecord![المؤهل الدراسي].Visible = flase Forms!NamesRecord![السرية].Visible = flase Forms!NamesRecord![الفصيل].Visible = flase Forms!NamesRecord![العنوان].Visible = flase Forms!NamesRecord![اسم شخص قريب].Visible = flase Forms!NamesRecord![جوال القريب].Visible = flase End If تفضل المرفق مع ملاحظة اني غيرت اسم النموذج المراد فتحه الى NamesRecord و انصحك بالتسمية باللغة الانجليزية و بدون ترك مسافات بين الاسماء لتفادي المشاكل البرمجية اضافة الى ان هذا يسهل عليك فهم الاكواد و التعبيرات في الاكسس ( حتى و لو كانت التسمية بالترجمة الحرفيه ) بالتوفيق ss.rar

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