:ت: مشكلة في تقرير الملصقات

[gs7581]

السلام عليكم

قمت بعمل تقرير لطباعة ملصقات الاصناف

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

ومصدر هذة البانات هو جدول فاتورة الشراع

و ظهر في التقرير عدد سجلات (ملصقات) بعدد الاصناف الموجودة في الفاتورة

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

ارجو المساعدة و شكرا

[gs7581]

الاخوة الافاضل

اتمني الرد السريع

ان كان ممكنا

[أمجد جمالي]

اعتذر عني وعن زملائي للتأخير في الرد عليك

ثانياً ياريت ترفق مثال مع نموزج الفاتورة ونموزج الملصق والجدول المخزن فيه البيانات

وبإذن الله رح حل مشكلتك

تحياتي لك

[الدكتور خضر الرجبي]

افتراضات الحل

1. جدول فيه البضائع رموزها وأسمائها وأسعارها والباركود ولنقل Products وطبعا جدول البضائع فيه حقل لعدد الملصقات المطلوبة.

2. جدول لشكل ورقة الملصقات ولنسميه Labels وهنا إفترضت أن الورقة تحتوي على 3 ملصقات عرضيا وكل ملصق يحتوي عل ثلاث سطور بيانات يتم تعبئة الجدول بناء على الضغط على زر الامر PrintLabels

3. تصميم التقرير Labels بناء على الجدول Labels

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

Private Sub PrinLabels_Click() ' Code for Printing Labels On Error Resume Next
    Dim DBsRajabi As Database
    Dim RstProducts As Recordset
    Dim rstLabels As Recordset On Error GoTo NoRecors_Err
    Set DBsRajabi = CurrentDb
    Set RstProducts = DBsRajabi.OpenRecordset("SELECT Productid, productname,Barcode,NoLabels from Products ", dbOpenSnapshot)
    ' Fields(0) = Productid , Fields(1) = Productname , Fields(2) = barcode , Fields(3) = NoLabels
    Set rstLabels = DBsRajabi.OpenRecordset("Labels", dbOpenDynaset)
    ' The following query will clear the labels table (delete all records)
    DoCmd.OpenQuery "labels_delete Query"
    CC = 1
    rstLabels.AddNew
    With RstProducts
        'Populate Recordset.
        .MoveLast
        .MoveFirst
      Do While Not .EOF
       For I = 1 To .Fields(3) ' Fields(3) from Products = # of labels wanted
        If CC = 4 Then
           CC = 1
           rstLabels.Update
           rstLabels.AddNew
        End If
        Select Case CC
         Case 1:
          rstLabels!label1_line1 = .Fields(0)
          rstLabels!label1_line2 = .Fields(1)
          rstLabels!label1_line3 = .Fields(2)
         Case 2:
          rstLabels!label2_line1 = .Fields(0)
          rstLabels!label2_line2 = .Fields(1)
          rstLabels!label2_line3 = .Fields(2)
         Case 3:
          rstLabels!label3_line1 = .Fields(0)
          rstLabels!label3_line2 = .Fields(1)
          rstLabels!label3_line3 = .Fields(2)
         End Select
         CC = CC + 1
        Next I
        .MoveNext
        Loop
        .Close
    End With
    rstLabels.Update
    rstLabels.Close
    DBsRajabi.Close
    DoCmd.OpenReport "Labels", acViewPreview
    Exit Sub
NoRecors_Err:
    MsgBox "No Labels to Print", vbCritical
End Sub

[أمجد جمالي]

السلام عليكم

اولاً اشكرك اخي الكريم على سرعة تجاوبك مع الاأعضاء

ثانياًاخ gs7581 هل افتراضات الاخ خضر الرجبي حلت المشكلة

شكراً لكم

[gs7581]

الاخوة الافاضل

اشكركم شكرا جزيلا علي الاهتمام بالموضوع

و سأقوم بتجربة الكود وسأكتب الرد بسرعة ان شاء الله

[gs7581]

الأخ خضر الرجبي

انا لم استطع فهم الكود المكتوب جيدا

اولا ما المقصود بخانة الباركود في جدول الاصناف

ثانيا ما هير cc

المجودة في الكود

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

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

ثم هل يمكن عمل المطلوب عن طريق الاستعلامات

اتمني الرد بسرعة لأهمية الموضوع بالنسبة لي و شكرا

[الدكتور خضر الرجبي]

السلام عليكم

اخي gs7581 ،

لطفا، أنشء موضوع جديد في هذا الرابط وسميه (لإهتمام خضر الرجبي ) وارفق معه الملف

أرجو منك التوضيح تمام هنا ماذا تريدني أن افعل في الملف المرفق.

ملاحظة : متابعة الموضوع تتم هنا وارفاق الملفات يتم في الرابط اعلاه وشكرا.

مع الاحترام

[gs7581]

لقد وضعت الملف في المكان المطلوب

و ارجو الرد علية

مع الشكر

[الدكتور خضر الرجبي]

السلام عليكم

اخي gs7581

شكرا لرفعك الملف ، كل شيء تمام ، برمجة الملصقات المطلوبة جاهزة .

اذا احتجت لأي توضيحات فسأكون جاهز ان شاء الله.

مع الاحترام والتقدير

KR_Officena12.rar

[gs7581]

كل الشكر للأخ الفاضل خضر الرجبي

البرنامج يعمل و الحمد لله