أخي ابو يزن
طرشت لك الرسالة السابقة من هاتفي ، فما فيه خاصية المنتدى العادي ، لذلك طلعت الكتابة بالمقلوب
المفروض ان المبرمج يكون يكتب الاسم وبطريقة مباشرة ، مثل: أبو يزن ، بدل ما يكتب أ ب و ي ز ن ، او يكتب ارقام الحروف (القائمة التي وضعها اخينا أبا عمر ascii table ، وانظر في الاسفل) ،
مثل:
AppDesigner="أبو يزن"
ولكن اذا اراد المبرمج ان يتحاشى الحروف العربية في الكود (قد يكون السبب لأن بعض اعدادات الكمبيوترات تحولها الى علامات استفهام ؟؟؟؟ ) ، فانه سيضطر الى استعمال ارقام الحروف !
مثل:
لاحظ في الاكسس ، لما تريد تعمل زر لنموذج اسمه بالعربي (مثل أبو يزن) ، فالاكسس يعمل هذا الكود:
docmd.openform chr(195) & chr(200) & chr(230) & chr(32) & chr(237) & chr(210) & chr(228)
بدل عن الامر المتعارف:
docmd.openform "أبو يزن"
'-
'-
والان وبعد هذه المقدمة
عملت لك كود صغير يغير الاسم من حروف الى ارقام:
a = "أبو يزن"
b = ""
c = ""
For I = 1 To Len(a)
c = c & Mid(a, I, 1) & "=" & Asc(Mid(a, I, 1)) & " , "
b = b & "chr(" & Asc(Mid(a, I, 1)) & ") & "
Next I
c = Mid(c, 1, Len(c) - 3)
b = Mid(b, 1, Len(b) - 3)
Debug.Print c
Debug.Print b
والنتيجة (السطر الاول للعلم فقط ، بينما السطر الثاني هو الذي يحتوي على الكود):
أ=195 , ب=200 , و=230 , =32 , ي=237 , ز=210 , ن=228
chr(195) & chr(200) & chr(230) & chr(32) & chr(237) & chr(210) & chr(228)
يعني بدل ما تكتب اسمك بهذه الطريقة:
AppDesigner="أبو يزن"
اكتبه:
AppDesigner=chr(195) & chr(200) & chr(230) & chr(32) & chr(237) & chr(210) & chr(228)
والجدول اللي أخوي ابا عمر تركه لنا هو للحروف اللاتينية فقط ، والرابط فيه جدول للغة العربية كذلك:
http://www.ascii.ca/cp864.htm
جعفر