فصل النص فى اكسيس

[Abdelaziz Osman]

السلام عليكم ورحمة الله

لدي حقل فى اكسيس باسم  maal داخل جدول باسم TAGE

الحقل يحتوى على بيانات على سبيل المثال هكذا  (  025365396966  محمد سيد حسين )

اريد استعلام يقوم  بانشاء جدول يستخرج رقم الهاتف فى حقل مستقل وباقى الاسم فى حقل مستقل اخر

[ابوخليل]

لفصل الحروف والارقام داخل الاستعلام انت بحاجة الى دالة

مثل هذه

'فصل الحروف
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
Else
lets3 = lets3 & lets
End If
Next
textNum = lets3
End Function

'فصل الارقام
Public Function Numtext(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
End If
Next
Numtext = lets2
End Function

ولإنشاء جدول جديد يمكنك استخدام الاستعلام نفسه

انظر المرفق

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