لفصل الحروف والارقام داخل الاستعلام انت بحاجة الى دالة
مثل هذه
'فصل الحروف
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