[Resolvido]como contornar essa situação, caso não tenha nenhum registro na tabela.

Prezados bom dia / boa tarde / boa noite.

Preciso contornar uma situação, caso não tenha registro em uma determinada tabela.

A função está abaixo

Código:

Dim db2 As Database, rs2 As DAO.Recordset
    Set db2 = CurrentDb
    Set rs2 = db2.OpenRecordset("Tblpendenciasaldo", dbOpenDynaset)
    With rs2
    .AddNew
    rs2.FindFirst "IdPendencia = " & Me!IdPendencia
    rs2.Edit
    ![IdPendencia] = Me.IdPendencia
    ![IdCaixa] = Me.IdCaixa
    ![DataPagamento] = Me.DataPagamento
    ![Proprietario] = Me.Proprietario
    ![Telefone] = Me.Telefone
    ![Celular] = Me.Celular
    ![Animal] = Me.Animal
    ![Valorf] = Me.Valorf
    ![ValorPago] = Me.ValorPago
    ![SaldoDevedor] = Me.SaldoDevedor

    .Update 

    End With

Eu preciso contornar essa situação.
rs2.FindFirst "IdPendencia = " & Me!IdPendencia
rs2.Edit

Caso não tenha registro, ele possa adicionar.

Apenas isso, e eu estou matutando aqui para que isso rode.

Grato a todos.

Boa noite Sílvio
Ao executar rs2.FindFirst critério 'procura registos com critério
If rs.noMatch then 'indica que não encontrou nenhum registo pelo critério indicado
If rs.noMatch=False 'posiciona o ponteiro no primeiro registo encontrado

Bom dia/ boa tarde/ boa noite...


Alexandre, perdoe a minha santa ignorância

If rs.noMatch then 'indica que não encontrou nenhum registo pelo critério indicado
If rs.noMatch=False 'posiciona o ponteiro no primeiro registo encontrado

Não entendi mesmo o que você quis dizer, me desculpe !

Seria possível me mostrar no código, para eu atentar e entender a lógica ?

Agradeço.

Boa tarde amigo Sílvio
Tente
Set rs2 = CurrentDb.OpenRecordset("Tblpendenciasaldo", dbOpenDynaset)
rs2.FindFirst "IdPendencia = " & Me!IdPendencia
if rs2.NoMatch Then
'nenhum registo encontrado

Else
With rs2
.AddNew
![IdPendencia] = Me.IdPendencia
![IdCaixa] = Me.IdCaixa
![DataPagamento] = Me.DataPagamento
![Proprietario] = Me.Proprietario
![Telefone] = Me.Telefone
![Celular] = Me.Celular
![Animal] = Me.Animal
![Valorf] = Me.Valorf
![ValorPago] = Me.ValorPago
![SaldoDevedor] = Me.SaldoDevedor
.Update
End With
End If

Bom dia / boa tarde / boa noite.

Grato Alexandre, deu certo.

Abraços.