نقل قول نوشته شده توسط narpco مشاهده تاپیک
بله دقیقا مشکل همون مطلبی هستکه فرمودین

مثلا مشکل در نام فرضی ......کک کاک کوکی -------یا -----علی یاری میرکریمی وجود داره

و مثلا در رضا کمال مشکلی نیست

اون کد تبدیل رو هم در ONPRESS فرم قرار دادم وحتی در BEFOR و AFTER....UPDATE

درست نشد *****نام هایی که تایپ میشوند همگی فارسی هستن نمیشه هی بگیم دستی درست کنند ......سردردگرفتم خدایی:)))

نمیدونم چرا کد تبدیل حروف عمل نمی کنه


توی اون برنامه اولی که نوشتین درست کار می کنه مشکلی نیست تو برنامه من مشکل داره

بیشتر روی حرف ی مشکل داریم که اگر SHFT+x بزنیم درست میشه ولی چطوری باید اتوماتیک کرد این کار رو
کدهای زیر تمام حروف فارسی ی و ک را در جدول table1 تبدیل به ي و ك عربی می کند . در رویداد CMDBBB_Click در ابتدای کدها در رویداد CMDBBB_Click عبارت call CmdFldReplace درج کن
اگر جدولت نام دیگری دارد آن را جایگزین table1 کن !



Private Sub CmdFldReplace()

On Error Resume Next

Dim rs As DAO.Recordset

Dim fld As DAO.Field

Set rs = CurrentDb.OpenRecordset("Table1")

Do While Not rs.EOF

rs.Edit

For Each fld In rs.Fields

   If Not IsNull(fld) Then

      If InStr(fld, ChrW(1705)) Or InStr(fld, ChrW(1740)) Then Debug.Print fld

      fld = Replace(fld, ChrW(1705), ChrW(1603))

      fld = Replace(fld, ChrW(1740), ChrW(1610))

   End If

Next

rs.Update

rs.MoveNext

Loop

rs.Close

Me.Refresh

End Sub