يوسف أحمد

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

و عليكم السلام و رحمة الله و بركاته اخي الكريم ابو الحسن مرفق مثال لما طلبت : في حال كان جهازك متصل بالانترنت يعمل زر الاغلاق و في حال عدم الاتصال لا يعمل الزر و تظهر لك رسالة تفيد بذلك ارجو ان يكون هو المطلوب بالتوفيق 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

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

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

السلام عليكم مشاركة مع اخواني اضع مثال وجدت نموذج انتقاء الالوان بمنتدى اجنبي و وضعت كود لتطبيق رقم اللون على جميع النماذج ما عدا نموذج الانتقاء .. و هذا الكود بحدث عند النقر لزر الامر الذي يحمل علامة الصح بالنموذج frmSelectColor Dim frm As Object For Each frm In CurrentProject.AllForms If frm.Name <> "frmSelectColor" Then DoCmd.OpenForm frm.Name, acDesign, , , , acHidden Forms(frm.Name).Section(acDetail).BackColor = Me.txtColor DoCmd.Close acForm, frm.Name, acSaveYes End If Next يتم استيراد هذا النموذج و استخدامه لتغيير جميع نماذج البرنامج ارجو ان تكون الاضافة مفيدة لاخي السائل بالتوفيق للجميع BackColor.rar

الغالي ابو خليل ... المنتدى منور بوجودك و وجود النخبة الرائعة من الاساتذه و الاخوة الاعزاء اخي zoom10 الحمد لله انك توصلت الى الحل

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

السلام عليكم في حدث عند الخطأ للنموذج ضع الكود التالي : Const conErrRequiredData = 3314 If DataErr = conErrRequiredData Then MsgBox ("لا يمكن ترك الفهرس فارغ") Response = acDataErrContinue Else Response = acDataErrDisplay End If غير نص الرسالة بما تريد بالتوفيق

و عليكم السلام لعمل ذلك ضع المعيار التالي IIf(IsNull([forms]![frm1]![txt1]);[a1];[forms]![frm1]![txt1]) حيث frm1 هو اسم النموذج txt1 هو اسم مربع النص على النموذج a1 هو اسم الحقل المراد التعامل معه بالتوفيق

و ايضاً يمكنك حساب ذلك بدون استعلام بوضع التعبير التالي بمربع النص على النموذج =DCount("id_company";"tbl_company";"[taxt_2]<=[taxt_1] ") بالتوفيق

تفضل ملفك بعد التعديل مثال.rar

السلام عليكم بارك الله فيك اخي العزيز ساندانت و جزاك خير الجزاء على ما تقدمه بعد اذنك اخي العزيز محمد سلامة استبدل التعبير بالاستعلام الى التالي : Check1: IIf([taxt_2]<=[taxt_1];1;2) بالتوفيق للجميع

السلام عليكم بعد اذن استاذنا الغالي شيفان و اسأل الله ان يجعل ما يقدمه لخدمة اخواننا في موازين حسناته يمكن استبدال تلك الرسالة بوضع الكود التالي بحدث عند الخطأ لنموذج البدء If DataErr = 3043 Or DataErr = 3024 Or DataErr = 3044 Or DataErr = 3078 Then Response = MsgBox("اتصال خاطئ بالمصدر", vbExclamation, "اتصال خاطئ") Response = acDataErrContinue DoCmd.RunCommand (acCmdLinkedTableManager) DoCmd.Quit End If و حل آخر تجده بالرابط ادناه للاستاذ الغالي ابو خليل جزاه الله كل خير تفضل من هنا بالتوفيق