نجوم المشاركات

السلام عليكم ورحمة الله وبركاته اليك اخي الكريم ما تم تعديله في جدول AfwtIar تم اضافة حقل Xsave في نموذج frmSales وبالضغط على زر حفظ تم اضافة كود Me.Xsave = -1 وفي حدث عند الاغلاق للنموذج تم اضافة الكود التالي DoCmd.SetWarnings False If Me.Xsave = -1 Then Else DoCmd.GoToControl "Rjmfatwra" DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True End If DoCmd.SetWarnings True عدم الحفظ التلقائي_2.rar تحياتي

المشكلة عندك اما في برنامج الضغط او وندز

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

السلام عليكم ورحمة الله وبركاته، من وجهة نظري خط Simplified Arabic من أكثر الخطوط وضوحاً ولا يختلف عليه اثنان، وإليك الطريقة التي أتبعها في التنسيق، وهي كالتالي: للمتن: Simplified Arabic عادي حجم 14 عناوين الأبواب والفصول: Simplified Arabic غامق حجم 24 عناوين المباحث: Simplified Arabic غامق حجم 18 العناوين الرئيسية: Simplified Arabic غامق حجم 16 العناوين الفرعية: Simplified Arabic غامق حجم 14 دمتم بخير

السلام عليكم ورحمة الله وبركاته تم اضافة كود للنموذج الرئيسي ويعمل تمام وان اردت ان تضيفه للنموذج الفرعي فلا اشكال ايضاً * ملاحظة : الكود يعمل على مستوى السجل فقط تخياتي عدم الحفظ التلقائي_2.rar

وعليكم السلام ورحمة الله عملت لك إجرائين.. إجراء لحفظ مرفقات السجل الحالي إجراء لحفظ جميع المرفقات في الجدول إذا كان حقل المرفقات يحمل أكثر من مرفق فسيقوم الإجراء بإضافة رقم تسلسلي لاسم الصورة بغض النظر عن نوع المرفق إليك المرفق: Save Attachment File.zip

السلام عليكم تفضل المطلوب في الملف المرفق... بن علية حاجي new protofolio.rar

السلام عليكم ألق نظرة على الملف إن كانت التعديلات على المعادلة يوافق المطلوب والشروط... بن علية new protofolio.rar

السلام عليكم ورحمة الله أخي الكريم إيهاب، بعد تذكر خصائص وعمل الدالة SUMPRODUCT قمت بإضافة المعادلة المناسبة في الملف وإن شاء الله تقوم بالمطلوب على أحسن وجه... وقد استعنت في المعادلة (حتى لا تكون المعادلة أطول) بثلاث تسميات ديناميكية: عمود الكود بالتسمية Code، عمود تاريخ البداية Debut وعمود تاريخ النهاية Fin باستعمال الدالة OFFSET... هذا الحل تم بالمعادلات (التي كنت أعتقد أنها صعبة المنال) ويبقى الحل بالأكواد إذا تكرم أحد الإخوة المتمكنين ليقدم لنا حلا شافيا وافيا... ملاحظة: فترات الإجازات للاسم الواحد يجب أن لا تكون متداخلة بينها في التواريخ... ومعذرة على التأخير في تقديم المساعدة... أخوك بن علية حاجي تفريغ كشف الدوام.rar

جرب على الهوية رقم 111 إليك التعديل:mailk.zip

تم التعديل على المعادلة حسب المطلوب وحسب ما فهمت مع تساؤل... أرجو أن تفي الغرض المطلوب... مرفق الملف new protofolio.rar

السلام عليكم ةرحمة الله وبركاته اخوتي الكرام اليوم مع اجمل برنامج عندما طرح عليك أخ زياد عبد الجليل في الحصة الماضية عن كيفية ادراج صورة قيف في خلية وتكون متحركة ولكن انا عكست تفكيرو و أردتها عن طريق التلفاز و كأنك تشاهد مسرحية لطيفة و في نفس الوقت تتحرك لذا أرجو منا الجميع ان ينال هذا اعجابكم والى الملتقى القادم انشاء الله أستودعكم الله و قريبا سأعود لأنه لدي مشروع مدته 06 أشهر هذه آخر ملف سأرفقه اليكم أخوكم في الله المبرمج : مناد سفيان الجزائر ************************************************************************************ مــــواضيعـــي المتواضعــــة فــــــي المــــنتدي ) ************************************************************************************ تحميل المرفق : http://www.mediafire.com/file/zeu67z9pdha1bz2/برنامج+مشاهدة+مسرحية+على+اكسل.rar سبحان الله و بحمده .. سبحان الله العظيم @كل الحقوق محفوظة 2017@

السلام عليكم ورحمة الله الخلل في عدم تنفيذ الكود بصورة صحيحة يكمن في الجزئية من الكود: Application.Max(Feuil1.Range("G:G")) ولأن اسم شيت "شيت الرابع" في VBA هو "ورقة3" وليس "Feuil1" فيجب تصحيح هذه الجزئية بالجزئية : Application.Max(ورقة3.Range("G:G")) وقد تم التصحيح في الملف المرفق مع التعديل في إعدادات الصفحة PageSetup... بن علية حاجي 2017شيت مدرستى - الصف الرابع.rar

