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

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

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

  • Posts

    1942

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

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

  • Days Won

    2

 نوع المحتوي 

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

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

Important Information

  I accept