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

السلام عليكم ورحمة الله وبركاته مرحبا بكم اعزائي و ضيوفي الكرام في هذا المنتدى العظيم والله صراحة قبل مأبدء أود من الأعضاء التفاعل مع صفحة برمجة الويب حتى نتمكن من الوصول الى هدفنا ورغم أن منتدى أوفيسينا هو منتدى لتبادل الأفكار و الآراء وليس للقراءة و الخروج فهذا أمر طبيعي لدى بعض الأشخاص ولكن نحن أصلا نريد التفاعل لأن البرمجة مهما كانت نوعينها فهي الملاذ الأخير في مجتمعاتنا لانها مطلوبة كثيرا فقط هذا لتحفيزكم على المبادرة حتى نكون أهلا لهذا المنتدى العظيم وشكرا. اليوم سوف ندخل في صلب الموضوع هناك قوالب جميلة جدا من القولب للشركات وقوالب الموضة وقوالب السيارات و قوالب السياحة و الكثير من القوالب مع العلم سأرفق لكم الرابط هناك من يعرف هذا الرابط وهناك من لا يرفه واذا كان هذا الشرح مكرر في منتدى أوفيسينا فأنا أعتذر منكم وشكرا أتمنى أن تستمع بتحميل القوالب والى درس قادم انشاء الله. أخوكم في الله مناد سفيان الجزائر http://www.seoera.net/free-website-templates

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

اھلا بك من جديد ... نحن لا نتجاهل طلبات اي اعضاء ... لكن كلنا يعمل الردود حسب وقته يعني لا يحتاج نحن نرد على الموضوع لانك وصلت للمطلوب صحيح ؟ وما رأيك عن وقتنا ؟ سامحك الله اتفضل انا استخدمت هذه الاكواد لمطلبك هذا الكود هو بيعطيك مطلبك Private Sub Form_Current() If Me.Recordset.RecordCount = 0 Then Me.الاجمالي.DefaultValue = Nz(Form_student.Total, 0) Else Me.الاجمالي.DefaultValue = Form_student.Total - Nz(DSum("[دفع]", "Money", "[رقم الطالب]=" & Form_student.المعرف), 0) End If End Sub واستخدمت هذا الكود لبعد تحديث لحقل الدفع لكي يخزن السجل و يعطيك دفيلوت فاليو لسجل جديد Private Sub دفع_AfterUpdate() DoCmd.RunCommand acCmdSaveRecord Call Form_Current End Sub واستخدمت هذا اذا حذفت سجل ... Private Sub Form_AfterDelConfirm(Status As Integer) Call Form_Current End Sub اتفضل مع القاعدة student_school1.rar

جرب هذا الماكرو Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 3 Then With Application .EnableEvents = True End With Exit Sub End If Dim lr% Application.EnableEvents = False lr = Application.Max(Range("a:a")) If Target.Row > lr Or Target.Cells.Count > 1 Then With Application .EnableEvents = True End With Exit Sub End If If Target.Value = "اداري" Then Target.Offset(0, 1).Select If Target.Value = "معلم" Then Target.Offset(0, 3).Select With Application .EnableEvents = True End With End Sub

السلام عليكم ورحمة الله هذا الخلل لأن تنسيق الخلية هو "تنسيق نص" قم بتغيير هذا التنسيق ثم أعد تأكيد الارتباطات بن علية حاجي

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

السلام عليكم ورحمة الله تعالى وبركاته اتفضل اخى الكريم اتمنى على الله تعالى ان تكون هذه هى الاجابة التى تريد الوصول اليها ان شاء الله 6عدد مرات تكرار الاسم.rar

لیس ھناک ای خطأ

آمين.. في انتظار وأنا كذلك.. بارك الله لك في عمرك وعملك وأهلك وولد ومالك.. آمين

اتفضل تم الحل المشكلة في يمين اسمي بها رقم صفر شوف اي جوا هو اصح اعمل علامة صح امامه salloum.rar

السلام عليكم لا يمكن ان تحذف او تعدل على النماذج والتقارير والوحدات النمطيه في قاعدة بيانات بالامتداد mde ------ accde بالتوفيق

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

