Socorro...

 

Estou com um problema, tenho uma rotina onde hora ele cria um novo registro hora ele edita um existente, iss na mesma tabela.

Quando é para criar tudo bem. Mas quando tem que editar dá a msg de:

 

error rum-time 3021

no current record

 

Obs.: da o erro quando chega na linha em vermelho, há.. quando está marcado e executando, se coloco o mouse em sima do nome da tab. destacado de vermelho, aparece null.

 

Abaixo está a rotina para vcs darem uma olhada.

' cria um novo registro

            If VerPagto = "Recebto Total" Then
                TBCorrespondenteRec.AddNew
                    GravaDadosRecCorExPg
                TBCorrespondenteRec.Update
            End If

' Edita um registro existente
            If VerPagto = "Recebto Parcial" Then
                TBCorrespondenteRec.Seek "=", Código
                If TBCorrespondenteRec.NoMatch = False Then
                Else
                TBCorrespondenteRec.Edit
                    TBCorrespondenteRec("VrCaceladoPag") = VrRecebido
                    TBCorrespondenteRec("Status") = "Pago/Estornado"
                TBCorrespondenteRec.Update
               
                End If
            End If

' Edita um registro existente
            If VerPagto = "Recebto Parcial" Then

                TBCorrespondenteRec.index = "nome do indice"
                TBCorrespondenteRec.Seek "=", Código
                If not TBCorrespondenteRec.NoMatch Then
                    TBCorrespondenteRec.Edit
                    TBCorrespondenteRec("VrCaceladoPag") = VrRecebido
                    TBCorrespondenteRec("Status") = "Pago/Estornado"
                   TBCorrespondenteRec.Update
               
                End If
            End If

 

Efetuei as alterações como vc me indicou, mas continua dando a mesma msg.

é istranho dar essa msg, pois a tabela está sendo setada corretamente.

 

Caso vc tenha alguma outra idéia.

 

Desde já agradeço.

 

 

Luciano Alves Barbosa