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

[سلمان الشهراني]

اسعد الله اوقات الجميع

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

المثال بالمرفق

وشاكر للجميع

Database1.2.rar

[Shivan Rekany]

2 ساعات مضت, سلمان الشهراني said:

اسعد الله اوقات الجميع

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

المثال بالمرفق

وشاكر للجميع

Database1.2.rar

اتفضل

تم استخدام هذا الكود

Private Sub com7_Click()
    Dim Sql As String
        Sql = "DELETE TblForPrintBarcode.* FROM TblForPrintBarcode;"
            DoCmd.SetWarnings False
            DoCmd.RunSQL (Sql)
            DoCmd.SetWarnings True
        Dim rst As DAO.Recordset
            Set rst = CurrentDb.OpenRecordset("Select * From TblForPrintBarcode")
    Dim i As Integer
        Form_FM4F.Recordset.MoveFirst
            For i = 1 To Form_FM4F.Recordset.RecordCount
                Dim ii As Integer
                    For ii = 1 To Form_FM4F.Qut
                        rst.AddNew
                        rst!Ds_Product = Form_FM4F.Ds_Product
                     '   rst!price_b = Form_FM4F.pr
                        rst!Code_Product = Form_FM4F.Code_Product
                        rst!Date_Ex = Form_FM4F.Date_Ex
                        rst.Update
                    Next ii
        Form_FM4F.Recordset.MoveNext
    Next i
        rst.Close: Set rst = Nothing
  
  Dim stDocName As String

    stDocName = "dd"
    DoCmd.OpenReport stDocName, acViewPreview

End Sub

واضفت جدول خاص للطباعة الباركود
و غيرت في اسماء النماذج

اليك المرفق
 

Database1.2.rar

[سلمان الشهراني]

12 دقائق مضت, Shivan Rekany said:

اتفضل

تم استخدام هذا الكود

Private Sub com7_Click()
    Dim Sql As String
        Sql = "DELETE TblForPrintBarcode.* FROM TblForPrintBarcode;"
            DoCmd.SetWarnings False
            DoCmd.RunSQL (Sql)
            DoCmd.SetWarnings True
        Dim rst As DAO.Recordset
            Set rst = CurrentDb.OpenRecordset("Select * From TblForPrintBarcode")
    Dim i As Integer
        Form_FM4F.Recordset.MoveFirst
            For i = 1 To Form_FM4F.Recordset.RecordCount
                Dim ii As Integer
                    For ii = 1 To Form_FM4F.Qut
                        rst.AddNew
                        rst!Ds_Product = Form_FM4F.Ds_Product
                     '   rst!price_b = Form_FM4F.pr
                        rst!Code_Product = Form_FM4F.Code_Product
                        rst!Date_Ex = Form_FM4F.Date_Ex
                        rst.Update
                    Next ii
        Form_FM4F.Recordset.MoveNext
    Next i
        rst.Close: Set rst = Nothing
  
  Dim stDocName As String

    stDocName = "dd"
    DoCmd.OpenReport stDocName, acViewPreview

End Sub

واضفت جدول خاص للطباعة الباركود
و غيرت في اسماء النماذج

اليك المرفق
 

Database1.2.rar

الله يعطيك العافيه والف شكر لك يالغالي

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

اكرر شكري لك يالغالي

[Shivan Rekany]

7 دقائق مضت, سلمان الشهراني said:

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

انا غيرت عدد الاعمدة في التقرير الى 5 عمود
غيرها الى عمود واحد

[سلمان الشهراني]

21 ساعات مضت, Shivan Rekany said:

انا غيرت عدد الاعمدة في التقرير الى 5 عمود
غيرها الى عمود واحد

 

تم تغييرها ولله يعطيك الف الف عافيه