You should be using VBA to do this, but the following (untested) Replace() Function Calls added to your Queries could be a good start for you:
Query_Numeric
CLng(Replace(Replace(Replace(Replace(Cstr(Credit_Card_No), "0", "2"), "7", "9"), "4", "6"), "1", "3"))
Query_Alpha...