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

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

السلام عليكم بالإضافة إلى عمل أخي الكريم سليم أقدم عمل المطلوب بالمعادلات لكن بالاستعانة بأعمدة مساعدة (ملونة بالأخضر)... أرجو أن تفي الغرض المطلوب... بن علية حاجي فك التسلسل_2003.rar

اتمنى فهمتك صح جرب المرفق am.rar

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

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

هناك فرق كبير بين عنوان الموضوع و الطلب اتفضل تم استخدام هذا الكود لاحتساب العمر بالسنة Private Sub DATE_OF_BIRTH_AfterUpdate() Me.AGE.Value = DateDiff("yyyy", Me.DATE_OF_BIRTH, DATE) End Sub وللطلبية الثانية تم استخدام هذا Private Sub Command52_Click() DoCmd.OpenForm "airfare form", acNormal Forms![airfare form]![SR-No Leave].Value = Me.SR_No_Leave End Sub لكن هناك ملاحظة : هناك فراغات كتير في اسماء الحقول و النماذج ... انتبه لذلك لان هذه الفراغات راح تتعبك كثير test AMAV002.rar

شكرا لك وربنا يسعدك

اعمل زر واحد واکتب عنوانه اي كابشنه (تبديل الى اللغة العربية) واستخدم هذا الكود Private Sub Command54_Click() If Me.Command54.Caption = "تبديل الى اللغة العربية" Then Me.Txt.NumeralShapes = 2 Me.Command54.Caption = "تبديل الى اللغة الانكليزية" ElseIf Me.Command54.Caption = "تبديل الى اللغة الانكليزية" Then Me.Txt.NumeralShapes = 1 Me.Command54.Caption = "تبديل الى اللغة العربية" End If End Sub

تفضل انت كنت عاكس استخدام IDStudent مع ID Private Sub Form_Open(Cancel As Integer) 'CurrentDb.Execute "INSERT INTO tbl2 (ID,[In],zdate ) " & _ "Select (ID, [Sum], zdate) " & _ "From Qry" CurrentDb.Execute "INSERT INTO tbl2 ( idstudent, [In], zdate ) SELECT ID, [Sum], zdate FROM Qry" 'or 'DoCmd.SetWarnings False ' DoCmd.RunSQL ("INSERT INTO tbl2 ( idstudent, [In], zdate ) SELECT ID, [Sum], zdate FROM Qry") 'DoCmd.SetWarnings tru End Sub جعفر

هذه المعادلة =IFERROR(INDEX(A!$B$1:$B$100,MATCH(A1,A!$A$1:$A$100,0)),INDEX(B!$B$1:$B$100,MATCH(A1,B!$A$1:$A$100,0)))

تفضل جعفر 745.1.db1.mdb.zip

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

لو فرضنا ان الارقام عندك في الخلايا A1:A50 اكتب هذه المعادلة واسحب نزولاً =IF(N(A1)<=0,"",INT(A1/30))

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

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

مشاركة مع استاذي العزيز @Shivan Rekany جرب اخي كاسر Dim i As Integer Dim rs As Recordset Set rs = Me.Tabl_2.Form.RecordsetClone rs.MoveLast r = rs.RecordCount rs.MoveFirst For i = 1 To r If IsNull(rs!Tex) Or IsNull(rs!Tex1) Then MsgBox " íæÌÏ Þíã ÝÇÑÛÉ íÌÈ ÇÏÎÇáåÇ ... ÇÏÎá ÇáÞíã ÇáÝÇÑÛÉ ", vbCritical, " ÈÏæä ßãíÉ " Refresh Exit Sub End If rs.MoveNext Next rs.Close Set rs = Nothing DoCmd.GoToRecord , , acNext New .rar

اتفضل تم استخدام هذه الاكواد في نموذجك Private Sub a2_Click() Me.Txt = Me.Txt & Me.a2.Caption End Sub Private Sub a3_Click() Me.Txt = Me.Txt & Me.a3.Caption End Sub Private Sub a4_Click() Me.Txt = Me.Txt & Me.a4.Caption End Sub Private Sub a5_Click() Me.Txt = Me.Txt & Me.a5.Caption End Sub Private Sub a6_Click() Me.Txt = Me.Txt & Me.a6.Caption End Sub Private Sub a7_Click() Me.Txt = Me.Txt & Me.a7.Caption End Sub Private Sub a8_GotFocus() Me.Txt = Me.Txt & Me.a8.Caption End Sub Private Sub a9_Click() Me.Txt = Me.Txt & Me.a9.Caption End Sub Private Sub أمر23_Click() Me.Txt = Me.Txt & Me.أمر23.Caption End Sub Private Sub أمر24_Click() Me.Txt = Me.Txt & Me.أمر24.Caption End Sub Private Sub أمر25_Click() Me.Txt = "" End Sub Private Sub أمر26_Click() Me.Txt = Me.Txt & Me.أمر26.Caption End Sub لوحة ارقام وحروف.rar

