O código do Criquio (2011) funciounou perfeitamente para o campo CPF
Mudei o campo para telefone mascara: (43) 9999-9999 e nao funciona de jeito nenhum, da uma mensagem de O USO DO "NULL"É INVALIDO
rs!telefone = Replace(rs!telefone, "(", "")
rs!telefone = Replace(rs!telefone, ")", "")
rs!telefone = Replace(rs!telefone, " ", "")
rs!telefone = Replace(rs!telefone, "-", "")
Private Sub Comando9_Click()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Cadastro")
Do While Not rs.EOF
rs.Edit
rs!cpf = Replace(rs!cpf, ".", "")
rs!cpf = Replace(rs!cpf, ".", "")
rs!cpf = Replace(rs!cpf, "-", "")
rs.Update
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Sub
Mudei o campo para telefone mascara: (43) 9999-9999 e nao funciona de jeito nenhum, da uma mensagem de O USO DO "NULL"É INVALIDO
rs!telefone = Replace(rs!telefone, "(", "")
rs!telefone = Replace(rs!telefone, ")", "")
rs!telefone = Replace(rs!telefone, " ", "")
rs!telefone = Replace(rs!telefone, "-", "")
Private Sub Comando9_Click()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Cadastro")
Do While Not rs.EOF
rs.Edit
rs!cpf = Replace(rs!cpf, ".", "")
rs!cpf = Replace(rs!cpf, ".", "")
rs!cpf = Replace(rs!cpf, "-", "")
rs.Update
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Sub