ضع هذا الكود في وحدة نمطية لكن تنبه ( هذا الكود يغير آخر حرف في الكلمة وليس الأول ) فإذا استطعت أن تغير فيه ما تريد فاعل .. لأنني لا أعرف كيف أعدله ,,
لكني بحثت لك فوجدته . طبعا أنشئ استعلام بالجدول الذي تريد عليه التعديل .
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