دالة فصل الحروف عن الارقام والعكس

[mom20088]

السلام عليكم

اريد دالة فصل الحروف عن الارقام  والعكس فى حقل الاكسس حيث الحقل يحتوى على (100ml) وأيضا يحتوى على (1L) 

اريد معادلة تكون نتيجتها (ml) أو (L)  ومعادلة اخرى تكون نتيجتها (100) أو (1) 

يعنى عاوز معادلتين 

شكرا

 

[ابوخليل]

وعليكم السلام

تفضل هذه الدالة textNum عملتها لك يمكنك ان تفصل بها الحروف عن الارقام او العكس

الآن هي مهيأة لفصل الارقم ،  فقط مرر اسم الحقل اليها

وحتى تعكس النتيجة يلزم  تفعيل السطرين 3 ، 4  __ وحجب السطرين  1 ، 2

Public Function textNum(fildHrfRqm As String)
Dim lets, lets2, lets3
Dim i, r As Integer
r = Len(fildHrfRqm)
For i = 1 To r
lets = Mid(fildHrfRqm, i, 1)
If IsNumeric(lets) Then
lets2 = lets2 & lets ' السطر1 خاص بالارقام
Else
'lets3 = lets3 & lets ' السطر3 خاص بالحروف
End If
Next
textNum = lets2 'السطر2خاص بالارقام
'textNum = lets3' السطر4 خاص بالحروف
End Function

 

[mom20088]

أخى العزيز:

شكرا لك على ردك

لكنى محتاج دالة اضعها فى الاستعلام وليس فى النموذج لذلك انا محتاج دالة حسابية وليست دالة فيجول بيسك

[ابوخليل]

نعم هي تعمل في الاستعلام

ساوافيك لا حقا بمثال على ذلك

 

[ابوخليل]

تفضل ، جعلتها دالتين  textNum  و  Numtext

فصل الحروف عن الارقام دالة .rar

[ابوخليل]

وهذا كود لمن اراد فصل الارقام في حقل والحروف في حقل داخل النموذج

Private Sub Command1_Click()
Dim lets
Dim i, r As Integer
r = Len(Me.Text1)
For i = 1 To r
lets = Mid(Me.Text1, i, 1)
If IsNumeric(lets) Then
Me.Text3 = Me.Text3 & lets
Else
Me.Text2 = Me.Text2 & lets
End If
Next
End Sub

باعتبار  Text1 هو الحقل المراد فصله و Text3  لاظهار الارقام  Text2  لاظهار الحروف

[mom20088]

الف شكر أخى الكريم

[إبراهيم عطا]

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

[يونس محمد الخطابي]

الف شكر استاذ ابو خليل وجعل الله ذلك في ميزان حسناتك