اتفضل Private Sub أمر4_Click() Me.Tabl_2.SetFocus DoCmd.GoToRecord , , acFirst For I = 0 To Me.Tabl_2.Form.Recordset.RecordCount - 1 If Not (IsNull(Forms![frm]![Tabl_2]![id_1])) _ And (IsNull(Forms![frm]![Tabl_2]![tex1])) _ Or (Forms![frm]![Tabl_2]![tex1] = "") Then MsgBox "أدخل هذا الحقل !!!", 48, "تـنـبـيـه !" Forms![frm]![Tabl_2].SetFocus Forms![frm]![Tabl_2]![tex1].SetFocus Exit Sub End If DoCmd.GoToRecord , , acNext Next I End Sub Mic.rar

اتفضل اليك هذا الرابط

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

نعم هذا صحيح حسب القرار 377

تفضل 1599.rar

السلام عليكم ورحمة الله وبركاته ما شاء الله عليك اخي الغالي ابوخليل بعد اذنك اخي العالي في فاتورة البيع وضعت كود في حقل الكمية Private Sub quant_AfterUpdate() Me.ejmale = CLng(Nz([quant] * [Price]) * Nz(1 - [kasm]) * 100) / 100 If Me.quant > DLookup("[Rsnf]", "[Qryasnaf]", "[ID_Sanf]=[ID_Sanf1]") Then MsgBox "رصيد غير كافي" Else End If End Sub مثال للمشكلة التي ظهرت معي صنف "خلوي ايفون" رصيد الكمية الموجودة مثلاً = 10 اذا قمت بعملية بيع = 7 قطع فسيتم قبول الكمية بدون مشاكل اما اذا اردنا ان نقوم بتعديل الكمية الى 6 فسوف تظهر الرسالة لان الرصيد حالياً = ( 10 - 7 = 3 ) مع اننا لم نقوم بعملية جديدة ولكن هي هي نفس العملية ولكن تعديل القيمة فقط فكيف يمكننا تصحيح الكود او تصحيح العملية دمتم بكل خير تحياتي testPro14.rar

تفضل سيدي الكريم و أرجو ان يكون المطلوب المنصوري.rar

السلام عليكم الرابط لايعمل

السلام عليكم تم عمل المطلوب بالتنسيق الشرطي و التحقق من صحة برنامج الاجازات جديد.rar

عليكم السلام ورحمة الله وبركاتة شرفت الموضوع اخى إكسيلجي للأسف لا اعمل على اكسيل 12 ولكن فى مكتبتى نسخة بورتابل له قمت بالتجربة عليها واليك ما فعلت بالضبط وهو موثق بملف الفيديو المرفق فتحت ملفك المرسل ومن خلال الازار التى ادرجتها عوضا عن ايقونات تشغيل البرنامج التى لا تظهر مع اكسيل 12 ضغطت على زر كشف جديد بالكامل لبدأ البرنامج من جديد ثم قمت بتغذية الخزينة بالفئات وبدأت الصرف وكان يعمل بصورة طبيعية كما فى ملف الفيديو المرفق ارجو اعدة التجربة واخبارى بالنتيجة واليك تحليل ما حدث قد يكون البرنامج توقف لسبب ما نتيجة خطأ ما لم آخذه فى الحسبان وانت تعرف ان البرنامج يعمل من خلال احداث الورقة فبعد التوقف ومواصلة العمل قد تكون الاحداث معطلة ( Events ) فلم يستجيب البرنامج معك اعد التجربة واعلمنى بالنتيجة سيتم عمل نسخه اخرى بها ازرار تشغيل بدلا من الايقونات لتعمل على اكسيل 12 وشاهد المرفق Test.rar

منع الوصول الى محرر الاكواد شاهد المرفق No_VBA_Editor.rar