عبدالله المجرب

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

ألاخ/ عطاء الله الف مليون مبروك ترقية مستحقة ...... وعطاء منتظر

الملف لا يعمل عندي

حياك الله

ضع مرفق

السلام عليكم في المرفق تم عمل التالي فورم لمتجاوزي الاجازة ولم يحضروا كما تم جعل تاريخ نهاية الاجازة وتاريخ المباشرة ومدة التأخير تحسب اوتماتيكياً جرب المرفق اجازات.rar

شاهد المرفق هنا http://www.officena.net/ib/index.php?showtopic=34558&p=181297

هذا يعني انه يوجد نطاق في الورقة بإسم aaa وهل تريد الاحتفاظ بهذا الاسم ام لا فلو اخترت لا سيتم إظهار مربع حواري اخر لكتابة الاسم الجديد لهذا النطاق والله اعلم

تم فتح الموضوع ودمجهما

حدد آلية الانتقال وان شاء الله تجد ما تريد

السلام عليكم شاهد المرفق Book1.rar

يمكنك القيام بذلك من زر الاوفيس شاهد الصورة

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

الحمدلله تمت الاجابة ابو احمد

بالنسبة للضغط على الرقم ليتم عرض بياناته في حدث Click للقائمة ضع هذا الكود Private Sub قائمة788_Click() DoCmd.GoToControl ("NA") DoCmd.FindRecord Me.قائمة788.Value, acAnywhere End Sub

اليك هذا التعديل جربه Private Sub No_AfterUpdate() Dim MyVal As Integer MyVal = No Do Until No > 20 DoCmd.GoToRecord , , acNext No = MyVal + 1 Exit Do Loop End Sub

لاحظ الصورة فالمعادلة تعمل (اين الخطاء؟)

اعتقد والله اعلم ان تحديث الارتباطات يتم في حال كان الملف مفتوح اما اذا كان مغلق فلن يتم تحديث اسم الفولدر تلقائياً والله اعلم

اليك المرفق بعد اضافة الدالة اليه والصورة توضح ان المعادلة تعمل test1.rar

اين المرفق

بارك الله فيك فكرة لا باس بها

السلام عليكم استبدلها بهذه =SUMPRODUCT(--(INDIRECT($J$7&"!D$2:D$57154")<=M16);--(INDIRECT($J$7&"!D$2:D$57154")>=N16)*(INDIRECT($J$7&"!J$2:J$57154")))

شاهدت طريقة الاستاذ جمال الاولى وحاجتها الى عمود مساعد =VLOOKUP(G1 & "|" &H1&"|"&I1;$A$2:$E$5;5;FALSE) طريقة الاستاذ يحيى حسين بدون عمود مساعد =LOOKUP(2;1/((B2:B5=G1)*(C2:C5=H1)*(D2:D5=I1));E2:E5) لتاتي طريقة الاستاذ جمال بدون عمود مساعد =VLOOKUP($G$1;IF(($C$2:$C$5=H1)*($D$2:$D$5=$I$1);$B$2:$E$5;"");4;FALSE) ابداع في تطوبع المعادلات بارك الله فيكم والف تحية للاستاذ الفاضل يحيى حسين أمبراطور المعادلات ومطوعها وألف تحية للاستاذ جمال ملك المعادلات

تفضل ترحيل حسب اسم الشيت.rar

أسأل الله العظيم رب العرش العظيم أن يشفيه ويعافيه ومرضى المسلمين اجمعين