طباعة ملصقات صنف بعدد الكميه

مرحبا بك وسلام عليك ....

ممكن ترفق الملف لنحاول التعديل عليه..؟؟

عموما اذا كان كود الطباعة ياخذ الشكل التالي ..

DoCmd.OpenReport "parlabel", acViewNormal

حيث parlbel هو اسم التقرير المراد طباعته..

فاذا اردت طباعة عدد نسخ معين وليكن 20 فاكتب الكود هكذا..

For cc = 1 To 20
DoCmd.OpenReport "parlabel", acViewNormal
Next cc

بالتاكيد انت لا تريد طباعة 20 نسخة انما تريد طباعة عدد وحدات الصنف ايا كانت لذا ارفق لنا الملف..

والسلام.

بارك الله فيك مشرفنا الفاضل ايهاب عثمان على المشاركه القيمة

اخي الفاضل شمس الوادي

السلام عليكم ورحمة الله وبركاته

تفضل هذا البرنامج بناء على طلبك

وسيظهر لك التقرير بهذا الشكل به عدد الملصقات لكل صنف وتستطيع طباعته

وهذا هو البرنامج بناء على بناء على طلبك

zaBarCode_Items.rar

اذا لم تكن لديك ادوات وخطوط الباركود ستجدها هنا على هذا الرابط مع طريقة تركيبها

/index.php?showtopic=121134

بارك الله فيك اخت زهرة ..

حقا "لا يفتى" وزهرة On Line

:lol:

بعد اذن الاستاذة زهرة.....

مارايكم بفكرة جديدة...

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

وتحديث هذا الجدول كلما تغيرت الكميات...

تمام؟؟؟

تماااام

كيف يتم تحديث هذا الجدول كلما تغيرت الكميات؟؟؟

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

التلميذ ايهاب ماذا فعل وضع كود جديد تحت نفس الحدث لنفس الزر.

انظروا الى المرفق...

مع ملاحظة ...ان هذا الحل ليس بالحل الامثل ..انما هو البديل لمن لا يستطيع انشاء دالة متقدمة كالتي انشأتها الاستاذة زهرة (عفواً...العبقرية زهرة)

تهمني اراؤكم..

zaBarCode_Items.rar

الاخت زهره والاخ ايهاب وفقكم الله لمايحبه ويرضاه واصلح لكم النية والذريه وجميع الاخوة المشاركين

مثال رائع اخت زهره سلمت يمينك

لو اردت اضافة السعر يظهر فوق الكود في اي جدول اضيف علما باني اضفته في الجدولين لكن لم يظهر معي في البرنت

اخي الفاضل ومشرفنا القدير ايهاب عثمان

بارك الله فيك على هذه الإضافة الرائعة

كان القصد من اضافة الدالة التي تقوم بمهمة الإضافة والحذف والتحديث في وقت واحد هو حتى نستغني عن الإستعلامات حيث يتم استدعاء الوظيفة الفرعية Create_Record_For_Every_Item بالكود بدون وجود اي استعلام او اضافة اكواد اخرى .

عموما هي فكره جيده وإضافة ممتازه .

وعلى فكره هناك من التلاميذ النجباء يتفوقون على اساتذتهم :)

اخي الفاضل شمس الوادي

جزاك الله خير

هل تقصد انك تريد اضافة سعر الصنف لكل صنف مقابله ليظهر لك في التقرير مع ملصقات الباركود بهذه الطريقة

اذا يلزمك التالي

1. اضافة حقل السعر Price لكل الجدولين tblRASEED و tblALLItems لأن الجدول الأول هو الذي تكتب فيه السعر واالجدول الآخر هو الذي يتم فيه عد هذه الأصناف وإضافتها وتحديثها مع اسعارها من خلال الوظيفة الفرعية التي يتم استدعاؤها بالكود ولهذا لو نظرنا للوظيفة نجد اننا لا بد من اضافة حقل السعر price ايضا لها حتى يتم تحديث الخقل مباشرة مع بقية الحقول بهذه الطريقة

Sub Create_Record_For_Every_Item()
Const RTableName As String = "tblRASEED"
Const ALLItemsTableName As String = "tblALLItems"
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("count")
SqlSt = "INSERT INTO " & ALLItemsTableName & " (cod,name,price,codcounter) VALUES ( " & R.Fields("cod") & ",""" & R.Fields("name") & """," & R.Fields("price") & "," & ItemCounter & " );"
DoCmd.RunSQL (SqlSt)
Next ItemCounter
Next RRecordCounter
DoCmd.SetWarnings True
R.Close
MyDB.Close
End Sub

2. لاحظ في الكود انه عند بدا عد الحقول سيتم ايضا اضافة حقل السعر ايضا معها ("R.Fields("price

وهذا الملف بعد التعديل

zaBarCode_Items_up.rar

بالتوفيق للجميع

الاستاذة الكريمة زهرة....

اقتباس

وعلى فكره هناك من التلاميذ النجباء يتفوقون على اساتذتهم

طبعا هذا لا ينطبق ابدا على حالتي... :D

بارك الله فيكم وزادكم علما ورزقكم حلما وغفر لكم ولنا.

الاخت زهره بارك الله فيك

نعم هذا المطلوب

شكرا لك