نقل بيانات

[mohammed3237]

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

Sale.rarFetching info...

[Foksh]

  في 4‏/11‏/2023 at 18:00, mohammed3237 said:

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

Expand  

هل هذا طلبك ؟؟

1234.accdbFetching info...

 

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

[عمر ضاحى]

^_^ سبقتني 

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

 

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

 

 

1234.rarFetching info...

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

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]

  في 4‏/11‏/2023 at 19:42, عمر ضاحى said:

سبقتني

Expand  

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

[شايب]

  في 4‏/11‏/2023 at 19:42, عمر ضاحى 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")

 

Expand  

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

 

[عمر ضاحى]

  في 5‏/11‏/2023 at 07:33, شايب said:

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

 

Expand  

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