أ / محمد صالح

هذا الملف رائع للأخ الكريم Maxxin ولكن ينقصه بعض الدوال لم ترفق في الملف

المشكلة في كود إنشاء الدائرة جرب هذا الكود Public Sub sbCrclInTxt(Rpt As Report, TxtCtrl As TextBox, TxtDegree As Integer) If TxtCtrl.Value <= TxtDegree Then Dim sngHCtr As Single, sngVCtr As Single, sngRadius As Single sngHCtr = TxtCtrl.Left + (TxtCtrl.Width \ 2) sngVCtr = TxtCtrl.Top + (TxtCtrl.Height \ 2) sngRadius = TxtCtrl.Width \ 4 ' Circle radius. Rpt.FillColor = RGB(255, 0, 0) ' Background Color red. Rpt.FillStyle = 0 ' Fill solid. Rpt.Circle (sngHCtr, sngVCtr), sngRadius, vbRed, , , 0.55 End If End Sub ولتعديل شكل الدائرة يمكن تعديل الرقم 4 الموجود في sngRadius أو الرقم الأخير 0.55 بقيمة أقل من الواحد الصحيح

أضف هذين السطرين Rpt.FillColor = RGB(255, 0, 0) 'backColor red. Rpt.FillStyle = 0 بعد سطر إنشاء الدائرة الذي يبدأبـ Rpt.Circle (mmm, ttt), nnn \ 3, vbRed, وفقنا الله جميعا لكل ما يحب ويرضى

جرب هذا الكود وإن شاء الله سيفلح معك Dim T As TableDef DoCmd.SetWarnings False For Each T In CurrentDb.TableDefs If T.Name Like "d2s_*" Then DoCmd.RunSQL "DELETE * FROM " & T.Name End If Next T DoCmd.SetWarnings True

نعم هذا الكلام صحيح وللعلم حجم 2 جيجا بايت ناقص منه حجم جداول النظام system objects ولتلافي هذه المشكلة يجب: * وضع مسار الصور والمستندات في حقل نصي بدلا من إرفاقها بقاعدة البيانات كما اشار أحد الأحباب * وكذلك عمل قاعدة بيانات لكل عام منفصل ويتم ربط الواجهة على أي قاعدة بيانات في الخلفية للعلم 2 جيجا بايت نصوص وأرقام كثير جدا لك أن تتخيل أن بيانات درجات 100000 مائة ألف طالب في 15 مادة بالإضافة إلى اسم المدرسة والإدارة وغيرها من البيانات يصل حجمها إلى 10 ميجا بايت فقط

هذا الكود يعمل على كل إصدارات الأوفيس من 2002 إلى 2016 أين توجد المشكلة تحديدا؟

تفضل أخي الكريم يمكنك الاستفادة بهذا المثال لاحظ إضافة حقل في الجدول ليحفظ فيه مسار الصورة وتم إضافة مربع صورة وتم إضافة كود اختيار ملف عند النقر مزدوجا على مربع الصورة مع الاهتمام بمراجعة خصائص properties للصورة mas_display_photo_in_form.rar

كلنا إيجابيون بدرجة وسلبيون بدرجة وتختلف الحالة من وقت إلى آخر ولكن السعيد من يلجأ إلى الله ويبتعد عن السلبية ويكفي لرفع الهمم ألا إن سلعة الله غالية

بسم الله والصلاة والسلام على رسول الله كل عام أنت جميعا بكل خير أحبابي في الله تم تحديث الملف وإضافة التعريفة الجديدة السارية من أول يوليو 2018 وفقنا الله جميعا لكل خير تم إضافة التعريفة الجديدة من أول يوليو 2018 وتعديل الرسوم والدمغة وتم إضافة نسخة من الملف تعمل على أكسس 2003

ربما يشتبه الأمر على البعض الأداة الموجودة في المشاركة الأولى وتحديثها يقومان بفك كلمات المرور لشيتات الإكسل التي نقوم بها من أجل حماية المعادلات والتنسيقات من تبويب مراجعة --> حماية ورقة العمل Review --> protect sheet ولا تقوم بفك كلمات الفتح أو محرر الفيجوال بيسك فقد تطرق لهذا الأمر الكثير من الأصدقاء في موضوعات كثيرة في هذا الصرح الكبير أوفيسنا شكرا لكل من مر على هذا الموضوع نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا

تفضل أخي الكريم @ابو زاهر نفس الكود السابق فقط كان يحتاج لتطويع حسب الملف المرفق جرب تعديل الشرط الأخير في الكود إلى Else If Year(Date) > Year(DMax("[Atarih]", "AfwtIar")) Then Next_Seq = 0 Else Next_Seq = Nz(DMax("Mid([Rjmfatwra], 2)", "AfwtIar", "Mid([Rjmfatwra], 1, 1) = '" & t & "'"), 0) End If Next_Seq = t & Format(Next_Seq + 1, "0000000") End If يمكن استعمال dmax للحصول على أكبر (أحدث) تاريخ أو استعمال dlast للحصول على آخر تاريخ تم إدخاله

