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

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

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    1939

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

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

  • Days Won

    2

 نوع المحتوي 

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

  1. محمد احمد لطفى
    صحيح هذا هو المطلوب هل يمكن جعل LastChar = last_input LastChar = T فقط
  2. محمد احمد لطفى
    أعمل على تنقية بيانات كثيرة و تصادف أن حرف ي فى اخر الكلمة كثير جدا فكنت أكتب كل اسم فى الوحدة النمطية ولكن هذه الطريقة أفضل جزاك الله خيراً أستاذى هل يمكن النظر فى هذا الموضوع https://www.officena.net/ib/topic/88236-وجود-ايقونة-البرنامج-على-شريط-المهام-دائما/
  3. محمد احمد لطفى
    أستاذى @Elsayed Bn Gemy جزاك الله كل خير نعم هو المطلوب ممكن اضافة صغيرة Function C_Word(T As String) As String T = Replace(T, "ي ", " ى") C_Word = T End Function هل ممكن جعل الوحدة النمطية القديمة تضاف الى الجديد كعمود واحد فى الاستعلام حيث يتم تغير اي كلمة بها ي و مسافة الى ى ومسافة مثلا مصطفي عيد الى مصطفى عيد
  4. محمد احمد لطفى
    أستاذى @Elsayed Bn Gemy صحيح المطلوب تغير اخركلمة فى الجملة اذا كانت ي تتحول الى ى
  5. محمد احمد لطفى
  6. محمد احمد لطفى
    If Right(T, 1) = "ي" Then End If باستخدام الكود اذا كان اخر حرف ي أن يتحول هوه فقط الى ى وجزاكم الله خيرا
  7. محمد احمد لطفى
    للرفغ
  8. محمد احمد لطفى
    أستاذى @عبد الله قدور واجهتنى مشكلة اذ ان بهذه الطريقة يحذف جميع الياء فى الجملة التى اخرها ياء مثلا عيد مصطفي تصبح عىد مصطفى
  9. محمد احمد لطفى
    للرفغ
  10. محمد احمد لطفى
    يمكن عمل ذلك من خلال الاستعلام او عند اضافة سجل جديد و الله أعلم
  11. محمد احمد لطفى
    نستخدم الكود بدون شرط Function C_Word(T As String) As String If Right(T, 1) = "ي" Then T = Replace(T, "ي", "ى") End If T = Replace(T, "ي", "ى") C_Word = T End Function
  12. محمد احمد لطفى
    شكر لك ستاذى @عبد الله قدور Function C_Word(T As String) As String If Right(T, 1) = "ي" Then T = Replace(T, "ي", "ى") End If T = Replace(T, "ي", "ى") C_Word = T End Function هكذا يعمل الكود على كل الكلمات جزاك الله خيرا
  13. محمد احمد لطفى
    أشكرك أستاذى و لكن الحرف المطلوب تغييره فى اخر الجمله أو الكلمه هو ي يتغير الى ى
  14. محمد احمد لطفى
    السلام عليكم ورحمة الله و بركاته فى هذا المثال عندما اريد تغير أخر حرف فى الكلمة مثلا ي تتغير الى ى T = Replace(T, "ي ", "ى ") تتغير الكلمات الا الكلمة التى باخر الجمله لأن لا يوجد بعدها مسافة كيف يمكن تغير الحرف بالكلمات التى بأخر الجملة وجزاكم الله خيرا Update.mdb
  15. محمد احمد لطفى
    للرفغ
  16. محمد احمد لطفى
    للرفغ
  17. محمد احمد لطفى
    بالبحث بالمنتدى وجدت بعض الامثله الأن عند الضغط على زرار رقم 2 ينزل البرنامج بجوار الساعة عند الضغط على 1 تنزل النافذة فى شريط المهام مع ابقاء جزء فوق قائمة استارت المطلوب عدم ظهور الجزء الذى فوق قائمة ستارت وجزاكم الله خيرا كهرباء_3.mdb
  18. محمد احمد لطفى
    للرفغ
  19. محمد احمد لطفى
    أستاذى @فارس بني هلال النموذج المرفق لا يظهر الايقونة فى شريط المهام و البرنامج على سطح المكتب و لكنى لاحظت عند تنزيل البرنامج ينزل بجوار الساعة و عند الضغط عليه تظهر الايقونة على شريط المهام مع رسالة للبرنامج فهل يمكن عملها على النموذح المرفق فأنا ليس لى خبرة فى هذا الامر و جزاك الله خيراً
  20. محمد احمد لطفى
    السلام عليكم ورحمة الله و بركاته فى هذا البرنامج تم اخفاء خلفية اكسيس و عند تنزيل أكسيس الى شريط المهام يكون هناك ايقونة له و لكن عندما يكون على سطح المكتب تختفى الايقونة المطلوب عندما يكون البرنامج على سطح المكتب (يعمل) يكون له ايقونة على شريط المهام حتى و لو بجوار الساعة وجزاكم الله خيرا test120.mdb كهرباء_3.mdb
  21. محمد احمد لطفى
    بارك الله فيك وجعله فى ميزان حسناتك
  22. محمد احمد لطفى
    جزاك الله خيراً أستاذى
  23. محمد احمد لطفى
    لا انه يعمل و لكن كما بالصورة التى بالاعلى لا أريد أن يعمل على كل السجلات التى رقمها واحد عندما نضغط على رقم التعامل 1 عدد 3 يحذف من عدد 3 الى أخره فقط كما بالمثال بالمشاركة الاعلى
  24. محمد احمد لطفى
    أستاذى @ابوخليل ولكن بهذه الطريقة سوف يتم الامر على جميع التعامل و ليس البعض أننى أعمل بالطريقة التالية و لكن كنت ابحث عن شيى افضل جزاك الله خيراً أستاذى test120.mdb
  25. محمد احمد لطفى
    أوافق أستاذى بكل تاكيد
×
×
  • اضف...

Important Information

  I accept