MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

3 participantes

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

    avatar
    Eduardo Pires
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 08/02/2012

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

    Mensagem  Eduardo Pires 6/10/2015, 20:07

    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

    RMARCO
    RMARCO
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 10/02/2012

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

    Mensagem  RMARCO 6/10/2015, 21:08

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

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

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

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho 6/10/2015, 22:16

    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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    Eduardo Pires
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 08/02/2012

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

    Mensagem  Eduardo Pires 6/10/2015, 22:44

    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?



    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho 6/10/2015, 22:51

    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  Wink

    Aguardo a resposta...


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    Eduardo Pires
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 08/02/2012

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

    Mensagem  Eduardo Pires 7/10/2015, 00:07

    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

    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho 7/10/2015, 13:59

    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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    Eduardo Pires
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 08/02/2012

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

    Mensagem  Eduardo Pires 7/10/2015, 19:48

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

    Que Jesus te ilumine
    avatar
    Eduardo Pires
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 08/02/2012

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

    Mensagem  Eduardo Pires 13/10/2015, 01:27

    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
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho 13/10/2015, 01:34

    Eduardo

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

    Boa sorte!


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    Eduardo Pires
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 08/02/2012

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

    Mensagem  Eduardo Pires 13/10/2015, 02:36

    Ok amigo.

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

      Data/hora atual: 3/12/2022, 06:06