تحويل الارقام الى حروف يتم تحديدها يدويا

يا اخوه هل من مجيييييييييييييييييييييييييييييييب

تفضل أخوي

هذه محاولة على السريع

Dim Numbers() As Byte, Length As Byte, I As Byte
Dim CurrentText As String, NewString As String
CurrentText = Me.TxtD1
If IsNumeric(CurrentText) Then
CurrentText = Int(Abs(CDbl(CurrentText)))
Length = Len(CurrentText)
ReDim Numbers(Length)
For I = 0 To Length - 1
Numbers(I) = CInt(Mid(CurrentText, I + 1, 1)) + 64
NewString = NewString & Chr(Numbers(I))
Next
Me.TxtD2 = NewString
Else
MsgBox ("Please Enter Numbers Only")
End If

إذا كنت تريد حروف صغيرة ... استبدل الرقم 64 بالكود ب 96 ... و إذا تريد التحويل يبدأ من الصفر استبدل الرقم نفسه إلى 65

Convert_Numbers_To_Characters.zip

ما شاء الله

بارك الله فيك أخي الكريم

بس ياريت شوية شرح للكود

اخي مشكور على الرد ولكن قصدي ان اقوم بادخال الحرف المقابل للرقم يدويا في جدول يتم التعويض من خلاله

وقد حاولت ولكن المحاولة لم تنجح الا مع الارقام المكونة من خانه واحدة مع العام اني اريد الرقم من خمس خانات وكذلك الاحرف

Function AHAD(num1)
 Select Case num1
	Case 0
	   HARF1 = DLookup("[0]", "cod")
	Case 1
	   HARF1 = DLookup("[1]", "cod")
	Case 2
	   HARF1 = DLookup("[2]", "cod")
	Case 3
	   HARF1 = DLookup("[3]", "cod")
	Case 4
	   HARF1 = DLookup("[4]", "cod")
	Case 5
	   HARF1 = DLookup("[5]", "cod")
	Case 6
	   HARF1 = DLookup("[6]", "cod")
	Case 7
	   HARF1 = DLookup("[7]", "cod")
	Case 8
	   HARF1 = DLookup("[8]", "cod")
	Case 9
	   HARF1 = DLookup("[9]", "cod")
  End Select
AHAD = HARF1
End Function

ارجو المساعدة يا اخوان

حقيقة موضوعك غير واضح ، واقترح عليك أن تشرح الهدف من المطلوب لتصل المعلومة أسرع

عموما أنا خمنت ما تريد وصممت لك مثال

اختبر المثال عن طريق إجراء Test الموجود بالوحدة النمطية

NumToLetter.rar

جزاك اله كل خير اخي العزيز

وهذا الملف وهو يعمل جيد :rolleyes:

NumToLetter1.rar

اخواني كل الشكر لكم جميعا كنت سابقا قد عملت فكرة ممائلة ولكن بالاكسل، واظن انه بالعمل عليها ستتحول الى أكسس،،

ساحاول وارفقها للافادة باذن الله..

تقوم هذه الطريقة على استدعاء الحرف المقابل لكل رقم من الجدول كما في Dlookup ، يتم ذلك لكل حرف على حدة، ثم تجمع هذه الحروف مع بعضها بالكود لتشكل سلسلة واحدة، ...

والله محاولة فقط ساعمل عليها،،