[Resolvido]Duplo criterio de busca com um campo data

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

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

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

Obrigado Alexandre

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