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

انظر المرفق test2022.xlsx

السلام عليكم 🙂 دائما في عمل اي برنامج ، يجب ان تفكر في اسوء الحالات: البرنامج به عشرات الالآف من السجلات ، وعلى شبكة ، وعندك الكثير من المستخدمين 🙂 هناك طريقتين لحل سؤالك: 1. الطريقة المُكلفة ، لأنها يجب ان ترجع للجدول ، وتأخذ القيم منه ، ثم تقوم بعملية الجمع ، بإستعمال DSum ، ومع ان الكود سهل ، ولكني دائما اتفاداه ، 2. وبما ان النموذج (النموذج الفرعي في حالتنا) ، يقوم قد اخذ البيانات من الجدول ، فنستطيع عمل الجمع من واقع بيانات النموذج: أ. عن طريق الامر Me.RecordsetClone ، ونعمل امر دوران لجمع قيم حقل "السعر" ، ب. عن طريق الاستفادة من حقل الجمع t1 في ذيل النموذج الفرعي (بإستعمال الامر Sum) ، وهو كما قمت انت بعمله: صحيح ان حقل الجمع في النموذج الفرعي t1 يقوم بجمع قيم الحقل "السعر" تلقائيا ، ولكنه يحتاج الى وقت لكي يقوم بهذه العملية كل مرة ، فالحيلة هي ان ننتظر الى يتم تعبئة الحقل بالمجموع الجديد ، ثم نعطي هذه القيمة الى الحقل "اجمالي الفاتورة" في النموذج الرئيسي ، وبما انه لديك عمليتين ، اضافة وحذف ، فاليك الكود عند اضافة سجل (بما اننا نستخدم نموذج اضافة مستقل ، فيجب ان ننادي حقل النموذج الفرعي t1 عن طريق نموذجه الرئيسي ثم الفرعي) : Private Sub cmd_Add_Record_Click() 'Save the Record If Me.Dirty Then Me.Dirty = False 'Requery the SubForm to show the new Record Forms!الفاتورة!الاصناف.Requery 'wait until the sum shows in the SubForm Do Until Len(Forms!الفاتورة!الاصناف!t1 & "") <> 0 DoEvents Loop 'transfer the value to the Main Form field Forms!الفاتورة![اجمالي الفاتورة] = Nz(Forms!الفاتورة!الاصناف!t1, 0) 'close the Add Form DoCmd.Close acForm, Me.Name, acSaveNo End Sub . وهذا الكود عند حذف سجل من النموذج الفرعي مباشرة : Private Sub cmd_Delete_Record_Click() 'Delete the Record DoCmd.RunCommand acCmdDeleteRecord 'Requery the Sum Field Me.t1.Requery 'wait until the sum shows in the SubForm Do Until Len(Me.t1 & "") <> 0 DoEvents Loop 'transfer the value to the Main Form field Me.Parent![اجمالي الفاتورة] = Nz(Me.t1, 0) End Sub جعفر 1534.Update_MainForm_with_SubForm_Total.accdb.zip

بعد اذن الأستاذ حسين عدل هذا السطر If format(x,"dd")= 14 then الى If format(x,"dd")>= 14 then

مشاركة مع الاساتذة الكبار بعض الاضافات البسيطة على قدي تحياتي قاعدة(3).accdb

السلام عليكم ورحمة الله وبركاته تحية طيبة وبعد اهدى هذا الشيت الى منتدى اوفيسنا واساتذته الذين تعلمنا على ايديهم واهديه الى مهندس المنتدى مهندس طارق محمود الذى لم يبخل على فى تقديم الحلول والمساعدات ، وحقيقة وجودى فى منتدى اوفيسنا يعد تكريما لى وشرف الشيت سهل الاستخدام ولا يحتاج الى شرح يوجد ايقونة باسم الصور اذا حبيت تضيف صورة للطالب وبجوار زر الصور زر اخر لمعاينة الصورة ان حبيت تعمل معاينة للصور 1795607452_.xlsm

السلام عليكم 🙂 الظاهر هذا موسم الترقيات ، فرجاء تهنئوا معي اخواي @ابو البشر و @kkhalifa1960 على ترقيتهم لرتبة خبير 🙂 لازلنا نبحث لنزيد رصيد المنتدى من الخبراء 🙂 جعفر

هذا يعني في كل الاحوال يجب ان تكون قيمة التيكست بوكس 2 =0 نرجع الى نقطتنا الاولى وهو انه لا داعي لعملية الجمع ! لا يوجد اي فائدة من التيكست بوكس2 ، فيما تستخدمه؟ اعذرني حاولت ان افهم ما المغزى من ذلك ربما احد الاعضاء يفهمك تحياتي

نبارك للزملاء حصولهم على رتبة "خبير" ودعواتي لهم بالموفقية

الف الف مبروك التكريم

الف مبروك للاخوة @ابو البشر و @kkhalifa1960 ومزيد من الابداع والتقدم لخدمة منتدانا الرائع بصراحة استاذ جعفر @jjafferr انا عيني على الاخ @Ahmed.IQ فهو شخص مبدع

حل عبقرى من خبير له كل التقدير

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

