خطأ في استعلام الحاق

[عبدالعليم اسماعيل]

عند ادخال الاصناف يظهر معى هذا الخطاء

إضافة اصناف.accdb

[ابوخليل]

الاستعلام يعمل ... عند كل نقرة يضيف البيانات

[عبدالعليم اسماعيل]

56 دقائق مضت, ابوخليل said:

الاستعلام يعمل ... عند كل نقرة يضيف البيانات

ما هو الحل بعد اذنك

[ابوخليل]

اي حل ؟

المثال اللي ارفقته الاستعلام فيه شغال

[عبدالعليم اسماعيل]

13 دقائق مضت, ابوخليل said:

اي حل ؟

المثال اللي ارفقته الاستعلام فيه شغال

الرساله دى بتظهر معى باستمرار

[ابوخليل]

تأكد من جدولك الذي يتم الإلحاق اليه

افتح على التصميم وشوف اذا احد الحقول مفهرس وغير قابل للتكرار

... انا جربت الحقت البيانات اكثر من مرة يعني يقبل التكرار

[عبدالعليم اسماعيل]

26 دقائق مضت, ابوخليل said:

تأكد من جدولك الذي يتم الإلحاق اليه

افتح على التصميم وشوف اذا احد الحقول مفهرس وغير قابل للتكرار

... انا جربت الحقت البيانات اكثر من مرة يعني يقبل التكرار

الصوره الاول بدون وضع القلم فى النموذج الفرعى تظهر الرساله

عند وضع القلم فى النموذج الفرعى يتم ادراج البيانات

[شايب]

مشاركة مع استاذنا @ابوخليل

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

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

[شايب]

32 دقائق مضت, شايب said:

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

في الكود السابق السطر الثالث غير مطلوب ونسيت احذفة ولكن لا يسبب وجوده مشكلة