تحويل عرض السعر الى فاتورة

[Minaemil]

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

[د.كاف يار]

ارفق مثال لكي يتم التعديل عليه

 

[اكرم العريقي]

سوي استعلام الحاق من جدول عرض السعر الى جدول الفاتورة بشرط رقم عرض السعر

بالتوفيق

wayprograms.blogspot.com

[Minaemil]

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

[د.كاف يار]

قد تستفيد من هذا الكود

Dim db As Database
Dim rs As DAO.Recordset
    
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM [table name] where [Order number]='"+ [TextForOrder number] +"'")
    
    If Not rs.BOF And Not rs.EOF Then
        rs.MoveFirst                
        While (Not rs.EOF)
			'احضار البيانات
         [text1]=rs.Fields(0)   ' or rs.Fields("Column name")
         [text2]=rs.Fields(1)
         [text3]=rs.Fields(2)
         [text4]=rs.Fields(3)
			

            rs.MoveNext
        Wend
    End If
    rs.Close
    Set rs = Nothing

 

تم تعديل يونيو 13, 2021 بواسطه د.كاف يار