Shivan Kurdi

انا قلت لک مسبقا افتح استعلام اللی مصدر النموذج وشوف انا غيرت حقل الرصيد ... شوف كود الرصيد انا غيرت شوي

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

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

اتفضل القي نظرتا الى استعلام حقل الرصيد 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