figo82eg

بارك الله فيك أستاذى العزيز وهو المطلوب

اشكرك استاذى على اهتمامك استخدمت تعديل حضرتك ولكن ظهر مشكلة بعد إستخدام الكود وهى ان جميع السجلات تأخذ مسار اول صورة وتكون ثابتة في جميع السجلات ومرفق مثال لما اريد New Microsoft Office Access Application.rar

ارجو المساعدة في التعديل على هذا الكود حيث أنه موضوع في تقرير لدى وفى حالة الطباعة والصورة غير محفوظة لا استطيع الطباعة وينتج عنه رسالة خطأ ما اريده هو عند الطباعة وفى حالة عدم وجود صورة يتم الطباعة بصورة عاديه بدون صوره. Me!.Picture = DLookup("figura", "BASIC_DATE")

شكرا على الرد والاهتمام

ارجو من الأخوة الأعضاء المساعدة فى التعديل على هذا الكود الذى وظيفته نقل ملفات pdf من مجلد الى أخر حيث يقوم بعملية النقل مع حذف الملف القديم اذا وجد تشابه . ما اريده هو نقل الملف داخل نفس المجلد الجديد اذا وجد ملف له نفس الإسم بمعنى انه يوجد ملفين القديم والجديد وهذا هو الكود الذى أستعمله : Private Sub Command0_Click() On Error Resume Next Dim rs As DAO.Recordset Dim fso ("Set fso = VBA.CreateObject("Scripting.FileSystemObject ("Set rs = CurrentDb.OpenRecordset("SELECT crn FROM BASIC_DATE If Not (rs.EOF And rs.BOF) Then rs.MoveFirst Do Until rs.EOF = True "sSourceFile = Application.CurrentProject.Path & "\CONTACT\" & rs!crn & ".pdf "\sDestinationFile = Application.CurrentProject.Path & "\CONTACT\old fso.CopyFile sSourceFile, sDestinationFile, True fso.DeleteFile sSourceFile rs.MoveNext Loop Else "MsgBox "no number End If "MsgBox "ok rs.Close Set rs = Nothing End Sub

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

ممكن الملف بصيغة ٢٠٠٣

ممكن الملف بصيغة ٢٠٠٣

ممكن الملف بصيغة ٢٠٠٣

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

اسف للخطأ الغير مقصود تم ارفاق مثال بالمطلوب barcode.mdb

ارجو من السادة الزملاء مساعدتى حيث لدى تقرير واريد ان اضيف عليه باركود يتم قرائته من خلال تطبيق الباركود على الموبيل ومرفق مثال PrintMasterAndCopy.mdb

عند التطبيق على قاعدة بيانات 2003 تظهر رسالة خطأ ممكن الحل بصيغة 2003

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

ارجو المساعدة حيث لدى حقل مكون من 16 رقم اريد ان يتم تقسيمه تلقائى بمجرد الإنتقال الى الحقل الذى يليه فى 8 حقول بمعدل رقمين بكل حقل ومرفق مثال لما اريد New Microsoft Office Access Application.rar

هل يمكن الحل بصيغة 2003 للاهمية

بارك الله فيكم جميعاً اساتذتنا ومعلمينا وجعله الله فى ميزان حسناتكم أن شاء الله تم الحل فعلا بتغيير الافنت الخاص للتقرير وجعله عند التنشيط

فعلا اساتذتى الكرام الأوفيس الذى لدى هو 2003 لاتظهر لدى اى رسائل خطأ وعند طبعاة التقرير لا يظهر أى شى. والمشكلة ان البرنامج الذى اقوم بإستخدام المثال للتطبيق عليه مصنوع بأوفيس2003 فهل من حل

لا تظهر معى فى الأمثلة المرفقة من قبل أساتذتنا ولم أطبقا على برنامجى بعد

اشكر حضرتك على اهتمامك وسعة صدرك ان لا تفرق معى وضع العلامة ولكن المشكلة انها عند الضغط على زر طباعة التقرير لا تظهر معى اصلا كلمة اصلى او نسخة ولا اعلم ما هى المشكلة

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

مرفق مثال لما اريد New Microsoft Office Access Application.rar

ارجو المساعدة حيث لدى تقرير أريد عند طباعته أول مرة تظهر كلمة أصلى وعند طباعته مرة أخرى فى أى وقت يتم كتابة كلمة نسخة. بمعنى لا يتم طباعة نسخة أصلى إلا مرة واحدة فقط للعميل فى اي وقت

بارك الله فيك اخر الكريم وجزاك الله عنا كل خير

اشكرك اخى الكريم على اهتمامك وبالفعل الفولدر به ملفات اخرى غير المسماة بنفس الارقام الموجودة بجدول الاكسس ومرفق مثال على قاعدة البيانات لدى New Microsoft Office Access Application.rar