الأخ الكريم @ابو زاهر المرفق لا يحتوي على نماذج يستعمل فيها الوحدة النمطية لذا أي اقتراح سيكون بدون تجربة وعلى حسب فهمي المتواضع للمطلوب جرب تعديل الشرط الأخير في الكود إلى Else If Year(Date) > Year(Date - 1) Then Next_Seq = 0 Else Next_Seq = Nz(DMax("Mid([Rjmfatwra], 2)", "AfwtIar", "Mid([Rjmfatwra], 1, 1) = '" & t & "'"), 0) End If Next_Seq = t & Format(Next_Seq + 1, "0000000") End If

بعد إذن أخينا العزيز شيفان يمكنك استعمال هذا الاستعلام SELECT B FROM Tab1 WHERE B NOT IN(SELECT A FROM tab1);

كل عام وحضرتك بخير وسعادة ورضا ياريت توضح أي جزء من الكود غامض بالنسبة لك حتى يتم توضيحه أكثر

إلى كل أحبابي في الله الطلبة والطالبات والمعلمين والمعلمات واولياء الأمور يسعدني أن أقدم الحل الأمثل لحفظ كلمات الإنجليزية English vocabulary وذلك بمناسبة شهر رمضان المبارك أعاده الله علينا جميعا بالخير والبركات. هذه أكبر مشكلة تواجهنا في تعلم اللغات الأجنبية، ولكن بفضل الله مع هذا التطبيق، أصبح تعلم اللغة الإنجليزية متعة. وذلك بشهادة كل من جربه من الطلاب والمعلمين وأولياء الأمور. والحل في برمجة تطبيق يعمل على الموبايلات بنظام أندرويد وهو أول تطبيق لي يعتمد على قواعد البيانات بانتظار آرائكم وتعليقاتكم الحل الأمثل لحفظ كلمات الإنجليزية English vocabulary الجميل في الموضوع أن التطبيق يحتوي على قواميس لجميع الصفوف في المرحلة الابتدائية: الصف الأول الابتدائي الصف الثاني الابتدائي الصف الثالث الابتدائي الصف الرابع الابتدائي الصف الخامس الابتدائي الصف السادس الابتدائي تابع معي مميزات التطبيق من مميزات تطبيق English4primary سهل الاستخدام واجهة رسومية مناسبة لجميع الأعمال يعمل على جميع الأجهزة بنظام أندرويد Android يعمل بنظام اختبارات الاختيار من متعدد وكذلك كتابة الكلمة كاملة (للمستوى المتقدم) يمكن السؤال عن الكلمة باللغة العربية والاختيارات انجليزية أو العكس (السؤال بالانجليزية والاحتيارات باللغة العربية) وهذه الصورة تشرح استخدامات الأزرار والمكونات الموجودة في شاشة التطبيق وغيرها الكثير من المميزات اكتشفها بنفسك والآن مع رابط تحميل التطبيق اضغط هنا أو هنا أو من المرفقات وفي الأخير لا ينقصن سوى دعاؤكم لوالدي بالرحمة والمغفرة ولنا جميعا بالخير في الدنيا والآخرة ومشاركة هذه الصفحة مع جميع أصدقائكم انتظرونا فالقادم أفضل بإذن الله في رعاية الله وحفظه ولا تنس تقييم المنشور English4primary.rar

فكرة رائعة وخصوصا عرض تواريخ الأعوام الكبيسة 29 فبراير بين السنتين ولإثراء الموضوع هذه معادلة كنت قد صممتها لهذا الغرض وهي ليست معادلة صفيف =DATE(A3,1,1)-DATE(A2,1,1)-(A3-A2)*365+IF(MONTH(DATE(A3,2,29))=2,1,0) وفكرتها بسيطة جدا نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا

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

تفضل أخي الكود بالمرفقات وفقنا الله جميعا لكل خير mas_ar_n2t_utf.rar

عليكم السلام أخي بن علية فكرة رائعة ويمكن اختصار المعادلة قليلا إلى =F6/(HOUR(E6)+MINUTE(E6)/60) وفقنا الله جميعا لكل ما يحب ويرضى

شكرا لكلماتكم العطرة أستاذ طارق

يمكنك أن تضع في الحلية G6 المعادلة الآتية =F6/HOUR(E6) وتغيير تنسيق الحلية إلى رقم وإنقاص المنازل العشرية decrease decimal إلى رقمين ليصبح الناتج 1.54

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