اذهب الي المحتوي
أوفيسنا

figo82eg

03 عضو مميز
  • Posts

    284
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    1

كل منشورات العضو figo82eg

  1. ارجو المساعدة حاولت مرارا تطبيق موضوع الباركود كما هو موضح بالمثال السابق ولكن جميع محاولاتى لم تنجح مع مثالى المرفق.
  2. اسف للخطأ الغير مقصود تم ارفاق مثال بالمطلوب barcode.mdb
  3. ارجو من السادة الزملاء مساعدتى حيث لدى تقرير واريد ان اضيف عليه باركود يتم قرائته من خلال تطبيق الباركود على الموبيل ومرفق مثال PrintMasterAndCopy.mdb
  4. عند التطبيق على قاعدة بيانات 2003 تظهر رسالة خطأ ممكن الحل بصيغة 2003
  5. اشكرك اخى الكريم على ردك واهتمامك وردك لكن لو حبيت يكون التقسيم بالنموذج فقط دون إدخال اى إضافة داخل الجدول بمعنى لا يوجد بالجدول غير خانة CRN فقط ويتم التقسيم داخل النموذج فقط
  6. ارجو المساعدة حيث لدى حقل مكون من 16 رقم اريد ان يتم تقسيمه تلقائى بمجرد الإنتقال الى الحقل الذى يليه فى 8 حقول بمعدل رقمين بكل حقل ومرفق مثال لما اريد New Microsoft Office Access Application.rar
  7. هل يمكن الحل بصيغة 2003 للاهمية
  8. بارك الله فيكم جميعاً اساتذتنا ومعلمينا وجعله الله فى ميزان حسناتكم أن شاء الله تم الحل فعلا بتغيير الافنت الخاص للتقرير وجعله عند التنشيط
  9. فعلا اساتذتى الكرام الأوفيس الذى لدى هو 2003 لاتظهر لدى اى رسائل خطأ وعند طبعاة التقرير لا يظهر أى شى. والمشكلة ان البرنامج الذى اقوم بإستخدام المثال للتطبيق عليه مصنوع بأوفيس2003 فهل من حل
  10. لا تظهر معى فى الأمثلة المرفقة من قبل أساتذتنا ولم أطبقا على برنامجى بعد
  11. اشكر حضرتك على اهتمامك وسعة صدرك ان لا تفرق معى وضع العلامة ولكن المشكلة انها عند الضغط على زر طباعة التقرير لا تظهر معى اصلا كلمة اصلى او نسخة ولا اعلم ما هى المشكلة
  12. اساتذتى الكرام عند طباعة التقرير لم تظهر كلمة اصلى او نسخة فى خلفية التقرير مثل الصورة المرفقة والتى صنعتها عن طريق برنامج الرسام للتوضيح فى كلا المثالين فهل المشكلة لدى ارجو التوضيح
  13. مرفق مثال لما اريد New Microsoft Office Access Application.rar
  14. ارجو المساعدة حيث لدى تقرير أريد عند طباعته أول مرة تظهر كلمة أصلى وعند طباعته مرة أخرى فى أى وقت يتم كتابة كلمة نسخة. بمعنى لا يتم طباعة نسخة أصلى إلا مرة واحدة فقط للعميل فى اي وقت
  15. بارك الله فيك اخر الكريم وجزاك الله عنا كل خير
  16. اشكرك اخى الكريم على اهتمامك وبالفعل الفولدر به ملفات اخرى غير المسماة بنفس الارقام الموجودة بجدول الاكسس ومرفق مثال على قاعدة البيانات لدى New Microsoft Office Access Application.rar
  17. ارجو المساعدة حيث لدى جدول بالاكسس به الاف الارقام هذه الارقام مرتبطة بملفات pdf مرقمة بنفس الارقام الموجودة بجدول الاكسس . ما أريده هو نقل جميع ملفات pdf المسماة بنفس الارقام الموجودة بجدول الاكسس من محرك الاقراص d الى محرك الاقراص e من خلال زر فى نموذج
  18. شكرا اخى الكريم على جهودك جزالك الله عنا كل خير
  19. ما اريده هو نقل ملفات من مكان الى مكان اخر على الحاسب عند الضغط على زر بالنموذج ومرفق مثال لما اريد account.mdb CONTACT.rar
  20. شكرا اخى الكريم قمت بتطبيق الحل لدى بطريقة مثالية
  21. شكرا استاذنا الكريم هو المطلوب فعلا وجزاك الله عنا خيرا NewName ولكن لو تكرمت تعديل لو امكن هو: انه بمجرد تعديل الرقم ان يتم التعديل بمجرد الإنتقال الى الخانة التالية دون الحاجه الى زر ابديت فى النموذج ونلغى خانه
  22. شكرا اخر الكريم على اهتمامك ‌@AlwaZeeR ارجو تطبيق الشفرة السابقة على المثال المرفق لأنى حاولت ولم تنفع معى account.mdb CONTACT.rar
  23.  الكبير استاذ @أبو إبراهيم الغامدي لدى نموذج به خانة كود العميل مربوط بملف بى دى اف بنفس كود العميل بملف على الحاسب عند الضغط عليه دبل كليك يفتح الملف مباشرا. نفس مشكلة الاخ محمد لدى انه عند تعير الكود لا يتغير اسم الملف . ما اريده هو عند تغير الاسم فى النموذج يتغير اسم الملف بنفس تغير اسم النموذج 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
  24. استاذنا الكبير استاذ @أبو إبراهيم الغامدي لدى نموذج به خانة كود العميل مربوط بملف بى دى اف بنفس كود العميل بملف على الحاسب عند الضغط عليه دبل كليك يفتح الملف مباشرا. نفس مشكلة الاخ محمد لدى انه عند تعير الكود لا يتغير اسم الملف . ما اريده هو عند تغير الاسم فى النموذج يتغير اسم الملف بنفس تغير اسم النموذج 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
×
×
  • اضف...

Important Information