If the zip is the last item in the FullAddress field, you could use:
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=12697
ParseWord([FullAddress], -1, " ", True, True)
where the ParseWord() function is copied from here:
http://allenbrowne.com/func-10.html
Or, you could pull all the numbers out of the field with:
DropNonDigit([FullAddress])
where the DropNonDigit() function is below.
Function DropNonDigit(varIn As Variant) As Variant
Dim i As Integer
Dim strOut As String
Dim iChar As Integer
If Not IsNull(varIn) Then
For i = 1 To Len(varIn)
iChar = Asc(Mid(varIn, i, 1))
If iChar >= vbKey0 And iChar <= vbKey9 Then
strOut = strOut & Chr$(iChar)
End If
Next
End If
If strOut = vbNullString Then
DropNonDigit = Null
Else
DropNonDigit = strOut
End If
End Function
--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users -
http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=12697
"GOL"
wrote in message
news:2EAC2046-9337-4C60-A9F1-0D03B7E1B27D@microsoft.com...
>I need to delete everything before the first numeral in a field.
> For example, I have: Old Hickory, TN, 99385
> I want this to only read the zip: 99385
>
> Help please......
Our Donation Goal
: Why Donate? : Donate Today! : Donate Anonymously (ਗੁਪਤ) : Our Family of Supporters 
Linear Mode
