Alex
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 22/05/2012 10:57 hs
Bom dia galera,
Estou com erro nessa linha de código
-----
If txtNumPpt <> "" Then
rsconsulta.Open "select datret from gectppt where numppt = " & txtNumPpt.Text
If txtdatret.Text <> rsconsulta!datret And txtdatret.Text < Date Then
MsgBox "Data de Retorno incorreta!", vbInformation, Me.Caption
txtdatret.SetFocus
Exit Sub
End If
rsconsulta.Close
----
Tenho um formulário com a data retorno(datret) e desejo bloquear que o usuário coloque uma data de retorno passada(ontem, por exemplo).
O sistema funciona normalmente, o erro só acontece no momento que muda o mês. Exemplo: Hoje 22/05/2012, se colocar a data de retorno para o dia 01/06/2012 dá esse erro. (se colocar 23/06 funciona normalmente)
O erro as vezes acontece no rsConsulta(3705) e as vezes dá no if txtdatret.text < date(3465), o que pode ser?
|
|
|
|
|
|
Alex
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 22/05/2012 11:02 hs
Sendo que o rsConsulta, o txt está trazendo o número certo e no IF txtdatret.text e o date estão no mesmo formato(ddmmyyyy), já consultei. Tentei de algumas formas, acredito que o sistema esteja confundindo dia e mês.
|
|
|
|
J.Carlos
|
PRESIDENTE PRUDENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 22/05/2012 11:34 hs
If txtdatret.Text <> rsconsulta!datret And txtdatret.Text < Date Then
Na linha acima vc já pode ter problemas. Vc está comparando uma string com um campo tipo data(vindo do bd). If cdate(txtdatret.Text) <> rsconsulta!datret And cdate(txtdatret.Text) < Date Then Tente este acima pra ver.
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 22/05/2012 12:01 hs
para evitar este conflito use um format e pronto veja
If txtNumPpt <> "" Then
rsconsulta.Open "select datret from gectppt where numppt = " & txtNumPpt.Text
If Format(txtdatret.Text,"dd/mm/yyyy") <> Format(rsconsulta!datret,"dd/mm/yyyy") And Format(txtdatret.Text,"dd/mm/yyyy") < Format(Date,"dd/mm/yyyy") Then
MsgBox "Data de Retorno incorreta!", vbInformation, Me.Caption
txtdatret.SetFocus
Exit Sub
End If
rsconsulta.Close
tente esta alteração
|
|
TÓPICO EDITADO
|
|
|
|
Alex
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 22/05/2012 13:31 hs
Com as alterações funciona, o erro continua acontecendo quando coloca-se uma data do mês seguinte mas agora a aplicação continua normalmente, graças a alteração e ao tratamento de erros,
Valeu!
|
|
|
|
