[Resolvido]Aumentar o número 9 em todos registros do campo telefone da tabela

Pessoal, boa tarde. No meu Estado (Minas Gerais), os telefones irão aumentar um "9" antes do número a partir do dia 11/10/15; Gostaria de saber se alguém tem uma consulta atualização ou um código para me auxiliar a atualizar todos os números das minhas tabelas de clientes e fornecedores, e acrescentar um "9" antes de todos os números de telefone. Hoje utilizo a seguinte máscara na tabela e formulário: !99\ !9900\-0000;;_

O problema é que na minha máscara quando digito primeiro coloco o DDD. EX: 34-9999-9999, e esse "9" que preciso acrescentar nos registros já existentes tem que ser após o DDD.

Aguardo apoio dos meus colegas

Uma consulta atualização nessa situação e relativamente simples

UPDATE Funcionarios SET Funcionarios.Ramal = Left([ramal],2) & "9" & Mid([Ramal],3,;

Substitua Funcionarios pelo nome de sua tabela e Ramal pelo nome de seu Campo.

Porem não entendi a questão "mascará"

Eduardo

Para evitar isso, eu desenvolvi essa função que é colocada

no evento após atualizar da caixa de texto telefone.

Quando se digita, não tem máscara alguma.
Ela será colocada após a digitação


Function MascFone()
Dim nf
nf = Len(Screen.ActiveForm.ActiveControl)

If nf = 10 Then
Screen.ActiveForm.ActiveControl = Format(Screen.ActiveForm.ActiveControl, "\(00\)0000\-0000") ' formato o campo com 10 digitos
End If

If nf = 11 Then
Screen.ActiveForm.ActiveControl = Format(Screen.ActiveForm.ActiveControl, "\(00\)00000\-0000") ' formato o campo com 11 digitos
End If

End Function


[ ]'s

Oi Noobezinho, muito obrigado pelo retorno.

Na verdade a mascara eu utilizo a função imputmask no evento ao entrar do campo, ou então a mascara direto na propriedades do formulário, que força o usuário a digitar o número de campos que o campo necessita, como é o caso do campo telefone telefone.

Hoje meus registros que tem o campo telefone estão assim: 34-8888-7777. Quero colocar assim: 34-98888-7777

essa função que vc desenvolveu sql, vai fazer isso? colocar o número nove em todos registros, no meu caso mais de 30 mil, na terceira posição?

O que te passei é para digitação, no cadastro do telefone.

Para acrescetar mais um digito, é necessário utilizar uma consulta
atualização, como sugeriu você e nosso amigo RMARCO.
A máscara de entrada está gravada junto com o numero do telefone na tabela?
Caso afirmativo, teremos que criar, ou seja, teremos que pensar  

Aguardo a resposta...

Obrigado mais uma vez pelo retorno.

Na propriedade do campo, na tabela, está assim:

!99\ !9900\-0000;;_

Os dados da tabela aparecem assim:

34 9185-3221

Eduardo

Acreditando que tua tabela não tem a mascara gravada com o número telefônico,apenas tem um espaço
entre o ddd e o prefixo então, fiz essa pequena função:

Function AddNove()

Dim rst As Recordset, i As Integer

Set rst = CurrentDb.OpenRecordset("Select * from NomeDatabela")
With rst
    .MoveLast ' vai para o ultimo registro para pegar a quantidade de registros na tabela
    .MoveFirst ' retorna para o primeiro registro
    For i = 1 To .RecordCount
        .Edit
       !FoneCliente = Left(!FoneCliente, 2) & " 9" & Right(!FoneCliente, 8 ) ' dei um espaço  no 8 e )  senão vai parecer um carinha
        .Update
        .MoveNext
   Next i

End With
End Function

[ ]'s

Ok. muito obrigado. Vou fazer os testes mais tarde e te aviso.

Que Jesus te ilumine

Olá amigo Noobezinho.

Fiz o teste em minha tabela e me deparei com um pequeno problema, mas adaptei o código que você criou e deu tudo certo. Apenas para ficar registrado no forum para colegas que passarão pela mesma situação, vou exemplificar:

No meu caso, eu tinha 45.325 registros. Ocorre que alguns registros, o campo "celular", o qual eu queria inserir o número "9" após o DDD tinha alguns registros nulos. O que acontecia? Por se tratar de um campo de duplicação não autorizada, o código inseria esse 9 nos campos nulos, e ao inserir no segundo campo nulo, o access dava uma mensagem de erro de duplicação não autorizada. Portanto, no código que criou inseri na função sql "where celular<>null". Aí, os campos nulos não eram atualizados e tudo deu muito certo. Veja como ficou: A minha tabela se chama tbl_clientes, e o meu campo se chama "celular"

Function AddNove()
Dim rst As Recordset, i As Integer
Set rst = CurrentDb.OpenRecordset("Select * from tbl_clientes where celular<>null")
With rst
   .MoveLast ' vai para o ultimo registro para pegar a quantidade de registros na tabela
   .MoveFirst ' retorna para o primeiro registro
   For i = 1 To .RecordCount
      .Edit
      !Celular = Left(!Celular, 2) & "9" & Right(!Celular, 8 ) ' dei um espaço  no 8 e )  senão vai parecer um carinha
       .Update
       .MoveNext
      Next i
End With
MsgBox "Número 9 inserido antes do DDD em todos os registros!", vbInformation, "Parabéns"
End Function

Eduardo

Valeu pelo retorno e parabéns pela adaptação !

Boa sorte!

Ok amigo.

Se puder me passar seu email, ficaria muito agradecido, para mantermos contato...