• 0
شمس الوادي

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

سؤال

مرحبا

كيف تتم طباعة ملصقات الباركود لصنف معين اذا الصنف به كميه 12 او 10 .... الخ

مثال

ادخل الصنف رقم 1010 الى المخزون وعدد اصنافه 12 صنف اريد طباعة ملصقات بعدد الكميه

هناك عمل جميل للاخت زهره الا انني لم يطبع معي الا صنف واحد فقط

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

8 إجابة على هذا السؤال .

  • 0

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

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

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

DoCmd.OpenReport "parlabel", acViewNormal

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

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

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

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

والسلام.

تم تعديل بواسطه ايهاب عثمان
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

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

post-15367-1193133003_thumb.gif

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

post-15367-1193133040_thumb.gif

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

zaBarCode_Items.rar

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

http://www.arabteam2000-forum.com/index.php?showtopic=121134

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

:lol:

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

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

تمام؟؟؟

تماااام

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

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

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

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

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

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

zaBarCode_Items.rar

تم تعديل بواسطه ايهاب عثمان
1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

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

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

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

جزاك الله خير

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

post-15367-1193180557_thumb.gif

post-15367-1193180591_thumb.gif

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

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

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

2

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

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

تم تعديل بواسطه ايهاب عثمان
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

شكرا لك

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .