Olá amigos, o que está errado?

Eu tenho um campo chamado ch.[data agendamento], no formulário eu coloquei no campo txtbox a mascara __/__/___, para ficar melhor para digitar a data.

problema:
Eu necessito que quando este campo perder o foco
o vba/access 97, vai verificar se o campo está vazio. Se está vazio -> o campo seleção45(checkBox) = 0 (desmarcado). isto não está funcionando! Veja o codigo:

Private Sub txt_DtAtendimento_Exit(Cancel As Integer)
Dim strEnd1, strEnd2, strDtAg1, strSQLend As String

strDtAg1 = Me.txt_DtAgendamento

'If Len(Me.txt_DtAgendamento & vbNullString) = 0 Then
If Not IsNull(strDtAg1) Then

Me.NaScopus = -1
Me.Situação = "AG"

Else
Me.Situação = "RE"
'Me.NaScopus = -1

Exit Sub

End If

End Sub

Me.Situação = "RE" 'txtBox
'Me.NaScopus = -1 'checkBox

Oi mteles

...
Else
Me.Situação = "RE"
'Me.NaScopus = -1
Me.NaScopus = 0
Exit Sub

t+
...

Veja, se o campo está vazio ou não ele sempre pula a primeira condição e vai direto para o else.

quote:

'If Len(Me.txt_DtAgendamento & vbNullString) = 0 Then
If Not IsNull(strDtAg1) Then

Me.NaScopus = -1
Me.Situação = "AG"

Else

Outra coisa Avelino, você mora na minha cidade natal( Maringá). como está esta cidade maravilhosa?

strDtAg1 = Me.txt_DtAgendamento

'If Len(Me.txt_DtAgendamento & vbNullString) = 0 Then
If Not IsNull(strDtAg1) Then

Duas formas:

1) Teste o campo data direto no if

if Not isnull(me!txt_DtAgendamento) then  

2) Faça a STRDTAG1 assumir o valor zero quando o campo data for nulo

strDtAg1 = nz(me!tx_DtAgendamento,0)
if strDtAg1 = 0 then
  me!Situação = "RE"
  me!NaScopus = 0
else
  me!Situação = "AG"
  me!NaScopus = -1
end if  

Saí do Rio de Janeiro devido a violência e encontrei aqui um paraíso. A cidade é maravilhosa, ótimas escolas públicas e comércio forte. Senti bastante o rítimo mais lento, fiquei quase maluco mas agora a adrenalina vem baixando e me sinto melhor. A condição de emprego é dífícil mesmo para quem tem qualificação pois pagam muito pouco.

fui..