MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Localizar e substituir valor de campos

    Compartilhe

    JoaoB
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 03/02/2011

    Localizar e substituir valor de campos

    Mensagem  JoaoB em Qua 13 Nov 2013, 13:20

    bom dia!
    estava procurando no fórum e achei esse código
    Public Sub Substitui()
    'By JPaulo ® Maximo Access
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim fld As DAO.Field
    Dim strSQL As String

    Set db = CurrentDb()

    strSQL = "SELECT * FROM SuaTabela"

    Set rst = db.OpenRecordset(strSQL, dbOpenDynaset)

    rst.MoveFirst
    Do Until rst.EOF
    For Each fld In rst.Fields
    If fld.Value = "0" Then
    rst.Edit
    fld.Value = "-"
    rst.Update
    End If

    Next fld
    rst.MoveNext
    Loop
    rst.Close
    Set rst = Nothing
    End Sub

    Para chamar este Sub, pode colocar no evento ao pressionar de um botão: Call Substitui

    o problema é que substitui tudo que contém 0 na tabela e eu gostaria que substituísse somente valores de dois campos campo1 e campo2
    de já agradeço!

    sergiocfba
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 01/02/2012

    Re: [Resolvido]Localizar e substituir valor de campos

    Mensagem  sergiocfba em Qua 13 Nov 2013, 14:07

    Bom dia joaoB

    tente assim:

    strSql = "SELECT SuaTabela.campo1,campo2 " & vbCrLf & _
    "FROM SuaTabela;"

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Localizar e substituir valor de campos

    Mensagem  JPaulo em Qua 13 Nov 2013, 14:09

    Então terá de alterar para o nome do campo, assim;

    If fld.Name = "SeuCampo" And fld.Value = "0" Then



    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Localizar e substituir valor de campos

    Mensagem  JPaulo em Qua 13 Nov 2013, 14:11

    Ou limitar o SELECT  como o Sergio lhe passou e muito bem.

    Não esquecendo que se um dos campos for texto e o outro for numerico, já não funfa desta maneira.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    JoaoB
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 03/02/2011

    Re: [Resolvido]Localizar e substituir valor de campos

    Mensagem  JoaoB em Qua 13 Nov 2013, 14:33

    galera de plantão muito obrigado!
    as duas formas funcionam

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Localizar e substituir valor de campos

    Mensagem  JPaulo em Qua 13 Nov 2013, 14:49

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Dom 04 Dez 2016, 06:03