Shivan Rekany

شكرا لكم جميعا ان شاء الله راح نستفيد من ملاحظاتكم

اتفضل القي نظرتا الى استعلام حقل الرصيد Database1 (1).rar

انا عملت المطلوب بطريقة اخر عن ما اخبرك استاذ @رمهان و @Khalf بواسطة هذا الكود ستحدد الحقول المراد جمعه في نموذج الفرعي Option Compare Database Public MyCountFelid As Integer Public Sub MyActiveCon() Dim Spl() As String Dim i As Integer If IsNull(Form_Frm.MyList) = True Then Form_Frm.MyList = Me.ActiveControl.Name MyCountFelid = 1 Else Spl = Split(Form_Frm.MyList, "-") For i = 0 To MyCountFelid - 1 If Spl(i) = Me.ActiveControl.Name Then Exit Sub Next i Form_Frm.MyList = Form_Frm.MyList & "-" & Me.ActiveControl.Name MyCountFelid = MyCountFelid + 1 End If Form_Frm.EdedAlhiqol = MyCountFelid End Sub Private Sub item1_DblClick(Cancel As Integer) Call MyActiveCon End Sub Private Sub item2_DblClick(Cancel As Integer) Call MyActiveCon End Sub Private Sub item3_DblClick(Cancel As Integer) Call MyActiveCon End Sub Private Sub item4_DblClick(Cancel As Integer) Call MyActiveCon End Sub Private Sub item5_DblClick(Cancel As Integer) Call MyActiveCon End Sub اولا سيتأكد الكود هل الاسم الحقل موجود من قبل ام لا اذا نعم لا يتكرر واذا لا سيضيفه الى مربع اسماء الحقول مراد جمعه وبواسطة هذا الكود سيعمل المطلوب اي جمع الحقول المطلوبمة من السجل الى السجل Option Compare Database Private Sub Command16_Click() Dim MYSum As Long Dim Spl() As String Dim i As Integer Spl = Split(Me.MyList, "-") For i = 0 To Me.EdedAlhiqol - 1 MYSum = MYSum + Nz(DSum("[" & Spl(i) & "]", "table1", "[id]>=" & Me.FromID & "and [id]<=" & Me.ToID), 0) Next i Me.MySubSum = MYSum Me.FromID = Null Me.ToID = Null Me.MyList = Null Me.EdedAlhiqol = Null End Sub وهذه صور توضيحي للعملية واليك القاعدة جمع عدد من الحقول من تسلسل الى تسلسل.accdb استخدمه حتى رجوع استاذ رمهان بشيء جديد 😊

الاکسل بيعمل جمع بواسطة اي دي السطور من رقم 1 الى اخره و مع السماء الحقول من a الى اخره لذلك حضرتك ايضا يقدر عمل ذلك لكن بنفس الطريقة تقدر تستخدم DSum وتعطيه شرط من اي دي فلان الى فلان هذا حسب ما فهمت من السؤال

هذا موجود بالفعل وليس هناك مشكلة وهذا موجود في مرفقك الاول

حسب ما فی صورک انا عملت اول مرة احمل القاعدة في مشاركتي الاولى او الثانية كلهم تم العلاج شوف الصورة للقاعدة في مشاركتي الاخيرة

اتفضل تقدر تتغير رقم سري من 123 الى حروف و الارقام حسب ما تريد 1.ACCDB

ما قصدک ممكن تعطيني خطوات العمل بالصورة ؟

شكرا استاذ @محمد طاهر على المداخلة شكرا مرة اخرى

السلام عليكم ورحمة الله وبركاته @ابو ياسين المشولي @محمد التميمي @qathi شكرا لمشاركتكم معنا حتى الان انا استخدم جدولين منفصلين وليس لدي مشكلة بعد لكن انا افكر ان جدول واحد نقدر ان نعمل استعلام بشكل احسن و اسهل خاصتا عند عمل استعلام الرصيد المواد المتبقية لكن راح ننتظر للآراء الاعضاء الكرام لمن لديه خبرة في ذلك واتمنى ان اجد كل من استاذ @ابوخليل و @jjafferr و @أ / محمد صالح و @رمهان و @أبو آدم و @أبو إبراهيم الغامدي و @صالح حمادي و @أبو عبدالله الحلوانى و @محمد سلامة و @Elsayed Bn Gemy و @محمد طاهر و كل من لديه نقطة واحدة عن مزايا او العيوب كلا من الطريقتين حسب ما صار معه في استخدام الطريقتين تقبلوا تحياتي

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

نعم

اتفضلوا فقط انا اضفت هذه السطور للفانكشن MsgBox IsFontInstalled Exit For Else IsFontInstalled = False MsgBox IsFontInstalled Exit For اليك ملف بعد اضافة Check If a Font Installed.accdb

اتفضل 2.accdb

اتفضل اليك القاعدة بعد تعديل برنامج العطاء للعقارات.rar

السلام عليكم ورحمة الله وبركاته انا نزلت المرفق لكن ما عرفت وين الخلل ونزلت الفيديو لم ارى سيئاً فيه

اتفضل 2.accdb

وما هو مزايا استخدام الجدولين ؟

اتفضل اليك هذا Private Sub Form_Current() If IsNull(Me.ply_id) = False Then Me.ply_nam.Locked = True Else Me.ply_nam.Locked = False If IsNull(Me.fr_id) = False Then Me.fr_nam.Locked = True Else Me.fr_nam.Locked = False End Sub db5_UP.accdb

تم رفع من جديد جربه

اليك هذا شو رأيك اذا تغير الاسم سيتغير الكود وبلعكس القي نظرتا اليه db5_UP.accdb

نعم اذا تتغير مصدر النموذج الى استعلام و تعمل حقل محسوب في الاستعلام القي نظرتا الى القاعدة New Microsoft Access Database.rar

اتفضل اليك هذا =Sum([idd])+Sum([nu]) New Microsoft Access Database.rar

اتفضل db3.accdb.zip

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