[Resolvido]Inserir 9 º digito em BD Celulares

Olá,

tenho uma base de dados em Access de milhares de números de celulares sem o 9º digito.
No Excel consigo acrescentar o 9º digito usando a fórmula =9&celuladestino.

Algo equivalente no Access para não precisar digitar um a um ou ter que exportar para outro programa?

Valeu pela ajuda.

Padunic

Bom dia,

Criando uma consulta simples:

use a tabela que contém o campo dos números:

Ex:

CampoFone

nonodigito: 9 & [CampoFone]

Criando uma consulta Atualização

Faça um backup da sua tabela original

Crie uma consulta atualização com base na sua tabela

selecione o campoFone e no critério atualizar para:

9 & [CampoFone]

sds,

Ou com uma simples função;

Código:

Public Function Insere9()
'By JPaulo ® Maximo Access
Dim rst As DAO.Recordset
Dim db As DAO.Database
Dim x As String
Dim intTotalAtualizados As Long

    Set db = CurrentDb
    Set rst = db.OpenRecordset("SuaTabela", dbOpenDynaset)
    
    If rst.RecordCount = 0 Then Exit Function
    intTotalAtualizados = 0
    rst.MoveLast
    rst.MoveFirst
    
    Do While Not rst.EOF

         rst.Edit
         rst.Fields("SeuCampoTelefone") = 9 & rst.Fields("SeuCampoTelefone")
         intTotalAtualizados = intTotalAtualizados + 1
         rst.Update
         rst.MoveNext
    Loop
    If intTotalAtualizados = 0 Then
        MsgBox "Nenhum registro foi atualizado...", vbCritical
    Else
        MsgBox intTotalAtualizados & " registos atualizados com sucesso...", vbInformation
    End If
 rst.Close
 Set rst = Nothing
 End Function


Para chamar a função ao pressionar de um botão por exemplo;

Call Insere9()

Valeu. Muito obrigado pelas dicas. consegui acrescentar o 9º digito.

Obrigado pelo retorno o forum agradece.