Jump to content
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

د.كاف يار

Expert
  • Content Count

    413
  • Joined

  • Last visited

  • Days Won

    9

Everything posted by د.كاف يار

  1. اخي الكريم طلال يمكن فعلا ربط الوورد بالأكسس من خلال طريقتين الطريقة الأسهل دمج المراسلات ( اسهل طريقة ) من خلال اضافة علامات مرجعية في ملف WORD و استخدام كود برمجي بسيط جدا ( الطريقة المفضلة بسبب عدم وجود تنبيه أمان) تفضل هذا المثال اعددته لك بالكود ارسال البيانات للورد.zip
  2. اخي الكريم بعد البحث وجدت أن هذا فايروس الفيدية فضلا راجع هذا المصدر و قم بتنزيل أداة ازالة هذا الفايروس اضغط هنا اداة ازالة البرامج الضارة اضغط هنا كذلك هذا حل شبيه قد يكون اسهل من السابق اضغط هنا كذلك هذه اداة جميلة لتجاوز تشفير الفدية اضغط هنا
  3. ياليت لو ترفق اي ملف عليه مشكلة خلينا نحاول معاك لإيجاد حل
  4. لتصفح ملفات الكمبيوتر و اختيار الصورة Dim Addfile As Object Set Addfile = Application.FileDialog(3) With Addfile .AllowMultiSelect = False .InitialFileName = "" .Filters.Clear .Filters.Add "All Files", "*.*" If .Show = True Then xFile = Trim(.SelectedItems(1)) Else Exit Sub End If End With
  5. فكرة جميلة لكن لكنها خرجت عن طلب الاخ طلال لأنه يريد كشف حساب للعمليات المالية التي تمت على المشروع
  6. ممتاز لكن فيه خطأ كذلك تفضل التعديل اولا يجب حفظ السطر قبل تنفيذ الحدث لضمان سلامة العملية الحسابية ثم اذا كان هذا السطر هو المستخلص الأول للمشروع بالتالي الكود لن يجد نتيجه للجميع في الجدول فالحل ان يتم اضافة حقل المستخلص لاضافة المتبقي من قيمة المشروع Me.المتبقي = Me.نص30 - Nz(DSum("[مبلغ المستخلص]", "[المستخلصات]", "[كود المشروع]=" & Me.كود_المشروع), Me.مبلغ_المستخلص) مرفق التعديل المشاريع_2.rar
  7. تفضل هذا التعديل اخي الكريم ( اكتشفت خطأ في حساب التاريخ حيث تم التعديل ليحسب من التاريخ الحالي للنظام ) Up_عقود_2.rar
  8. تفضل هذه مشاركة من طرفي اخي طلال لكي تتعدد امامك الحلول و تختار الانسب منها المشاريع.rar
  9. تفضل التعديل اخي الكريم Up_عقود.rar
  10. تفضل التعديل اخي الكريم يحب ان يكون الملف في نفس مسار البرنامج او امسح المسار لكي يتم اختيار مكان الملف للاستيراد Handicapés vièrge.zip
  11. اخي الكريم لا تقم بايقاف رسالة الخطأ تم عمل تعديل على رسالة التنبيه لكي تتضح الصورة اكثر مرفق البرنامج بعد التعديل عقود خدمات 2.accdb
  12. ماشاء الله دائما متألق و حلولك بسيطه و هذا ما يجعلك مشاركاتك جميلة
  13. اخي الكريم ارفق نسخة فارغة من ملفات الاكسس المطلوب فقط اسماء الاعمدة و سطر واحد لمعرفة نوع البيانات انت تريد استيراد ملف اكسل و هذا مر بسيط فالمنتدى غني بمثل هذه الأمثلة الاحترافية و السهلة
  14. لأنها ارقام الحل انشئ استعلام اضف اليه جميع الجداول ذات العلاقة و ضع مسمى العمود المتوافق مع رقم العمود لكن ستواجه مشكلة اذا كانت هذه الحقول منية على قيم ثابته ففي هذه الحالة اقترح عليك بناء جدول اخر باسم Export و اجعل جميع القيم نصية ثم الحق البيانات الى الجدول الجديد و انشئ استعلام تحديث لتحويل القيم الرقمي الى نصية
  15. تفضل هذا الحل في اعلا الصفحة وضعت التاريخ الميلادي و الهجري و اليوم ملاحظة التاريخ يتم جلبه من سيرفر خارجي ‏‏f_absent - نسخة.zip
  16. من ناحية الحلول فالخيارات كثيرة لكني افضل ايسرها من وجهة نظري فالمنطق أنه يجب ان يكون لديك سجلات بالعدد المطلوب و يكون تعاملك معها فقط بالتحديث اذا رغبت اتبع الأتي اضف حقل مرتبط مسمى _ ( الطاقة الاستيعابية ) انشئ ازرار بمسمى _( فتح فصل جديد ) ثم اتبع الطريقة في المثال المرفق الفصول.accdb
  17. اخي الكريم اليك طريقة بسيطة جدا اولا / افتح نموذج فارغ و اضف اليه الحقول التي ترغب بها مع مراعاة تسمية الحقول بنفس المسمى في الجدول لتسهل عملية ترحيل البيانات للجدل ((( اذا المطلوب منك نموذج و حقول غير منضمة للجدول ))) ثانيا / استدعاء قيمة من النموذج السابق اتبع الأتي ضع القيمة ادناه مع التعديل على اسم النموذج و اسم الحقل =[Forms]![FormName]![TextBox] ثالثا / اضف ازرار لترحيل البيانات للجدول و ضع الكود التالي مع التعديل المطلوب Dim db As DAO.Database Dim rs As DAO.Recordset On Error GoTo errorhandle Set db = CurrentDb Set rs = db.OpenRecordset
×
×
  • Create New...