اضافة الى الفرعى ومنع التكرار

[الحلبي]

اخوانى /   السلام عليكم

بالمرفق مثال

اريد عن اختيار صنف من مربع التحرير السرد ان يضاف الى الفرعى علما بان مربع التحرير والسرد مصدره جدول t1

واذا كان الصنف موجود بالفرعى ومكرر تظهر رسالة "بان الصنف مكرر" علما بان مصدر الفرعى هو جدول price

حاولت كثيرا ويظهر ان الدماع خلاص بها اكسده 

جزاكم الله كل خير

مكرر.rar

[محمد أبوعبدالله]

وعليكم السلام ورحمة الله وبركاته

تفضل اخي الكريم

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

تحياتي

[Eng.Qassim]

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

تحياتي

عفارم عليك استاذ محمد أبو عبدالله.عمل جميل

لكني اتساءل مالفائدة من هذا العمل؟ فاذا كان القصد هو اختيار الاصناف من مربع التحرير فكيف سنعمل قائمة جديدة ؟

[الحلبي]

استاذنا ومعلمنا وموجهنا / @محمد أبوعبدالله

6 ساعات مضت, محمد أبوعبدالله said:

تفضل اخي الكريم

تسلم وفضلك الله على العالمين

شرفتنى بهذه الاجاية العبقرية فكم استفيد منك ـ رحم الله والديك وجزاك الله كل خير

اشكرك من صميم قلبى على المساعدة

نعم هو المطلوب 

كل التحية والتقدير لحضرتك

[kanory]

9 ساعات مضت, Eng.Qassim said:

عفارم عليك استاذ محمد أبو عبدالله.عمل جميل

لكني اتساءل مالفائدة من هذا العمل؟ فاذا كان القصد هو اختيار الاصناف من مربع التحرير فكيف سنعمل قائمة جديدة ؟

اكيد في برنامجه الاساسي جدول يتم تصدير وحفظ كل فاتورة بعد الانتهاء منها وتصفير النموذج استعدادا لفاتورة جديدة ....