figo82eg

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

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

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

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

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

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

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

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

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

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

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

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

ممكن الملف بصيغة 2003

ارجو المساعدة حيث لدى جدول بالاكسس به الاف الارقام هذه الارقام مرتبطة بملفات pdf مرقمة بنفس الارقام الموجودة بجدول الاكسس . ما أريده هو نقل جميع ملفات pdf المسماة بنفس الارقام الموجودة بجدول الاكسس من محرك الاقراص d الى محرك الاقراص e من خلال زر فى نموذج

شكرا اخى الكريم على جهودك جزالك الله عنا كل خير

ما اريده هو نقل ملفات من مكان الى مكان اخر على الحاسب عند الضغط على زر بالنموذج ومرفق مثال لما اريد account.mdb CONTACT.rar

شكرا اخى الكريم قمت بتطبيق الحل لدى بطريقة مثالية

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

شكرا اخر الكريم على اهتمامك ‌@AlwaZeeR ارجو تطبيق الشفرة السابقة على المثال المرفق لأنى حاولت ولم تنفع معى account.mdb CONTACT.rar

 الكبير استاذ @أبو إبراهيم الغامدي لدى نموذج به خانة كود العميل مربوط بملف بى دى اف بنفس كود العميل بملف على الحاسب عند الضغط عليه دبل كليك يفتح الملف مباشرا. نفس مشكلة الاخ محمد لدى انه عند تعير الكود لا يتغير اسم الملف . ما اريده هو عند تغير الاسم فى النموذج يتغير اسم الملف بنفس تغير اسم النموذج Private Sub crn_DblClick(Cancel As Integer) File_Path = Application.CurrentProject.Path & "\CONTACT\" File_Name = Me.crn & ".pdf" Name_Path = File_Path & File_Name  If Dir(Name_Path) <> "" Then Application.FollowHyperlink Name_Path Else MsgBox "صورة ايصال العميل غير محفوظة" End If End Sub

استاذنا الكبير استاذ @أبو إبراهيم الغامدي لدى نموذج به خانة كود العميل مربوط بملف بى دى اف بنفس كود العميل بملف على الحاسب عند الضغط عليه دبل كليك يفتح الملف مباشرا. نفس مشكلة الاخ محمد لدى انه عند تعير الكود لا يتغير اسم الملف . ما اريده هو عند تغير الاسم فى النموذج يتغير اسم الملف بنفس تغير اسم النموذج Private Sub crn_DblClick(Cancel As Integer) File_Path = Application.CurrentProject.Path & "\CONTACT\" File_Name = Me.crn & ".pdf" Name_Path = File_Path & File_Name  If Dir(Name_Path) <> "" Then Application.FollowHyperlink Name_Path Else MsgBox "صورة ايصال العميل غير محفوظة" End If End Sub

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

وهذا هو الكود المستخدم : Private Sub crn_DblClick(Cancel As Integer) 'File_Path = "D:share\ACCOUNT\CONTACT\" File_Path = Application.CurrentProject.Path & "\CONTACT\" File_Name = Me.crn & ".pdf" Name_Path = File_Path & File_Name If Dir(Name_Path) <> "" Then Application.FollowHyperlink Name_Path Else MsgBox "العقد صورة ايصال العميل غير محفوظة" End If End Sub تغير او عمل تعديل على الرقم الموجود داخل خانة crn يتغير اسم ملف pdf بنفس التعديل الذى طراء على خانة crn تلقائى من خلال الاكسس الذهاب الى الملف وتعديله فهل يمكن عمل ذلك بالاكسس

ممكن المثال على نسخة 2003