gs7581 قام بنشر يناير 5, 2005 مشاركة قام بنشر يناير 5, 2005 السلام عليكم قمت بعمل تقرير لطباعة ملصقات الاصناف مع طباعة العلامات الخاصة بجهاز الباركود ريدر بحيث يحتوي علي علامة جهاز الباركود الخاصة بكود الصنف ثم اسم المنتج ثم اسم الشركة ومصدر هذة البانات هو جدول فاتورة الشراع و ظهر في التقرير عدد سجلات (ملصقات) بعدد الاصناف الموجودة في الفاتورة و المطلوب هو كيف يمكن تكرار الملصق الخاص بكل صنف عدد مرات مساوية للكمية المكتوبة في الفاتورة ارجو المساعدة و شكرا رابط هذا التعليق شارك More sharing options...
gs7581 قام بنشر يناير 11, 2005 الكاتب مشاركة قام بنشر يناير 11, 2005 الاخوة الافاضل اتمني الرد السريع ان كان ممكنا رابط هذا التعليق شارك More sharing options...
أمجد جمالي قام بنشر يناير 16, 2005 مشاركة قام بنشر يناير 16, 2005 اعتذر عني وعن زملائي للتأخير في الرد عليك ثانياً ياريت ترفق مثال مع نموزج الفاتورة ونموزج الملصق والجدول المخزن فيه البيانات وبإذن الله رح حل مشكلتك تحياتي لك رابط هذا التعليق شارك More sharing options...
الدكتور خضر الرجبي قام بنشر يناير 16, 2005 مشاركة قام بنشر يناير 16, 2005 افتراضات الحل 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 رابط هذا التعليق شارك More sharing options...
أمجد جمالي قام بنشر يناير 16, 2005 مشاركة قام بنشر يناير 16, 2005 السلام عليكم اولاً اشكرك اخي الكريم على سرعة تجاوبك مع الاأعضاء ثانياًاخ gs7581 هل افتراضات الاخ خضر الرجبي حلت المشكلة شكراً لكم رابط هذا التعليق شارك More sharing options...
gs7581 قام بنشر يناير 16, 2005 الكاتب مشاركة قام بنشر يناير 16, 2005 الاخوة الافاضل اشكركم شكرا جزيلا علي الاهتمام بالموضوع و سأقوم بتجربة الكود وسأكتب الرد بسرعة ان شاء الله رابط هذا التعليق شارك More sharing options...
gs7581 قام بنشر فبراير 14, 2005 الكاتب مشاركة قام بنشر فبراير 14, 2005 الأخ خضر الرجبي انا لم استطع فهم الكود المكتوب جيدا اولا ما المقصود بخانة الباركود في جدول الاصناف ثانيا ما هير cc المجودة في الكود اريد معرفة طريقة لوضع قاعدة بيانات علي الموقع لكي تقوم بوضع الكود فيها او لو تفضلت مشكورا بعمل قاعدة صغيرة من عندك و فيها المثال موضحا ثم هل يمكن عمل المطلوب عن طريق الاستعلامات اتمني الرد بسرعة لأهمية الموضوع بالنسبة لي و شكرا رابط هذا التعليق شارك More sharing options...
الدكتور خضر الرجبي قام بنشر فبراير 14, 2005 مشاركة قام بنشر فبراير 14, 2005 السلام عليكم اخي gs7581 ، لطفا، أنشء موضوع جديد في هذا الرابط وسميه (لإهتمام خضر الرجبي ) وارفق معه الملف أرجو منك التوضيح تمام هنا ماذا تريدني أن افعل في الملف المرفق. ملاحظة : متابعة الموضوع تتم هنا وارفاق الملفات يتم في الرابط اعلاه وشكرا. مع الاحترام رابط هذا التعليق شارك More sharing options...
gs7581 قام بنشر فبراير 15, 2005 الكاتب مشاركة قام بنشر فبراير 15, 2005 لقد وضعت الملف في المكان المطلوب و ارجو الرد علية مع الشكر رابط هذا التعليق شارك More sharing options...
الدكتور خضر الرجبي قام بنشر فبراير 16, 2005 مشاركة قام بنشر فبراير 16, 2005 السلام عليكم اخي gs7581 شكرا لرفعك الملف ، كل شيء تمام ، برمجة الملصقات المطلوبة جاهزة . اذا احتجت لأي توضيحات فسأكون جاهز ان شاء الله. مع الاحترام والتقدير KR_Officena12.rar رابط هذا التعليق شارك More sharing options...
gs7581 قام بنشر فبراير 16, 2005 الكاتب مشاركة قام بنشر فبراير 16, 2005 كل الشكر للأخ الفاضل خضر الرجبي البرنامج يعمل و الحمد لله رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان