mohammed3237 قام بنشر نوفمبر 4, 2023 مشاركة قام بنشر نوفمبر 4, 2023 السلام عليكم أساتذتي الأعزاء، لدي سؤال، وسأكون ممتنًا لو تفضلتم بإرشادي. لدي نموذج اسمه Sale وفيه نموذج فرعي اسمه Sale_Reg وفوق نموذج speed search يفتح نموذج آخر حيث يمكنك البحث عن المنتجات. أريد إضافة كل item قمت بالنقر عليه مرتين في السطر الأخير من نموذج Sale بعد البحث. Sale.rar رابط هذا التعليق شارك More sharing options...
أفضل إجابة Foksh قام بنشر نوفمبر 4, 2023 أفضل إجابة مشاركة قام بنشر نوفمبر 4, 2023 منذ ساعه, mohammed3237 said: أريد إضافة كل item قمت بالنقر عليه مرتين في السطر الأخير من نموذج Sale بعد البحث هل هذا طلبك ؟؟ 1234.accdb لا تنسى ، اذا انتهت المشكلة ولله الحمد ، فقط اختر الإجابة كأفضل إجابة 2 رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر نوفمبر 4, 2023 مشاركة قام بنشر نوفمبر 4, 2023 ^_^ سبقتني لكن احب ان اضيف مشاركه مع اخي @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 مع ان هناك حلول اخري لكن وجدت الاسهل والاسرع للحلول دون تغير (او فرض راي) على المبرمج 2 1 رابط هذا التعليق شارك More sharing options...
mohammed3237 قام بنشر نوفمبر 4, 2023 الكاتب مشاركة قام بنشر نوفمبر 4, 2023 أشكركم جزيل الشكر على جهودكم، وأتمنى أن تكون ناجحة رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر نوفمبر 4, 2023 مشاركة قام بنشر نوفمبر 4, 2023 2 ساعات مضت, عمر ضاحى said: سبقتني منكم نتعلم استاذي الكبير ،، 😊 1 رابط هذا التعليق شارك More sharing options...
شايب قام بنشر نوفمبر 5, 2023 مشاركة قام بنشر نوفمبر 5, 2023 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 كمصفوفة لتحميل قيمة الحقول الاربعة في امر واحد ثم تقسيم المصفوفة على الحقول في النموذج وهذا الامر سيكون اسرع وخصوصا اذا كان البرنامج مستخدم على الشبكة 1 رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر نوفمبر 5, 2023 مشاركة قام بنشر نوفمبر 5, 2023 2 ساعات مضت, شايب said: ممكن استخدام DLookup كمصفوفة لتحميل قيمة الحقول الاربعة في امر واحد ثم تقسيم المصفوفة على الحقول في النموذج وهذا الامر سيكون اسرع وخصوصا اذا كان البرنامج مستخدم على الشبكة انا عملتها على عجل (لانى باكون فى الشغل وبيطلب منى شغل تاني) لكنها فكره جيده لجلب البيانات مره واحده 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.