(تمت الاجابة) عكس الكتابة

[ابوزينب]

اخوانى الكرام ارجو المساعد فى تحويل الكلام الاسم يظهر عندى

دﻣﺣأ ﻰطﺎﻌﻣﻟاوﺑأ دﻣﺣأ

والصحيح احمد ابو المعاطى احمد كيف افعل ذلك بكود

[أ / محمد صالح]

أخي الكريم

استعمل هذه الدالة

Function reverse_string(str As String) As String

Dim text As String, n as integer

text = ""

For n = 0 To Len(str) - 1

text = text & Mid(str, (Len(str) - n), 1)

Next n

reverse_string = text

End Function

وطريقة استدعائها كالتالي

reverse_string("حلاص دمحم")

[ابوزينب]

[شكرا على سرعة الرد ولكن استأذن فى مثال عملى

[منتصر الانسي]

بعد اذن الأستاذ mas123

كما يوجد دالة مضمنة ضمن أكسس وهي دالة StrReverse وتقوم بنفس العمل

مرفق لك مثال يوضح طريقة إستعمال هذه الدوال

تحياتي,,,

db4.rar

[حامل المسك]

شكر الله لكم رائع جدا ..

[ابوزينب]

شكرا لكم جزاكم الله خيرا