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]Duplo criterio de busca com um campo data

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4712
    Registrado : 06/11/2009

    [Resolvido]Duplo criterio de busca com um campo data Empty [Resolvido]Duplo criterio de busca com um campo data

    Mensagem  Assis 20/7/2021, 14:33

    Boa tarde Amigos

    Tenho o código abaixo e precisa de mais um critério com campos data.
    Como fica esta linha  a azul

      rs.FindFirst "[Nprocesso] = '" & Me![NProcesso] & "' and [dataproxima]= '" &Me![DataC]


    Dim DB As dao.Database, rs As Recordset
       Set DB = CurrentDb()
       Set rs = DB.OpenRecordset("MarcaçõesConsultas", dbOpenDynaset)
       rs.FindFirst "[Nprocesso] = '" & Me![NProcesso] & "'"
        rs.Edit
       rs("grupo") = Me.Grupo
       
       rs.UPDATE
       rs.Close
       Set rs = Nothing
       Set DB = Nothing

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8200
    Registrado : 05/11/2009

    [Resolvido]Duplo criterio de busca com um campo data Empty Re: [Resolvido]Duplo criterio de busca com um campo data

    Mensagem  Alexandre Neves 20/7/2021, 15:08

    Boa tarde Assis
    rs.FindFirst "[Nprocesso] = '" & Me![NProcesso] & "' and [dataproxima]=#" &Me![DataC] & "#"


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2594
    Registrado : 13/12/2016

    [Resolvido]Duplo criterio de busca com um campo data Empty Re: [Resolvido]Duplo criterio de busca com um campo data

    Mensagem  Alexandre Fim 20/7/2021, 15:20

    Boa tarde Senhores,

    Aproveitando aqui para deixar minha sugestão.

    Meu caro Assis, não há necessidade de abrir um recordset, procurar o registro desejado e depois editá-lo. Este processo funciona, mas quando existe um banco de dados com muitos registros, em ambiente de rede, este processo fica um pouco mais lento.

    Eu sou a favor do uso de Instrução SQL com atualizações direto na tabela. Segue exemplo:

    Código:


    Dim DB      As DAO.Database
    Dim sSQL    As String

      Set DB = CurrentDb()
     
      sSQL = "UPDATE [MarcaçõesConsultas] SET grupo = " & Me.Grupo & ""
      sSQL = sSQL & " WHERE [Nprocesso] =  '" & Me.NProcesso & "'"
      sSQL = sSQL & "  AND [dataproxima]= #" & Format(Me.DataC, "mm/dd/yyyy") & "#"
      DB.Execute sSQL



    Espero ter ajudado.

    Boa sorte.

    []'s

    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Duplo criterio de busca com um campo data Setinf11
    Sistemas e Tecnologia Ltda

    Assis gosta desta mensagem

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4712
    Registrado : 06/11/2009

    [Resolvido]Duplo criterio de busca com um campo data Empty Re: [Resolvido]Duplo criterio de busca com um campo data

    Mensagem  Assis 20/7/2021, 17:56

    Obrigado Alexandre


    .................................................................................
    *** Só sei que nada sei ***
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2594
    Registrado : 13/12/2016

    [Resolvido]Duplo criterio de busca com um campo data Empty Re: [Resolvido]Duplo criterio de busca com um campo data

    Mensagem  Alexandre Fim 20/7/2021, 18:00

    Valeu Assis !!!
    Sucesso !!!
    O fórum agradece !!!


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Duplo criterio de busca com um campo data Setinf11
    Sistemas e Tecnologia Ltda

      Data/hora atual: 24/9/2022, 21:21