نقل بيانات

[mohammed3237]

السلام عليكم أساتذتي الأعزاء، لدي سؤال، وسأكون ممتنًا لو تفضلتم بإرشادي.  لدي نموذج اسمه Sale وفيه نموذج فرعي اسمه Sale_Reg وفوق نموذج speed search يفتح نموذج آخر حيث يمكنك البحث عن المنتجات.  أريد إضافة كل item قمت بالنقر عليه مرتين في السطر الأخير من نموذج Sale بعد البحث.

Sale.rar

[Foksh]

منذ ساعه, mohammed3237 said:

أريد إضافة كل item قمت بالنقر عليه مرتين في السطر الأخير من نموذج Sale بعد البحث

هل هذا طلبك ؟؟

1234.accdb

 

لا تنسى ، اذا انتهت المشكلة ولله الحمد ، فقط اختر الإجابة كأفضل إجابة 

[عمر ضاحى]

^_^ سبقتني 

لكن احب ان اضيف مشاركه مع اخي  @Foksh

 

تفضل هل هذا ما تريد 

 

 

1234.rar

ولتعم الفائدة وتضويح ما تم 
تم استخدام هذا الكود 
 

Sub GetInfo1()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("Sale_Reg", dbOpenDynaset)
With rst
    .AddNew
    ![Sale_code] = DLookup("code", "main_itemn", "code=" & "Sale_code")
    ![Sale_Number] = 1
    ![Sale_invoice] = Forms![Sale]![Invoice_Number]
    ![SSale_Price] = DLookup("Slae_price", "main_itemn", "code=" & "Sale_code")
    ![Sale_Date] = DLookup("Reg_Date", "main_itemn", "code=" & "Sale_code")
    ![Sale_Item_Name] = DLookup("item", "main_itemn", "code=" & "Sale_code")
    ![frosh_date] = Date
    ![scompany_name] = DLookup("company_name", "qry1", "code=" & "Sale_code")
    .Update
    .Close
End With
Set rst = Nothing
db.Close
Set db = Nothing
End Sub

 

مع ان هناك حلول اخري لكن وجدت الاسهل والاسرع للحلول دون تغير (او فرض راي) على المبرمج 

[mohammed3237]

أشكركم جزيل الشكر على جهودكم، وأتمنى أن تكون ناجحة 

[Foksh]

2 ساعات مضت, عمر ضاحى said:

سبقتني

منكم نتعلم استاذي الكبير ،، 😊

[شايب]

11 ساعات مضت, عمر ضاحى said:

    ![Sale_code] = DLookup("code", "main_itemn", "code=" & "Sale_code")
    ![SSale_Price] = DLookup("Slae_price", "main_itemn", "code=" & "Sale_code")
    ![Sale_Date] = DLookup("Reg_Date", "main_itemn", "code=" & "Sale_code")
    ![Sale_Item_Name] = DLookup("item", "main_itemn", "code=" & "Sale_code")

 

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

 

[عمر ضاحى]

2 ساعات مضت, شايب said:

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

 

انا عملتها على عجل (لانى باكون فى الشغل وبيطلب منى شغل تاني)
لكنها فكره جيده لجلب البيانات مره واحده