علي المصري

السلام عليكم ورحمة الله وبركاته لا يوجد دالة اسمها Value في اكسيس كما ذكرت لحضرتك في المشاركة الثانية وبناء علي كتبت الدلة بالطريقة التالية بدون كلمة Value =Right(Format([text1];"0,000");4) فقم من فضلك بحذف كلمة Value سوف تعمل ان شاء الله

اضغط على اسم الورقة بالزر الايمن للورقة واختار اظهار الكود View Code ومن ثم الصق الكود التالي حيث انه يعمل عند تنشيط الورقة Sub worksheet_activate() ActiveSheet.Protect Password:="11111" End Sub وإذا اردت فك الحماية باستخدام زر امر اكتب التالي مع حدث عند الضغط للزر ActiveSheet.Unprotect Password:="11111"

ممتاز عمل رائع

شكرا جزيلا وعلى الاهتمام تم حل المشكلة الحمد لله

المثال يعمل جيد مرفق مرة اخرى Database6.rar

بالنسبة للدلة في اكسيل كما كتبتها حضرتك في المشاركة =VALUE(RIGHT(TEXT(AH1;"0,00");4)) فعلى حد علمي البسيط ان لا توجد دالة اسمها value في اكسيس والدالة TEXT على حد علمي انها تقابل دلة اسمها format في اكسيس وعلى ذلك تكون المعادلة السابقة في اكسيس كما يلي =Right(Format([text1];"0,000");4) والله أعلم واساتذة المنتدى اكيد لهم تاني فيما اقول وشكرا

استخدم بدل من اسم الخلية باسم العنصر ( مربع نص مثلا ً ) وهذا مثال بالنسبة لقاعدة iif في اكسيل =IIf([CH1]<16670;(2*([CH1]-15010)/10)+602;[CM1]) في اكسيس =IIf([Text1]<16670;(2*([Text1]-15010)/10)+602;[text12]) و الدلة int في اكسيس ( مثال ) =(Int(([text1]-[text12])-Int([text14]-[text15]))/10)*10 مرفق المثال Database6.rar

فقط انسخ الموديول ajbCalendar الموجود باللمف المرفق والفورم المسماة frmCalendar ثم في حدث مربع النص أو الزر المطلوب اكتب =CalendarFor([txtStartDate];"Set the start date") وعيش AliElmasry.rar

الاستاذ الفاضل : فتحى ابوالفضل والاستاذ الفاضل : غريب عبد المنعم جزاكم الله عني خيرا شكرا لكما بارك الله فيك وجزاك الله خيرا ............ طبعا َ مصري عربي صعيدي وأفتخر

تفضل اخي الكريم إن شاء الله يكون المطلوب في الموضوع التالي http://www.officena.net/ib/index.php?showtopic=54854

برنامج طباعة ارقام جلوس مقاسات مختلفة انا بستخدمه في المدرسة التي اعمل بها حاليا ً seets2014.rar

شكرا استاذ سليم جزاك الله عنى خيرا

شكرا وجزاك الله خيرا

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

وعليكم السلام ورحمة الله وبركاته استاذنا سليم حاصبيا بارك الله فيك وجزاك الله خير لو تكرمت ياريت مثال عملى كي افهم الامور صحيحة

وجدت في المنتدى اكواد لتغير اسم الورقة حسب محتوى خلية ما ولكن اسماء الشيتات تكون موجود في بعض الاكواد التي استعملها فهل يمكن جعل الكود مرن بحيث يتغير تلقائيا بتغير اسم الورقه

اسماء الشيتات تكون موجود في بعض الاكواد التي استعملها ولكن هل يمكن جعل الكود مرن بحيث يتغير تلقائيا بتغير اسم الورقه

استخدم الحماية عن طريق الكود ActiveSheet.Protect Password:="11111" انا عندي اكسيل 2013 وعامل حماية بالطريقة العادية وبشغله على 2010 و 2007 ومفيش أي مشكلة

شكرا لك ولطريقتك في نشجيعي لاني ما زلت في بداية الاكسس وتعلمت منك الكثير شكرا

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

مرفق صورة

تم عمل احصائية من حيث الجنسية وعلى نفس الطريقة يمكنك عمل الباقي احصاء.rar

من خلال خطوات عمل الليست بوكس مرفق صور للخطوات SortComboBoxand listBox.rar

استاذنا أبو خليل لقد فهمت حلك جيدا والطريقة التي استخدمتها في المشاركة السابقة وبعد اذنك واثراءا للموضوع فلقد توصلت لحل آخر كما يلي : قمت باضافة خمس مربعات نص في راس التقرير وقمت بعمل فورم Form1 به اربع اختيارات وهي بعدد الاختبارات ثم اضفت مجموعة خيارات مكونة من 2 هما CAT1 و CAT2 للإختيار منهم ثم قمت برط كل مربع نص واحدة من هذه الاختيارات فمثلا الاختيارات الاربعة هي Ch1,Ch2,Ch3,Ch4 والمجموعة اسميتها fram والاختيارات لها fram=1 أو fram=2 وكان الربط بينها وبين مربعات النص كالتالي textbox1 :::: [Forms]![Form1]![Ch1] textbox2 :::: [Forms]![Form1]![Ch2] textbox3 :::: [Forms]![Form1]![Ch3] textbox4 :::: [Forms]![Form1]![Ch4] textbox5 :::: [Forms]![Form1]![fram] وعن طريق الكود في الحدث الخاص برأس التقرير استخدمت خاصية الاظهار والاخفاء وإعادة التسمية وتحريك العنصر إلى اليسار حتى وصلت للذي كنت أريده في هذه الجزئية من البرنامج وهذا بفضل الله ثم توجيهاتكم ومساعداتكم ارجوا من حضرتك مشاهدة المرفق وتقييمه db.rar

السلام عليكم ورحمة الله وبركاته جزاك الله خيرا استاذنا أبو خليل شكرا على الحل الذي قدمته لي ( الحلول التي قدمتها لى ) شكرا لك على سعة صدرك وسرعة المبادرة لحل أي مشكلة تصادف أي عضوا في المنتدي فشكرا جزيلا