We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Public Function NumericValue( strFullValue As String) as String Dim lngLoop As Long Dim strReturn As String For lngLoop = 1 To Len(strFullValue) If IsNumeric(Mid(strFullValue,lngLoop,1)) Then strReturn = strReturn & Mid(strFullValue,lngLoop,1) End If Next lngLoop NumericValue = strReturn End Function ********************** I then call it in the query as JCode: NumericValue([Job Code])
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Sub form showing data is being saved but cannot be displayed..||31||67|
|How to append a form's present recordset to an existing table.||2||24|
|Access 2010 Changing String to Date with Leading Zero||11||30|
Join the community of 500,000 technology professionals and ask your questions.