السلام عليكم تفضل أرجو أن يساعدك هذا CalcEmployEge.rar

نقل البيانات من الرئيسية الى ورقتين بشرطين مختلفين مع ادراج فواصل الصفحات وترك 4 صفوف فارغة للتذييل- والترتيب.xlsb.rar

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

يعني وصلت الى النتيجة المطلوبة اذا نعم اعمل علامة صح امام الجواب الصحيح تحياتي

In G3 =IF(OR(ISERROR(MATCH($C3,$I$5:$I$15,0)*MATCH($D3,$J$5:$J$15,0)*SUMPRODUCT(--($K$5:$O$5=$F3)*1)*1*--(DATEDIF(E3,TODAY(),"d")>365)),DATEDIF(E3,TODAY(),"d")<365),"علاوة","ترفيع") Drag down

السلام عليكم ورحمة الله تعالى وبركاته بناء على طلب احد الاخوة الكرام مرفق قاعدة بيانات تحتى على طريقة لعمل الترقيم التلقائى المتجدد تلقائيا فى فى مطلع كل عام وكان طلب الاخ الكريم كالأتى يبدأ الترقيم حسب العام الحالى على هذا الشكل 017 ثم يبدأ الترقيم بهذا الشكل 001 ولا يزيد الترقيم عن 999 فيكون الناتج النهائى يبدأ بالشكل 017001 وحتى ينتهى بالشكل 017999 ولا يقبل اى اضافة بعد ان يصل الى هذا الرقم 017999 -- وطبعا فى العام 2018 يبدأ مرة أخرى من الرقم 1 طبعا مع اضافة العام فيكون 018001 تلقائيا وايضا ينتهى حتى 018999 ولا يقبل اى اضافة بعد ان يصل الى هذا الرقم 018999 وهذه افكارى قد يكون هناك طريق اقصر او اكواد مختزله عن تلك التى استخدمها هنا ولكن هذا ما توصلت اليه ترقيم تلقائى خاص.rar

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

السلام عليكم الاخ الكريم / ابو اشرف بارك الله فيك وجزاك الله خيرا علي كلماتك الطيبة ... وفقكم الله لما يحبه ويرضاه والي ما فيه خيركم شاهد المرفق تقبل خالص تحياتي مبيعات الاحرف11.rar

السلام عليكم حمل التطبيق من الرابط التالى https://up.top4top.net/downloadf-670nod011-rar.html تم استخلاص كل الأفكار السابقة من هذا المنتدى تحياتى للجميع

السلام عليكم ألق نظرة على الملف المرفق لعل فيه ما تريد... بن علية إدراج رموز في قائمة منسدلة.rar

اخى الكريم المرفق هو حل بمعادلة بدون كود لو كان يفى بالمطلوب تقدر تستخدمه وان لم يفى بالمطلوب فبرجاء تحديد المطلوب بدقة اكبر Sheft.rar

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

عدنا .. المهم في موضوعنا هذا هو تبسيط فكرة برامج البيع والشراء فمرتجع البيع هو عبارة عن شراء ولكن بسعر البيع ومرتجع الشراء هو بيع ولكن بسعر الشراء 1- في جدول رأس الفاتورة سوف يتم ادراج العملاء ( مورد/زبون ) وبمجرد اختيار العميل سيتم تحديث حقل نوع العملية فإن كان مورد ستظهر العملية : شراء أو مرتجع شراء وان كان زبون ستظهر العملية : بيع او مرتجع بيع وعلى اساس العميل ونوعه سيتم ادراج السعر في التفاصيل بمجرد اختيار الصنف فان كان مورد سيظهر سعر الشراء والا ظهر سعر البيع 2- المدفوعات : عند اختيار نقدي في رأس الفاتورة ستظهر حقول الدفع والا ستكون غير ظاهرة بهذه الخطوات نكون عملنا هيكل البرنامج بنسبة 80% آمل ان تجدوا الفائدة والمتعة

تم تعديل الكود .. لاحظ الفرق في الصف الاول المظلل بالاصفر درجة القرار (5 درجات ).rar