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

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

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

إضافة اصناف.accdbFetching info...

[ابوخليل]

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

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

  في 2‏/9‏/2023 at 13:50, ابوخليل said:

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

Expand  

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

[ابوخليل]

اي حل ؟

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

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

  في 2‏/9‏/2023 at 15:53, ابوخليل said:

اي حل ؟

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

Expand  

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

[ابوخليل]

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

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

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

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

  في 2‏/9‏/2023 at 16:14, ابوخليل said:

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

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

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

Expand  

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

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

[شايب]

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

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

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

الملف مرفق

اخونا شايب

 

إضافة اصناف.accdbFetching info...

[شايب]

  في 2‏/9‏/2023 at 16:50, شايب said:

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

Expand  

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