اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ابوخليل

أوفيسنا
  • Posts

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

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

  • Days Won

    301

كل منشورات العضو ابوخليل

  1. تم التعديل وعمل اللازم Test15_UP.rar
  2. ومع ذلك اخذنا منك الفائدة فجزاك الله خيرا
  3. كما ذكر اخي احمد الموضوع قديم وحيث انه فريد وقد يحتاج اليه احببت ان تكتمل الاجابة قبل نقله الى الارشيف ولدي اضافة بسيطة : ففي فترة قريبة ماضية عملت برنامج لحلقات التحفيظ ( جزئين : واجهات وجداول ) وأثناء عملهم عليه يطلبون تعديلات في النماذج والتقارير فاقوم بالتعديل على جزء لواجهات ثم ارسلها اليهم ، فيقوموا باللصق والاستبدال فقط ، وتبقى بياناتهم كما هي لم تتاثر
  4. استاذنا العزيز محمد صالح سلمت أناملك اعتقد انه يمكننا الآن في مثالك الاستغناء عن تنسيق التاريخ الموجود سابقا في مربع النص ؟
  5. احتفظ بالمثال السابق فقد تحتاجه في حفظ المسارات وهذا التعديل حسب طلبك تحديد ملف وفتحه .rar
  6. السلام عليكم أطلت الغيبة ايها العماني المثابر هذا مثالك بعد التعديل hyperlinkUP.rar
  7. اخواني ابو احمد وابو آدم اشهد الله على حبكم ، ومن تمام الاخوة : رفع الكلفة ، وترك الزوائد ، فالقلوب شواهد .
  8. اخي محمد صالح اخي نارت لبزو جزاكم الله خيرا على هذه الدعوات ، انما هو بعضا مما عندكم ’ فمنكم تعلمنا . اخي ريان : قد اجزلت لنا الاجر ، فنحمد الله على قضاء حاجتك
  9. السلام عليكم ان اذن لي اخي Bluemind اخي الكريم المثال يختصر الوقت والجهد ، لانك في النهاية ستضطر الى ارفاقه واجابة على طلبك : لجلب قيمة حقل الى النموذج انت مخير بين امرين : الاول ان تنشء مربع نص غير منظم وتجلب قيمة الحقل بواسطة الدالة : Dlookup الثاني ان تنشء نموذج فرعي يكون مصدره الاستعلام المذكور
  10. عندي رأي بهذا التعديل فإن وافق طلب السائل وحاجته قضي الأمر والا القول ماقال استاذنا نسأل الله التوفيق db5UP.rar
  11. اولا : نحمد الله على سلامتك وثانيا : لا يلام صاحب الحاجة على الالحاح ’،كما ان الشكر لمن بادر بالمواساة وثالثا : ما هذا الجمال والروعة . زادك الله علما ، ونفع بك .
  12. مشكور اخونا الشهابي على المحرر وعلى هذا الشرح الوافي وجزاك الله خيرا
  13. أخي الكريم : هذا الحل قد اعطاك اياه أخونا ابو ياسر في الرابط التالي http://www.officena.net/ib/index.php?showtopic=38479&view=findpost&p=209664 ولكن لا ادري لم بخسته حقه
  14. هذا الكود لم اكتبه انا بل كتبه أكسس عن طريق المعالج اضفت زر فقام اكسس بباقي العملية وهو أمرلفتح الاستعلام فقط وليس له علاقة بالشرط او التصفية آمل ان اكون اوضحت لك .
  15. بعد اذن اخي kemas احرص اخي على كتابة الكائنات والعناصر بحروف انجليزية ، وابتعد عن وضع المسافات الفارغة بين الكامات اليك مثالك معدلا الغاء msgboxUP.rar
  16. بالطبع هو الكود نفسه وقد قمت بتجربته قبل ان اجيبك وهذا مثال شغال % open.rar
  17. ابو البراء ألف مبروك ... جعله الله مباركا اين ما كان
  18. جميل ،،، وباعتبار ان الحذف سيتم من زر خاص بالحذف وباعتبار خانة الخيار لا تظهر للمستخدم هذا تعديل على الكود أيضا : Private Sub comand1_Click() answer = MsgBox("حقا تريد حذف الموظف ?", vbYesNo) If answer = vbYes Then Me.Check1 = True date_workEnd = Date Me.Requery Else Me.Check1 = False date_workEnd = "" End If End Sub
  19. نحمد الله على سلامتك ... جعلها الله سلامة دائمة ثم أحمده على التوفيق .
  20. عن طريق النسخ واللصق انشأت قاعدة جديدة انظر المرفق : هذه احدى الحلول aad.rar
×
×
  • اضف...

Important Information