Sub insert_rows() 'هذه الجزئية تقوم بالإعلان بالمتغيرات المستعملة في الكود Dim i%, k% 'هذا الأمر خاص بتوقيف تحيين العمليات Application.ScreenUpdating = False ' هذه الجزئية من الكود تقوم بحذف كل الصفوف التي تكون فيها_ 'خلايا العمود الأول فارغة بداية من آخر خلية في العمود إلى غاية الصف الأول '------------------------------------ i = Cells(Rows.Count, 1).End(3).Row Do Until i = 1 If Range("a" & i) = "" Then Rows(i).Delete End If i = i - 1 Loop '------------------------------------ ' هذه الجزئية من الكود تقوم بإدراج صف بين صفي كل خلية من العمود الأول والخلية_ 'التي قبلها إذا كانت قيمهما مختلفة بداية من آخر خلية في العمود إلى غاية الصف الثاني '------------------------------------ k = Cells(Rows.Count, 1).End(3).Row Do Until k = 2 If Range("a" & k) <> Range("a" & k - 1) Then Rows(k).Insert End If k = k - 1 Loop '------------------------------------ 'هذا الأمر خاص بمباشرة تحيين العمليات Application.ScreenUpdating = True End Sub والصبر جميل

السلام عليكم ورحمة الله بالنسبة لشرح الكود الخاص بالطباعة (الكود بسيط والشرح وضعته داخل الكود): Sub Print_All() 'هذا الأمر يقوم بتبديل قيم المتغير المستعمل في الكود من القيمة 1 إلى أكبر قيمة في العمود السابع في الورقة1 المسماة "شيت الخامس" حيث أن هذه القيمة تمثل العدد الإجمالي للشهادات... والتبديل يكون بالخطوة 3 باعتبار أن الصفحة الواحدة تحوي 3 شهادات ومعناه أن قيم المتغير تكون بالتسلسل : 1، 4، 7، 10، 13 وهكذا For I = 1 To Application.Max(Feuil1.Range("G:G")) Step 3 'هذا الأمر يقوم بوضع قيمة المتغير في الخلية 'F19 وهي الخلية المرتبطة بالقائمة المنسدلة Cells(19, "F") = I أمر الطباعة للصفحة من 3 شهادات ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 'أمر تبديل قيمة المتغير إلى القيمة الموالية بالخطوة 3 Next 'أمر إعادة عرض الشهادات الثلاثة الأولى Cells(19, "F") = 1 End Sub أرجو أني وفقت في الشرح... أخوك بن علية

السلام عليكم ورحمة الله أشكر أخي الكريم صـدّيـق شكرا جزيلا على الفيديو، كنت أنوي تحضير ملف فيديو مماثل وقد أراحني أراحه الله في الدنيا والآخرة وجازاه الله عني خيرا... وأضيف معادلة أخرى لوضعها عند إنشاء النطاق المسمى Classes حتى تكون القائمة مطاطية (القائمة تتمدد حسب العناصر -الفصول- المضافة) فبدلا من إنشاء التسمية بالمعادلة =الأسماء!$I$3:$I$15 نعرفها بالمعادلة : =OFFSET(الأسماء!$I$3;;;COUNTA(الأسماء!$I:$I)) ملاحظة: إذا كانت القائمة المنسدلة الخاصة بالكمبوبوكس هي لتواريخ نضيف الكود التالي لكود الكمبوبوكس حتى نرغم الكمبوبوكس لإظهار عناصره (بعد اختيار العنصر) بتنسيق التاريخ (المختار في كوده): Private Sub ComboBox1_Change() ComboBox1.Value = Format(ComboBox1.Value, "yyyy/mm/dd") End Sub حيث ComboBox1 هو اسم الكمبوبوكس الذي تم إنشاؤه... أرجو أن تستفيد بهذه المعلومات... وأكرر شكري لأخي صـدّيـق... بن علية

فديو أكثر من رائع ..... وشرح وافى جداً ....... جزاك الله خيراً أستاذنا الفاضل ...... وزادك علماً ومعرفه..... وجعله الله عز وجل فى ميزان حسناتك .... اللهم آمين السلام عليكم ورحمة الله وبركاته..... الشيت المرفق به زر لطباعة كل الشهادات دفعة واحدة .... من روائع الأستاذ بن عليه حاجى ..... لو أمكن شرح الكود المستخدم للطباعه 2017 شيت مدرستى _الصف الخامس.rar

السلام عليكم ورحمة الله أخي الكريم، المشكل الذي ذكرته ليس في الأوفيس وإنما في ملف Registry الخاص بالويندوز... وإن شاء الله حل هذه المشكلة يكون بتنفيذ الأداة في الملف المرفق وهي تقوم بتصحيح الخلل في ملف Registry تلقائيا والمتعلق بخصائص HTM/HTML... أرجو أن تفيدك هذه الأداة... أخوك بن علية html_association_fix.zip