Postada em 20/07/2011 13:38 hs
Ficaria assim:
Dim dat_pesq as Date
dat_pesq = format(date, "mm/dd/yyy")
sql = "SELECT cod_funcionario, data_trabalho FROM sua_tabela WHERE cod_funcionario=2 AND data_trabalho = #"& dat_pesq &"#"
RS.Open sql, conexao
if rs.eof = true then
exit sub
else
msgbox("FUNCIONÁRIO JA TRABALHOU NA DATA ESPECIFICADA")
end if
Aonde:
RS = a sua variável recordset
conexao = a sua conexao com o bd!
|
