مشكلة عدم تكرار الاصناف كما بالرقم المحدد بعد التحديث

**qathi** · نوفمبر 16, 2019

أخواني واساتذتي الأفاضل .. أرجو المساعدة في التالي:

لدي كود استدعاء مديول في نموذج BarcodePrintGroupSub_F بعد التحديث حقل LabelCount

والمديول عملة نسخ الحقول من جدول BarcodeGroupItems_T الى جدول BarcodeItems_T مع تكرارها في الجدول الاخير على حسب الرقم الموضوع في LabelCount الموجود بالنموذج

Sub Create_Record_For_Every_Item2()
On Error Resume Next

Const RTableName As String = "BarcodeGroupItems_T"
Const ALLItemsTableName As String = "BarcodeItems_T"
Dim MyDB As DAO.Database
Dim R As DAO.Recordset
Dim SqlSt As String
Dim ItemCounter, RRecordCounter, count As Integer
Set MyDB = CurrentDb
Set R = MyDB.OpenRecordset(RTableName)
DoCmd.SetWarnings False
SqlSt = " DELETE " & ALLItemsTableName & ".* FROM " & ALLItemsTableName & " ; "
DoCmd.RunSQL (SqlSt)
For RRecordCounter = 1 To R.RecordCount
R.MoveFirst
R.Move RRecordCounter - 1
For ItemCounter = 1 To R.Fields("LabelCount")
SqlSt = "INSERT INTO " & ALLItemsTableName & " (BarCodeNumber,PriceS,ItemName,CodeCounter) VALUES ( " & R.Fields("BarcodeReader") & "," & R.Fields("PriceS") & ",""" & R.Fields("ItemName") & """," & ItemCounter & " );"
DoCmd.RunSQL (SqlSt)
Next ItemCounter
Next RRecordCounter
DoCmd.SetWarnings True
R.Close
MyDB.Close
End Sub

عند وضع رقم في السجل الاول فان الكود يعمل تماما ..

لكن المشكلة في السجلات التالية .. بعد أدخال رقم في الحقل LabelCount لا يقوم بتكرار السجلات في الجدول BarcodeItems_T بل يقوم بتكرارها على حسب القيمة السابقة قبل التعديل

كما أنه لا يقوم بمتابعة الترقيم من بعد اخر رقم لحقل CodeCounter الموجود بجدول BarcodeItems_T

مرفق الملف للتعديل

Br.rar