محمد احمد لطفى قام بنشر يناير 14, 2019 مشاركة قام بنشر يناير 14, 2019 السلام عليكم ورحمة الله و بركاته فى هذا المثال عندما اريد تغير أخر حرف فى الكلمة مثلا ي تتغير الى ى T = Replace(T, "ي ", "ى ") تتغير الكلمات الا الكلمة التى باخر الجمله لأن لا يوجد بعدها مسافة كيف يمكن تغير الحرف بالكلمات التى بأخر الجملة وجزاكم الله خيرا Update.mdb رابط هذا التعليق شارك More sharing options...
Barna قام بنشر يناير 15, 2019 مشاركة قام بنشر يناير 15, 2019 ضع هذا في الاستعلام لديك ...... B: Replace([test];"ي";"ى") 2 رابط هذا التعليق شارك More sharing options...
Barna قام بنشر يناير 15, 2019 مشاركة قام بنشر يناير 15, 2019 مشكلة هذا الاستخدام تغير كل اسم فيه ي مثلا أمين يجعلها أمىن وهكذا ....... فاحذر منها ؟؟؟؟؟؟؟؟؟؟؟؟ 2 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر يناير 15, 2019 الكاتب مشاركة قام بنشر يناير 15, 2019 29 دقائق مضت, Barna said: ضع هذا في الاستعلام لديك ...... B: Replace([test];"ي";"ى") 23 دقائق مضت, Barna said: مشكلة هذا الاستخدام تغير كل اسم فيه ي مثلا أمين يجعلها أمىن وهكذا ....... فاحذر منها ؟؟؟؟؟؟؟؟؟؟؟؟ أشكرك أستاذى و لكن الحرف المطلوب تغييره فى اخر الجمله أو الكلمه هو ي يتغير الى ى رابط هذا التعليق شارك More sharing options...
عبد الله قدور قام بنشر يناير 15, 2019 مشاركة قام بنشر يناير 15, 2019 السلام عليكم اتمنى ان يكون هذا الحل يكفي بالغرضUpdate.mdb 1 رابط هذا التعليق شارك More sharing options...
Barna قام بنشر يناير 15, 2019 مشاركة قام بنشر يناير 15, 2019 8 دقائق مضت, عبد الله قدور said: السلام عليكم اتمنى ان يكون هذا الحل يكفي بالغرضUpdate.mdb ماذا لو كان الاسم علي ...... 1 رابط هذا التعليق شارك More sharing options...
عبد الله قدور قام بنشر يناير 15, 2019 مشاركة قام بنشر يناير 15, 2019 هل عندك طريقة يستطيع الكود من خلالها معرفة إذا كانت ي في آخر الكلمة هي صحيحة ولا يجب استبدالها أم هي خاطئة ويجب استبدالها للاسف أنا لا أملك هذه الكود 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر يناير 15, 2019 الكاتب مشاركة قام بنشر يناير 15, 2019 شكر لك ستاذى @عبد الله قدور 3 ساعات مضت, عبد الله قدور said: السلام عليكم اتمنى ان يكون هذا الحل يكفي بالغرضUpdate.mdb 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 هكذا يعمل الكود على كل الكلمات جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر يناير 15, 2019 الكاتب مشاركة قام بنشر يناير 15, 2019 3 ساعات مضت, Barna said: ماذا لو كان الاسم علي ...... نستخدم الكود بدون شرط 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 رابط هذا التعليق شارك More sharing options...
ابو محمد 316 قام بنشر يناير 15, 2019 مشاركة قام بنشر يناير 15, 2019 السلام عليكم لو كان عند حقل B في جدول TB1 وكان نوع هذا الحقل رقم كيف يمكن ان استبدل الرقم 9 برقم 3 دفعه واحدة في الجدول بحيث يكون حدث في النموذج بالتوفيق إن شاء الله رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر يناير 15, 2019 الكاتب مشاركة قام بنشر يناير 15, 2019 19 دقائق مضت, ابو محمد 316 said: السلام عليكم لو كان عند حقل B في جدول TB1 وكان نوع هذا الحقل رقم كيف يمكن ان استبدل الرقم 9 برقم 3 دفعه واحدة في الجدول بحيث يكون حدث في النموذج بالتوفيق إن شاء الله يمكن عمل ذلك من خلال الاستعلام او عند اضافة سجل جديد و الله أعلم رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر يناير 16, 2019 الكاتب مشاركة قام بنشر يناير 16, 2019 (معدل) أستاذى @عبد الله قدور واجهتنى مشكلة اذ ان بهذه الطريقة يحذف جميع الياء فى الجملة التى اخرها ياء مثلا عيد مصطفي تصبح عىد مصطفى تم تعديل يناير 16, 2019 بواسطه محمد احمد لطفى رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر يناير 18, 2019 الكاتب مشاركة قام بنشر يناير 18, 2019 If Right(T, 1) = "ي" Then End If باستخدام الكود اذا كان اخر حرف ي أن يتحول هوه فقط الى ى وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر يناير 22, 2019 مشاركة قام بنشر يناير 22, 2019 السلام عليكم اخى الكريم هل ممكن ان اتدخل بعد اذن اساتذتنا اخى السائل ما فهمته انك تريد استبدال اخر حرف فقط فى الجملة اذا كان ي يصبح ى بمعنى (مصطفي عيد مصطفي تصبح مصطفي عيد مصطفى فقط اخر كلمة فى الجملة صح كدا ؟؟ 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر يناير 22, 2019 الكاتب مشاركة قام بنشر يناير 22, 2019 3 دقائق مضت, Elsayed Bn Gemy said: السلام عليكم اخى الكريم هل ممكن ان اتدخل بعد اذن اساتذتنا اخى السائل ما فهمته انك تريد استبدال اخر حرف فقط فى الجملة اذا كان ي يصبح ى بمعنى (مصطفي عيد مصطفي تصبح مصطفي عيد مصطفى فقط اخر كلمة فى الجملة صح كدا ؟؟ أستاذى @Elsayed Bn Gemy صحيح المطلوب تغير اخركلمة فى الجملة اذا كانت ي تتحول الى ى رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر يناير 22, 2019 مشاركة قام بنشر يناير 22, 2019 (معدل) اذن تفضل اخى الكريم وحدة نمطية صغطها مخصوصا لك Function LastChar(last_input) If Nz(last_input, "") = "" Then Exit Function If Mid(last_input, Len(last_input), 1) = "ي" Then NewString = Left(last_input, Len(last_input) - 1) & "ى" LastChar = NewString Else LastChar = last_input End If End Function طبعا هتضيف الكود دا فى الاستعلام NewName: LastChar([OldName]) مع تغيير oldname الى اسم حقل الاسماء كما فى الصورة وهذه صورة من الحل شكرا لك تم تعديل يناير 22, 2019 بواسطه Elsayed Bn Gemy 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر يناير 22, 2019 الكاتب مشاركة قام بنشر يناير 22, 2019 (معدل) أستاذى @Elsayed Bn Gemy جزاك الله كل خير نعم هو المطلوب ممكن اضافة صغيرة Function C_Word(T As String) As String T = Replace(T, "ي ", " ى") C_Word = T End Function هل ممكن جعل الوحدة النمطية القديمة تضاف الى الجديد كعمود واحد فى الاستعلام حيث يتم تغير اي كلمة بها ي و مسافة الى ى ومسافة مثلا مصطفي عيد الى مصطفى عيد تم تعديل يناير 22, 2019 بواسطه محمد احمد لطفى رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر يناير 22, 2019 مشاركة قام بنشر يناير 22, 2019 تضاف كعمود منفصل عن الجديدة هذا فقط لو اضيفت الى الجديدة سيتم تغيير كل حروف الياء المنقوطة الى ياء بدون نقط ولكن اخبرنى لماذا تريد عمل ذلك ؟ 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر يناير 22, 2019 الكاتب مشاركة قام بنشر يناير 22, 2019 (معدل) أعمل على تنقية بيانات كثيرة و تصادف أن حرف ي فى اخر الكلمة كثير جدا فكنت أكتب كل اسم فى الوحدة النمطية ولكن هذه الطريقة أفضل جزاك الله خيراً أستاذى هل يمكن النظر فى هذا الموضوع https://www.officena.net/ib/topic/88236-وجود-ايقونة-البرنامج-على-شريط-المهام-دائما/ تم تعديل يناير 22, 2019 بواسطه محمد احمد لطفى رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر يناير 23, 2019 مشاركة قام بنشر يناير 23, 2019 (معدل) 7 ساعات مضت, محمد احمد لطفى said: أستاذى @Elsayed Bn Gemy Function C_Word(T As String) As String T = Replace(T, "ي ", " ى") C_Word = T End Function هل ممكن جعل الوحدة النمطية القديمة تضاف الى الجديد كعمود واحد فى الاستعلام حيث يتم تغير اي كلمة بها ي و مسافة الى ى ومسافة مثلا مصطفي عيد الى مصطفى عيد معلش مخدتش بالى من بقية السؤال انت عاوز اى حرف ي خلفه مسافة يتم تغييرة صح كدا ؟؟ دى محتاجة اختراع وحدة نمطية تانية بجانب اللى معاك هههههههههههه فممكن تمهلنى باكر ان شاء الله لانى على الموبايل والله الان تم تعديل يناير 23, 2019 بواسطه Elsayed Bn Gemy 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر يناير 23, 2019 الكاتب مشاركة قام بنشر يناير 23, 2019 1 ساعه مضت, Elsayed Bn Gemy said: معلش مخدتش بالى من بقية السؤال انت عاوز اى حرف ي خلفه مسافة يتم تغييرة صح كدا ؟؟ دى محتاجة اختراع وحدة نمطية تانية بجانب اللى معاك هههههههههههه فممكن تمهلنى باكر ان شاء الله لانى على الموبايل والله الان صحيح هذا هو المطلوب هل يمكن جعل LastChar = last_input LastChar = T فقط رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر يناير 23, 2019 مشاركة قام بنشر يناير 23, 2019 السلام عليكم اخى الكريم اضف هذه الوحدة النمطية ولا تقم بمسح السابقة لانهم سيعملو سويا Function ForSearch(Astr As Variant) As Variant Dim i As Integer Dim L As Variant, NewStr As Variant If Nz(Astr, "") = "" Then Exit Function Astr = CStr(Astr) For i = 1 To Len(Astr) L = Mid(Astr, i, 1) If L = "ي" And Mid(Astr, i + 1, 1) = " " Then L = Mid(Astr, InStr(Astr, L), 1) Select Case Asc(L) Case 237: L = Chr(236) Case Else: L = L End Select End If NewStr = NewStr & L Next ForSearch = NewStr End Function ثم قم بتعديل الاستعلام ليصبح الحقل على هذا الشكل NweName: LastChar(ForSearch([OldName])) وهذه صورة من الاستعلام 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر يناير 23, 2019 الكاتب مشاركة قام بنشر يناير 23, 2019 جزالك الله خير أستاذى @Elsayed Bn Gemy هل يمكن النظر فى هذا الموضوع عندما يتثنى لك الوقت اقتباس رابط هذا التعليق شارك More sharing options...
figo82eg قام بنشر يناير 25, 2019 مشاركة قام بنشر يناير 25, 2019 اقتباس LL في ٢٣/١/٢٠١٩ at 10:39, Elsayed Bn Gemy said: السلام عليكم اخى الكريم اضف هذه الوحدة النمطية ولا تقم بمسح السابقة لانهم سيعملو سويا Function ForSearch(Astr As Variant) As Variant Dim i As Integer Dim L As Variant, NewStr As Variant If Nz(Astr, "") = "" Then Exit Function Astr = CStr(Astr) For i = 1 To Len(Astr) L = Mid(Astr, i, 1) If L = "ي" And Mid(Astr, i + 1, 1) = " " Then L = Mid(Astr, InStr(Astr, L), 1) Select Case Asc(L) Case 237: L = Chr(236) Case Else: L = L End Select End If NewStr = NewStr & L Next ForSearch = NewStr End Function ثم قم بتعديل الاستعلام ليصبح الحقل على هذا الشكل NweName: LastChar(ForSearch([OldName])) وهذه صورة من الاستعلام اقتباس اقتباس ممكن اخلى الكريم إضافة الوحدات النمطية المذكورة بمثال لأنى حاولت كثير أن اتبع التعليمات ولكن لم انجح رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر يناير 25, 2019 الكاتب مشاركة قام بنشر يناير 25, 2019 6 ساعات مضت, figo82eg said: تفضل Update.mdb رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان