Olá pessoal, boa tarde!!!

Desenvolvi um pequeno sistema de controle de reservas de carros, então coloquei o codigo abaixo em um timer para quando chegar a data e hora de tal resersa recebo uma mensagem alertando a tal reserva, o codigo funciona bem quando tem registro na tabela, se a tabela estiver em branco o mesmo retorna uma mensagem assim:

Run-Time error 94

Invalid use of null

 

Como posso resolver este problema???

 

Código

Private Sub Horario_Timer()
Dim DataReservada As Date
Dim TimeAlarme As Date
DataReservada = Data1.Recordset.Fields("DataReservada")
TimeAlarme = Data1.Recordset.Fields("Horario")
If Format$(Hour(Time - TimeAlarme) & ":" & Minute(Time - TimeAlarme) & ":" & Second(Time - TimeAlarme), "hh:mm:ss") = TimeValue("01:00:00") Then
If DataReservada = Date Then
MsgBox "Sistema OK"
End If
End If
End Sub

 

Marcelino Neto

VB6.0

Access97

Dao

testa assim:

 

DataReservada = Data1.Recordset.Fields("DataReservada") & ""
TimeAlarme = Data1.Recordset.Fields("Horario") & ""

Caro amigo, já tentei desta forma também, porém continua oferecendo um outro erro, 3021 - Sem registro na tabela, então tentei assim:

 

On Error GoTo errado
Dim DataReservada As Date
Dim TimeAlarme As Date
DataReservada = Data1.Recordset.Fields("DataReservada")
TimeAlarme = Data1.Recordset.Fields("Horario")
If Format$(Hour(Time - TimeAlarme) & ":" & Minute(Time - TimeAlarme) & ":" & Second(Time - TimeAlarme), "hh:mm:ss") = TimeValue("01:00:00") Then
If DataReservada = Date Then
frmLembrete.Show
frmLembrete.txtPesquisa = TimeAlarme
frmLembrete.txtPesquisaData = DataReservada
End If
End If

Exit Sub
errado:
Dim Numero_erro As String
Numero_erro = CStr(Err.Number)
If Numero_erro = "3021" Or "13" Then
Else
    MsgBox ("Error # " & CStr(Err.Number) & " " & Err.Description)
    Err.Clear
End If

End sub

 

Parece que acabou tal erro!!!

 

Se puder me ajudar mais!!!

Agradeço.

Marcelino Neto

amigo... a solução q postei é no caso de elementos nulos... este erro q vc citou é pq o ponteiro se 'perdeu' ae... não está apontando para um registro... isso acontece...ainda mais usando DAO. Vc pode fazer isso q vc colocou mas se não for colocar as aspas como indiquei então tenha certeza q não haverá dados nulos... senão o erro volta a ocorrer ok??

 

at+