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
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