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]Localizar e substituir valor de campos

    avatar
    JoaoB
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Localizar e substituir valor de campos Empty Localizar e substituir valor de campos

    Mensagem  JoaoB 13/11/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
    sergiocfba
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Localizar e substituir valor de campos Empty Re: [Resolvido]Localizar e substituir valor de campos

    Mensagem  sergiocfba 13/11/2013, 14:07

    Bom dia joaoB

    tente assim:

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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Localizar e substituir valor de campos Empty Re: [Resolvido]Localizar e substituir valor de campos

    Mensagem  JPaulo 13/11/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 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]Localizar e substituir valor de campos Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Localizar e substituir valor de campos Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Localizar e substituir valor de campos Folder_announce_new Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Localizar e substituir valor de campos Empty Re: [Resolvido]Localizar e substituir valor de campos

    Mensagem  JPaulo 13/11/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 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]Localizar e substituir valor de campos Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Localizar e substituir valor de campos Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Localizar e substituir valor de campos Folder_announce_new Instruções SQL como utilizar...
    avatar
    JoaoB
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Localizar e substituir valor de campos Empty Re: [Resolvido]Localizar e substituir valor de campos

    Mensagem  JoaoB 13/11/2013, 14:33

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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Localizar e substituir valor de campos Empty Re: [Resolvido]Localizar e substituir valor de campos

    Mensagem  JPaulo 13/11/2013, 14:49

    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]Localizar e substituir valor de campos Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Localizar e substituir valor de campos Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Localizar e substituir valor de campos Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]Localizar e substituir valor de campos Empty Re: [Resolvido]Localizar e substituir valor de campos

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 06:58