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

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

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

  • Posts

    1,925

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

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

  • Days Won

    2

 نوع المحتوي 

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

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

Important Information

  I accept