محاولة عن طريق أداة أداة ocx المرفقة و التي يجب تسجيلها الشرح الموجود أسفله مرفق معها مثال للمطلوب و ما عليك إلا تصميم الحقول و تنسيقها مع الجدول، و يمكنك التعديل على حجم الخلايا حسب رغبتك و ذلك بوضع التقرير في وضع التصميم ثم خصائص كما هو موضح في الصور المرفقة: 1 أضغط على ... 2 درجة ميلان النص مثلا 270 درجة تعطي النص عمودي و 0 درجة يعطي النص عادي 3 اسم الخلية شرح استعمال الأداة منقول افتح المجلد المضغوط واستخرج RotateLabelVer2.ocx إلى مجلد مكتبة المكتب ذات الصلة مثل 😄 \ Program Files \ Microsoft Office \ OFFICE11. الآن افتح التقرير في طريقة عرض التصميم. اذهب إلى أدوات >> ActiveX Controls وانقر على زر التسجيل. تظهر نافذة حوار ملف Windows قياسية. استعرض للوصول إلى أي مجلد قمت بتنزيله ملف RotateLabel.ocx على سبيل المثال 😄 \ Program Files \ Microsoft Office \ OFFICE11. حدد الملف ثم انقر فوق الزر فتح. أغلق مربع قائمة عناصر تحكم ActiveX. انتقل الآن إلى مربع الأدوات العادي وانقر على زر المزيد من عناصر التحكم. ابحث عن RotateLabel وانقر فوقه ، ثم ضعه في تقريرك. قم بتعيين مصدر التحكم ثم العب باستخدام إعدادات HAlignment و VAlignment و Escapement ضمن علامة التبويب أخرى في مربع خصائص عناصر التحكم. RotateLabelocx.rar Database12.rar

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

حسين مامون جزاك الله خير الجزاء في الدنيا والاخره

بارك الله فيكم اخواني على حسن الظن اسأل الله تعالى ان يعيننا على تحمل هذه المسؤولية الكبيرة

ربما قرعة(3).xlsm

الاعزاء @ابو البشر و @kkhalifa1960 يسعدني ان اكون اول المهنئين الف الف مبروك على الترقية وفقكم الله واعانكم على قضاء حوائج اخوانكم في هذا الصرح الكبير. تحياتي لكم وبالتوفيق

وعليكم السلام ورحمة الله وبركاته من ملف الاكسل اتبع الخطوات الاتيه File ___ advanced ازل علامه الصح من Use system separators كما بالصورة الاتيه ثم استبدل العلامه التى تريدها من الصورة الاتيه

وعليكم السلام ورحمة الله وبركاته اطلع على هذا الرابط لعله يفيدك

بالعكس ..البركة فيك والله ...من ليس له معلم ...لايتعلم انت معلم.... اضافة لاساتذتنا الكبار في المنتدى

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

تفضل 🙂 الاتصال بأكثر من قاعدة.rar

شكراً جزيلاً لجهود حضراتكم تم الحل =IF(AND($A2="Titanic Group",$B2="Safari Fee",$L2=1),SUMIFS($E:$E,$B:$B,"Safari Fee",$I:$I,$I2)/$S$1,IF($A2="Guide House",SUMIFS($E:$E,$A:$A,"Guide House",$I:$I,$I2)/$S$1,IF(AND($A2="Tasty Louxe Company",$L2=1),SUMIFS($E:$E,$A:$A,"Tasty Louxe Company",$I:$I,$I2)/$S$1+((SUMIFS($E:$E,$A:$A,"Tasty Louxe Company",$I:$I,$I2)/$S$1)*14%),IF(AND($A2="El Mina Restaurant",$L2=1),SUMIFS($E:$E,$A:$A,"Star Restaurant",$I:$I,$I2)/$S$1+((SUMIFS($E:$E,$A:$A,"Star Restaurant",$I:$I,$I2)/$S$1)*11%),IF(AND(L2=1,C2="USD"),K2+J2,((K2+J2)/$S$1))))))

لتغيير القيمة الافتراضية لحقل بناء على قيمة حقل في جدول اخر في اي نموذج لديك ضع زر امر ثم في حدث عند النقر ضع الامر Dim x As Variant x = Nz(DMax("[rate_profit]", "government"), 0) CurrentDb.TableDefs("government_details").Fields("rang").DefaultValue = x

وعليكم السلام 🙂 أسهل حل هو أن تضبط القيمة الافتراضية للحقل في النموذج من نافذة الخصائص .. وتستخدم أحد دوال الدومين (DLast مثلا) .. أو تشير للحقل في النموذج هكذا Forms!FormName!FieldName

جرب هذا الماكرو فيه حلقة تكرارية تفحص التاريخ في العمود F ويدرج COMMANT قبل عشرة ايام Sub test() 'On Error Resume Next Dim lr Dim x Dim dt: dt = Date Dim dt2: dt2 = Format(DateAdd("d", -10, dt), "dd-mm-yyyy") With Sheets("نشاط") lr = .Cells(Rows.Count, "f").End(xlUp).Row .Range("f3:f" & lr).ClearComments For x = 3 To lr If Not IsDate(.Cells(x, "f")) = True Then GoTo 1 If CDate(Cells(x, "f")) = dt2 Then .Cells(x, "f").AddComment .Cells(x, "f").Comment.Visible = True .Cells(x, "f").Comment.Text Text:=":" & Chr(10) & "عشرة ايام متبقية " End If 1: Next x End With End Sub

رغم ان الصورة غير واضحة عندي على العموم ...افتح الجدول Government ثم اذهب الى TABLE من شريط القائمة اعلى الصفحة ثم اضغط على After Insert لتفتح لك صفحة الماكرو ..وجرب الاكواد كما في الصورة

أخي مرفق برنامج جاهز مجمعه من منتدانا أفيسينا وأنا بستخدمه في جميع برامجي أدرسه جيداً واستخدمه كما تشاء ووافني بالنتيجة MahdiPermissions.rar

وعليكم السلام ورحمة الله وبركاته أخي هاني 🙂 أنظر هنا :

لم افهم ماذا تريد بالضبط لذلك اقترحت ثلاثة حلول 1-ما هو موجود في الجدول الاول وليس في الثاني 2-ما هو موجود في الجدول الثاني وليس في الاول 3- المشترك بين الجدولين Compaire.xlsx