[Resolvido]Actualizar tabela ao fechar formulario

Boa tarde amigos

Estou a usar este comando para actualizar um campo da tabela "TabAcessos" ao fechar um formulário
Só que no primeiro registo ele regista, mas nos seguintes não.

Private Sub Form_Close()
Dim db As DAO.Database
Set rst = CurrentDb.OpenRecordset("tabAcessos")
With rst
.Edit
rst("Horasaida") = Time
.Update
End With
End Sub

Queria registar a hora no último registo que está nulo que é o campo "Horasaida"

Obrigado

Altere:


With rst
.Edit


Para:

With rst
.AddNew


Acrescente

.Close após update.


abraços

Um pitaco;

Duas (2) possibilidades, é só escolher:

Código:

Private Sub Form_Close()
Dim db As DAO.Database
Set rst = CurrentDb.OpenRecordset("tabAcessos")
'se não tem registos, morre aqui
If rst.RecordCount = 0 Then Exit Sub
'envia para o ultimo registo
rst.MoveLast
With rst
.Edit
rst("Horasaida") = Time
.Update
End With
'fecha o recordset e limpa a memoria
 rst.Close: Set rst = Nothing
End Sub


Private Sub Form_Close()
Dim db As DAO.Database
Set rst = CurrentDb.OpenRecordset("SELECT * FROM tabAcessos WHERE Horasaida IS NULL")
'se não tem registos, morre aqui
If rst.RecordCount = 0 Then Exit Sub
With rst
.Edit
rst("Horasaida") = Time
.Update
End With
'fecha o recordset e limpa a memoria
 rst.Close: Set rst = Nothing
End Sub


Obrigado JPaulo

Optei pelo 2º exemplo e funciona perfeito.