Macro to remove all the special character in Qry using replace

Yes, there is...

1. Open MS Access database
2. Use ALT+F11 to open VBA code editor
3. Add new module
4. Add function:

Function MyReplace(ByVal sInput As String) As String
MyReplace = Replace(Replace(Replace(Replace(Replace(sInput,"_",""),"@",""),"$",""),"%",""),"!","")
End 

5. Save module
6. Create query:

SELECT MyReplace([Currency_Contract]) AS Something
FROM TableName

7. Save query

That's all!

For further information, please see:
Build Custom Functions for Your Access Applications[^]