MaximoAccess

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

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!
    avatar
    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;"
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9260
    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



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

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

    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.]
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9260
    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.


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

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

    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
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9260
    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.


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

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

    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: Seg 26 Jun 2017, 20:01