بعد كل الشكر والتقدير لكل اساتذتنا الكرام جزاهم الله عنا كل الخير
وهذا الشرح الوافى بالاجابة الشافية والتى رزقنا الله بها على ايد استاذنا الكريم الاستاذ @essam rabea
الكود المستخدم فى المديول
Public Function PHNum(s As String) As String
Dim L As Long, i As Long, temp As String
Dim CH As String
L = Len(s)
temp = ""
PHNum = ""
For i = 1 To L
CH = Mid(s, i, 1)
If IsNumeric(CH) Then
temp = temp & CH
If Len(temp) = 14 Then
PHNum = PHNum & vbCrLf & temp
End If
Else
temp = ""
End If
Next i
End Function
ويتم استدعاء الكود من الاستعلام
PHNum([fild name])
الله يفتح عليك انت يا استاذ