عبدالعليم اسماعيل قام بنشر سبتمبر 2, 2023 مشاركة قام بنشر سبتمبر 2, 2023 عند ادخال الاصناف يظهر معى هذا الخطاء إضافة اصناف.accdb رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر سبتمبر 2, 2023 مشاركة قام بنشر سبتمبر 2, 2023 الاستعلام يعمل ... عند كل نقرة يضيف البيانات رابط هذا التعليق شارك More sharing options...
عبدالعليم اسماعيل قام بنشر سبتمبر 2, 2023 الكاتب مشاركة قام بنشر سبتمبر 2, 2023 56 دقائق مضت, ابوخليل said: الاستعلام يعمل ... عند كل نقرة يضيف البيانات ما هو الحل بعد اذنك رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر سبتمبر 2, 2023 مشاركة قام بنشر سبتمبر 2, 2023 اي حل ؟ المثال اللي ارفقته الاستعلام فيه شغال رابط هذا التعليق شارك More sharing options...
عبدالعليم اسماعيل قام بنشر سبتمبر 2, 2023 الكاتب مشاركة قام بنشر سبتمبر 2, 2023 13 دقائق مضت, ابوخليل said: اي حل ؟ المثال اللي ارفقته الاستعلام فيه شغال الرساله دى بتظهر معى باستمرار رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر سبتمبر 2, 2023 مشاركة قام بنشر سبتمبر 2, 2023 تأكد من جدولك الذي يتم الإلحاق اليه افتح على التصميم وشوف اذا احد الحقول مفهرس وغير قابل للتكرار ... انا جربت الحقت البيانات اكثر من مرة يعني يقبل التكرار رابط هذا التعليق شارك More sharing options...
عبدالعليم اسماعيل قام بنشر سبتمبر 2, 2023 الكاتب مشاركة قام بنشر سبتمبر 2, 2023 26 دقائق مضت, ابوخليل said: تأكد من جدولك الذي يتم الإلحاق اليه افتح على التصميم وشوف اذا احد الحقول مفهرس وغير قابل للتكرار ... انا جربت الحقت البيانات اكثر من مرة يعني يقبل التكرار الصوره الاول بدون وضع القلم فى النموذج الفرعى تظهر الرساله عند وضع القلم فى النموذج الفرعى يتم ادراج البيانات رابط هذا التعليق شارك More sharing options...
شايب قام بنشر سبتمبر 2, 2023 مشاركة قام بنشر سبتمبر 2, 2023 مشاركة مع استاذنا @ابوخليل الحاق او اضافة البيانات بدون استعلام عن طريق مصدر السجلات Dim rs As Recordset Dim rst As Recordset Dim db As Database Dim a As Integer Dim fld As DAO.Field Set rs = CurrentDb.OpenRecordset("adafh_tl8a2yh") Set rst = CurrentDb.OpenRecordset("tbltexts") rs.MoveFirst For a = 0 To rs.RecordCount - 1 If rs!adafh_tl8a2yh = True Then rst.AddNew For Each fld In rs.Fields rst.Fields(fld.Name) = fld.Value rst!kod_alad5al_tblTexts = Me.كود_العميل Next fld rst.Update End If rs.MoveNext Next a rs.Close: rst.Close Set rs = Nothing: Set rst = Nothing Me.نموذج_فرعي_الفواتير.Requery الملف مرفق اخونا شايب إضافة اصناف.accdb 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة شايب قام بنشر سبتمبر 2, 2023 أفضل إجابة مشاركة قام بنشر سبتمبر 2, 2023 32 دقائق مضت, شايب said: الحاق او اضافة البيانات بدون استعلام عن طريق مصدر السجلات في الكود السابق السطر الثالث غير مطلوب ونسيت احذفة ولكن لا يسبب وجوده مشكلة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان