الحلبي قام بنشر أغسطس 9, 2021 مشاركة قام بنشر أغسطس 9, 2021 اخوانى / السلام عليكم بالمرفق مثال اريد عن اختيار صنف من مربع التحرير السرد ان يضاف الى الفرعى علما بان مربع التحرير والسرد مصدره جدول t1 واذا كان الصنف موجود بالفرعى ومكرر تظهر رسالة "بان الصنف مكرر" علما بان مصدر الفرعى هو جدول price حاولت كثيرا ويظهر ان الدماع خلاص بها اكسده جزاكم الله كل خير مكرر.rar رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر أغسطس 10, 2021 مشاركة قام بنشر أغسطس 10, 2021 وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Private Sub Combo23_Click() If DLookup("[Id]", "[price]", "[Id] ='" & Me.Combo23.Column(0) & "'") > 0 Then MsgBox "العنصر مضاف من قبل" Else Dim db As DAO.Database Dim Rs As DAO.Recordset Set db = CurrentDb Set Rs = db.OpenRecordset("SELECT price.*FROM price;") Rs.AddNew Rs("Id") = Me.Combo23.Column(0) Rs("xname") = Me.Combo23.Column(1) Rs.Update Rs.Close Me.pricesub.Requery End If End Sub مكرر.rar تحياتي 3 رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر أغسطس 10, 2021 مشاركة قام بنشر أغسطس 10, 2021 2 hours ago, محمد أبوعبدالله said: وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Private Sub Combo23_Click() If DLookup("[Id]", "[price]", "[Id] ='" & Me.Combo23.Column(0) & "'") > 0 Then MsgBox "العنصر مضاف من قبل" Else Dim db As DAO.Database Dim Rs As DAO.Recordset Set db = CurrentDb Set Rs = db.OpenRecordset("SELECT price.*FROM price;") Rs.AddNew Rs("Id") = Me.Combo23.Column(0) Rs("xname") = Me.Combo23.Column(1) Rs.Update Rs.Close Me.pricesub.Requery End If End Sub مكرر.rar 24.94 kB · 3 downloads تحياتي عفارم عليك استاذ محمد أبو عبدالله.عمل جميل لكني اتساءل مالفائدة من هذا العمل؟ فاذا كان القصد هو اختيار الاصناف من مربع التحرير فكيف سنعمل قائمة جديدة ؟ رابط هذا التعليق شارك More sharing options...
الحلبي قام بنشر أغسطس 10, 2021 الكاتب مشاركة قام بنشر أغسطس 10, 2021 استاذنا ومعلمنا وموجهنا / @محمد أبوعبدالله 6 ساعات مضت, محمد أبوعبدالله said: تفضل اخي الكريم تسلم وفضلك الله على العالمين شرفتنى بهذه الاجاية العبقرية فكم استفيد منك ـ رحم الله والديك وجزاك الله كل خير اشكرك من صميم قلبى على المساعدة نعم هو المطلوب كل التحية والتقدير لحضرتك رابط هذا التعليق شارك More sharing options...
kanory قام بنشر أغسطس 10, 2021 مشاركة قام بنشر أغسطس 10, 2021 9 ساعات مضت, Eng.Qassim said: عفارم عليك استاذ محمد أبو عبدالله.عمل جميل لكني اتساءل مالفائدة من هذا العمل؟ فاذا كان القصد هو اختيار الاصناف من مربع التحرير فكيف سنعمل قائمة جديدة ؟ اكيد في برنامجه الاساسي جدول يتم تصدير وحفظ كل فاتورة بعد الانتهاء منها وتصفير النموذج استعدادا لفاتورة جديدة .... 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان