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


2 participantes

    [Resolvido]De Para em tabela por VBA.

    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

    [Resolvido]De Para em tabela por VBA. Empty [Resolvido]De Para em tabela por VBA.

    Mensagem  XPTOS 15/2/2016, 23:52

    Amigos,

    Estou usando o código abaixo para substituir dados em uma tabela.
    Porém, sempre que preciso substituir o dado eu tenho que referenciar o registro que tenho para o registro que quero no código VBA.

    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM Comparativo where CódGuia = '" & Forms![Form_Enviado - Recebido]!cboGuia & "'") ' Like Me.txtAtivado = True '")
    While (Not rs.EOF)
    rs.Edit
    rs("CódServiço") = Replace(rs("CódServiço"), "80021069", "60023155") 'Pretendo de colocar uma textbox que ficaria mais funcional.
    rs.Update
    rs.MoveNext

    Wend
    rs.Close
    MsgBox "Registros alterados com sucesso!", vbQuestion + vbCritical, "Log"
    DoCmd.Close
    End If


    Alguém tem uma sugestão de como incluir uma caixa de texto que recebera os valores De-Para?

    Grato,
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

    [Resolvido]De Para em tabela por VBA. Empty Re: [Resolvido]De Para em tabela por VBA.

    Mensagem  XPTOS 16/2/2016, 20:26

    Boa noite amigos,

    Esqueci de mencionar que a propriedade FilterOn =True.
    O formulário abre filtrado. Alguém tem alguma dica para substituir os registros do campo?
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

    [Resolvido]De Para em tabela por VBA. Empty Re: [Resolvido]De Para em tabela por VBA.

    Mensagem  XPTOS 17/2/2016, 15:04

    Up.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]De Para em tabela por VBA. Empty Re: [Resolvido]De Para em tabela por VBA.

    Mensagem  JPaulo 17/2/2016, 15:20

    Ola;

    Esses valores "80021069", "60023155" vêm de onde ?

    Se conseguir jogar esses valores em duas caixas, é simples;

    rs("CódServiço") = Replace(rs("CódServiço"), Me.txtDe.Value, Me.txtPara.Value)



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]De Para em tabela por VBA. Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]De Para em tabela por VBA. Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]De Para em tabela por VBA. Folder_announce_new Instruções SQL como utilizar...
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

    [Resolvido]De Para em tabela por VBA. Empty Re: [Resolvido]De Para em tabela por VBA.

    Mensagem  XPTOS 17/2/2016, 22:03

    Perfeito Mestre,

    Funcionou que é uma beleza, deixo código adaptado.

    If Not IsNull("Me.cboGuia") Then
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM Comparativo where CódGuia = '" & Forms![Form_Enviado - Recebido]!cboGuia & "'")
    ' On Error Resume Next
    rs.Edit
    rs("CódServiço") = Replace(rs("CódServiço"), Me.txtCodigoAntigo.Value, Me.txtCodigoNovo.Value)
    rs.Update
    rs.MoveNext

    Wend
    rs.Close



    Obrigado!
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]De Para em tabela por VBA. Empty Re: [Resolvido]De Para em tabela por VBA.

    Mensagem  JPaulo 18/2/2016, 09:43

    Fico feliz.

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]De Para em tabela por VBA. Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]De Para em tabela por VBA. Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]De Para em tabela por VBA. Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]De Para em tabela por VBA. Empty Re: [Resolvido]De Para em tabela por VBA.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 21:27