estou utilizando o codigo abaixo para o seguinte fim
ao digitar um numero e no campo status estiver preenchido na tabela como CONFERIDO ele mostra a mensagem em vermelho.
mas o problema que está motrando em todas as situações, em momentos que está escrito NÃO CONFERIDO e até mesmo em branco.
Private Sub txtncaixa_Exit(Cancel As Integer)
Dim strSql As String, rstTemp As DAO.Recordset
strSql = "Select * from tbcadcaixa where status = 'CONFERIDO';"
Set rstTemp = CurrentDb.OpenRecordset(strSql, dbOpenSnapshot)
If rstTemp.EOF Then
rstTemp.Close
Set rstTemp = Nothing
txtobservacao.SetFocus
Else
MsgBox "Caixa já Conferida.", , "Atenção!!!"
rstTemp.Close
Me.txtncaixa = ""
Me.listconfcaixa.Requery
Set rstTemp = Nothing
End If
end sub
ao digitar um numero e no campo status estiver preenchido na tabela como CONFERIDO ele mostra a mensagem em vermelho.
mas o problema que está motrando em todas as situações, em momentos que está escrito NÃO CONFERIDO e até mesmo em branco.
Private Sub txtncaixa_Exit(Cancel As Integer)
Dim strSql As String, rstTemp As DAO.Recordset
strSql = "Select * from tbcadcaixa where status = 'CONFERIDO';"
Set rstTemp = CurrentDb.OpenRecordset(strSql, dbOpenSnapshot)
If rstTemp.EOF Then
rstTemp.Close
Set rstTemp = Nothing
txtobservacao.SetFocus
Else
MsgBox "Caixa já Conferida.", , "Atenção!!!"
rstTemp.Close
Me.txtncaixa = ""
Me.listconfcaixa.Requery
Set rstTemp = Nothing
End If
end sub