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

محمد احمد لطفى

الخبراء
  • Posts

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

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

  • Days Won

    2

كل منشورات العضو محمد احمد لطفى

  1. جزاك الله أستاذى @دروب مبرمج دالة DlookUp تنقل الاسم كاملا والترجمة من الانترنت ليست مظبوطة 100%
  2. تم ارسال المرفق جزاك الله خيراً
  3. أستاذى @kanory نعم أعمل على ترجمة اسماء ولكن ممكن الاستفاده به فى أشياء أخرى
  4. المقصد أن دالة Replace تكون فى الوحدة النمطية Function E_Word(E As String) As String E = Replace(E, "محمد", "Mohammed") E_Word = E End Function فهل يمكن ربط الكلمتين عن طريق الجدول 😇
  5. تفضل اذا فتحت النموذج سيم التنفيذ بالتوفيق Test.mdb
  6. أول طلب يمكن عمل ذلك عن طريق استعلام تحديث وسوف يتم عمله على جميع الجداول وتحويله الاستعلامات الى vba و تشغيله عند فتح البرنامج بالتوفيق ثانيا Me![Filed].BackColor = vbRed Me![Filed].ForeColor = vbWhite Me.Filed.FontSize = 22 بالتوفيق
  7. أستاذ @kanory جاء فى ذهنى هذا الموضوع و أستخدمه فى عملى و لكن الميزة فى دالة Replace أنها سريعة واحتاجها فى مربع نص عيبها أن اضافة الكلمات تكون فى الوحدة النمطية ..., وقد تأخذ كلمات كثيرة فكنت أريد بدلا من أن تكون اللمات فى الوحدة النمطية تكون فى جدول كلمات فقط الجملة ممكن استخدام دالة DlookUp
  8. هناك استعلام لتغير الكلمات ولكن أريد بدل اضافة الكلمات فى الوحدة النمطية أريدها عن طريق الجدول بدالة Replace و هل يمكن لدالة Replace أن تغير كامل الجملة ([الحقل]) و ليس كلمة واحدة وجزاكم الله كل خيراً Replace.accdb
  9. جزاكم الله خيراً جميع الحلول صحيحة
  10. تفضل شاهد هذا الموضوع وهناط طريقة أخرى
  11. أستاذى @Eng.Qassim جزاك الله خيراً ما أبحث عنه أنه هناك طريقة ( يمكن تخزينهم بشكل مؤقت لاعادتهم كقيمة مؤقته أو جدول مؤقت ) مثل TempVars
  12. تفضل هذا مثال لأستاذ ابو جودى فى النموذج الذى يحمل اسم Form1 كود فى حدث الوقت يتم تصفير العداد عند التنقل والعمل على قاعدة البيانات وفى حالة ترك القاعدة دون العمل عليها يتم اغلاق القاعدة بالتوفيق idle time.rar
  13. أستاذ @kkhalifa1960 مش عارف أطبق الكود و للتوضيح قبل رسالة هل تريد مسج السجل هناك كود لمسح بيانات حقلين كما الملف المرفق
  14. الزرار سوف يمسح البيانات و لكن للأمان اذا تم الضغط خطأ على الزرار اريد استرجاع البيانات فى انتظار حل جزاك الله خير
  15. من خلال زرار Go سيتم مسح خليتن من النموذج الرئيسى و لكن من خلال نفس الزار أريد استرجاع البيانات هل يمكن عمل Undo لها أم هل يمكن تخزينهم بشكل مؤقت لاعادتهم فى حالة تخزين البيانات فهى لن تخزن دائما وحزاكم الله كل خير test2023-1.mdb
  16. تفضل جرب DLookup("FieldName" , "TableName" , "Criteria = n") "mez1 = detalis" او ضع مثال بالنوفيق و شاهد هذا الموضوع
  17. تفضل جرب بالتوفيق Ctrl + Shift + f = SendKeys "^+F"
  18. @kkhalifa1960 لا والله جزاك الله كل خير حلولك دائما جيدة و لكن تقريبا أنا لما بسأل سؤال مبعرفش اشرحه على اكمل وجه مثلا فى موضوع أمس (تغير اسم الحقل حسب قيمة الخلية) ما كنت أريده هو تغير حقل LastNumberx1 تغيير 1 الى 2,3,4,5 وكان الهدف معرفة الطريقة لأنى سأعمل على أكثر من حقل و ليست حقل واحد
  19. البرنامج عبارة عن صانع ايقونات أى صورة عاوز تخليها ايقونة امسكها بالمواس و حطها فى الصندوق بصراحة أول مرة أشوفة وهو صغير فى حجمه كبير فى عمله
  20. أستاذى @kkhalifa1960 حفظكم الله وبارك في جهودكم
  21. أستاذى @Barna أسأل الله عزّ وجلّ أن يجزيكم عنا خير الجزاء وأن يبارك لكم في عملكم.
  22. أستاذى @kkhalifa1960 طريقة جميلة ولكن أريد الحل عن طريق الكود لأن الخلايا الفعلية عندى خلايا جدول أخر ربنا يبارك فيك و يحفظك هو زى اضافة متغير اخر x a = 1 , x = [LastNumberx1] a = 2 , x = [LastNumberx2] a = 3 , x = [LastNumberx3] a = 4 , x = [LastNumberx4] a = 5 , x = [LastNumberx5] Forms![test1]!x = Forms![test1]![NumberEnd] أو استخدام array بس أنا مش عارف تكتب اذاى
  23. أريد تغيير اسم الحقل LastNumberx1 بناء على قيمة الخلية NumberEnd عندما يكون الحقل NumberEnd = ؟ NumberEnd = 1 يتم النقل LastNumberx1 NumberEnd = 2 يتم النقل LastNumberx2 NumberEnd = 3 يتم النقل LastNumberx3 NumberEnd = 4 يتم النقل LastNumberx4 NumberEnd = 5 يتم النقل LastNumberx5 حيث a = Forms![test1]![NumberEnd] و يتم التغيير على السطر التالى Forms![test1]![LastNumberx1] = Forms![test1]![NumberEnd] والمقصود من الامر حتى لا أكرر الكود خمس مرات Dim a As Integer a = Forms![test1]![NumberEnd] If Forms![test1]![NumberEnd] = a Then Forms![test1]![LastNumberx1] = Forms![test1]![NumberEnd] End If test2023-1 (3).mdb
×
×
  • اضف...

Important Information