تفکیک اعداد و حروف در تکست باکس

[somayeh_70]

با سلام
اساتید گرامی در فایل پیوست نیاز دارم وقتی نوشته ای در تکست باکس فرم وارد میشه بصورت تفکیک شده یعنی اعداد در یک قسمت و حروف در تکست باکس دیگری درج شوند

لطفا اگر کسی میتونه کمک کنه و فایل پیوست رو اطلاح و تکمیل کنه

با تشکر و سپاس

[somayeh_70]

یعنی تو این سایت کسی نیست که کمک کنه

[saeed1234n]

با سلام

دوست عزیز کد زیر را در رویداد کلیک کامند باتن بنویسید


tedad = Len(cod)
Text6 = ""
Text8 = ""
For i = 1 To tedad
horof = Mid(cod, i, 1)


If IsNumeric(horof) Then
Text6 = Text6 + horof
Else
Text8 = Text8 + horof
End If
Next i

[somayeh_70]

دوست عزیز واقعا لطف کردی
ممنون:قلب:

[somayeh_70]

ببخشید دوست عزیز کد شما در فایل پیوست وارد کردم و بدرستی کار کرد ولی وقتی در فایل اصلی وارد میکنم این ارور رو میده
function call on left-hand side of assignment must return variant
میشه لطفا راهنمایی کنید

[saeed1234n]

سلام
دوست عزیز ابتدا متغیر ها را تعریف کنید

اگر در یک تابع بکار بردید وتابع را فراخوانی می کنید

دقت کنید که هنگام فراخوانی تابع قوانین را بدرستی بکار برده باشید

اگر مشکل حل نشد

فایلتون را قرار دهید تا بررسی شود .

با تشکر نادری

[somayeh_70]

سلام جناب نادری
ممنون دوست عزیز لطف کردید مشکل حل شد
تو یکی ازماژولها تابع HOROF داشتم . برا همین خطا میگرفت تو کد شما اسمش رو عوض کردم درست شد

بازم تشکر میکنم خیلی کمک کردی