עברית הפוכה
אם ניסית את כל האפשרויות, אז נשאר לך רק להפוך את העברית בחזרה. להלן קוד להפיכת מחרוזת (שמור כפונקציה, אבל כמובן ניתן גם לשמור זאת כסברוטינה): ()Public Function rev_str ´ הפיכת מחרוזת Dim dbs As Database Dim rst As Recordset Dim i As Variant Dim j As Variant Dim k As Variant ()Set dbs = CurrentDb ´הטבלה בה נמצא השדה - T_DATIM_2 ("Set rst = dbs.OpenRecordset("T_DATIM_2 rst.MoveFirst Do Until rst.EOF ´השדה אותו יש להפוך - Field79 (j = Right([rst]![Field79], 1 ([k = Len([rst]![Field79 For i = 2 To k (j = j & Left(Right([rst]![Field79], i), 1 Next i rst.Edit rst![Field79] = j rst.Update rst.MoveNext Loop End Function
