اذهب الي المحتوي
أوفيسنا

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


qathi
إذهب إلى أفضل إجابة Solved by qathi,

الردود الموصى بها

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

 

لدي كود استدعاء مديول في نموذج 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

رابط هذا التعليق
شارك

11 ساعات مضت, أبو عبدالله الحلوانى said:

جرب هذا ووافنا بالنتائج

أشكرك أستاذي عبدالله على مجهودك .. بارك الله فيك .. وجزاك الله عني خيرا 

قمت بتجربة الملف .. ولكن:

- يقوم بتكرار صنف واحد فقط 

 

رابط هذا التعليق
شارك

  • أفضل إجابة

أستاذي @أبو عبدالله الحلوانى أشكرك .. حفظك الله ورعاك

تم حل المشكلة من قبل أستاذي @ابو ياسين المشولي 

وذلك بأبقاء المديول كما هو

وبوضع كود الاستدعاء 

Call Create_Record_For_Every_Item2

 

تحت زر بدل حدث بعد التحديث .. فتم الأمر بنجاح

بارك الله فيكم جميعاً .. وجزاكم الله عني خير .. ورزقكم الله الصلاح والفلاح في الدنياء والأخرة

تم تعديل بواسطه qathi
  • Like 1
رابط هذا التعليق
شارك

بالتوفيق

والشكر موصول للاخ

أبو عبدالله الحلوانى

 

تم تعديل بواسطه ابو ياسين المشولي
  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information