kanory

If MsgBox(" هل تريد حفظ السجل ؟ ", vbYesNo, " تنبيه ") -= vbNo Then Cancel = True SendKeys "{ESC}" Exit Sub End If

الجميع لا يظهر له تواجده .....

تفضل ... zaBarCode_Items.mdb

يجب عرض التقرير بهذه الطريقة ثم الطباعة ليعمل الكود على تغيير خصائص الصفحة DoCmd.OpenReport "Labels_Table1", acViewPreview Reports("Labels_Table1").Printer.PaperSize = acPRPSB5

ايضا مشاركة مع اخي الاستاذ @محمد أبوعبدالله تفضل ... Public Function CountChar() As Integer Dim StringToSearch As String, Character As String StringToSearch = Me.txtTest CountChar = 0 For i = 1 To Len(StringToSearch) ms = Mid(StringToSearch, i, 1) Strr = Nz(DLookup("n", "Tbl1", "[l] = '" & ms & "'")) Strr2 = Strr2 + Strr Me.kan = Strr2 Next i End Function تم استدعاء الكود ... Call CountChar kan_1238.mdb

طيب ممكن مرفق أو الكود وطريقة كتابتك له ..... ادرج الكود هنا حتى نفهم المشكلة أو ارفق مثال مصغر لتقريرك ....

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

جرب هذا الكود ... ضعه بعد امر الطباعة .... ملاحظة لم اجرب الكود Reports("فاتورة").Printer.PaperSize = acPRPSB5 acPRPSB5 يمثل ورق B5 و acPRPSA4 يمثل ورق A4 جرب واعلمنا بالتجربة ...

تفضل جرب المرفق ...... nabilemployer_kan2.accdb

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

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

جرب المرفق بدون جداول وتعب دماغ فقط وضعنا مربع اختيار .... nabilemployer_kan.accdb

وعليكم السلام .... ولكن ماهو هذا الجدول المرحل له ,,,, هل هي ترحيل من اجل نسخة احتياطية ,,,, أم ماذا ؟؟؟؟؟ وضح اكثر وبالتفصيل ... حتى يمكن مساعدتك

ما شاء الله تبارك الله ..... معلم يا استاذ @kha9009lid >>>>

مشاركة مع ملف استاذي Barna اصبح لدينا تقرير واحد بدل تقريرين ..... test_bar.accdb

ههههه .... جرب المرفق التالي kan_11.accdb

الكود السابق الحقيقة يعيد المؤشر مرة اخرى لمربع النص المسمى a فلا يترك فرصة لعمل مفتاح الاعلى والاسفل ....

حياك الله اخ هاني واياك .....

تحتاج مراجعة الاكواد في النموذج مثلا هذا الكود عند الخروج يتعارض مع ما تريده ..... Me.sn.SetFocus DoCmd.GoToRecord , , acNewRec Me.a.SetFocus

واياك يا ابا الحسن

تفضل .... del_raseb.mdb

لقد قمت انا باغلاق البرنامج ووجدت التعديلات موجودة ..... عموما اصنع زر للحفظ وضع فيه هذا الكود .. me.Requery

عملت تعديل انظر وقبل وحفظ .... عند التعديل انتقل لحقل اخر حتى يتم التحديث في الجدول

اؤفق الجزء الخاص بالتقرير ببيانات وهمية اي مثال للموجود لديك حتى نفهم ما هي المشكلة

طيب جرب المرفق ..... ‏‏test_kanory.accdb