(Resolvido) Sem registro atual

[Welter]

Boa noite, pessoal

Estou de volta com mais um pequeno problema, pedindo ajuda.

Após entrar com dados, tenho inseri-los numa outra table, juntamento com os de uma terceira. Porém, quando há apenas um registro na primeira table, que é transitória, ocorre erro com a mensagem "sem registro atual". Fecho o formulário de entrada logo no início do código de tratamento dos dados. Mesmo assim, o erro acontece. Noto que a primeira table, para a qual o sistema diz não haver registro atual, contém o registro que devo tratar.

Existe algum comando - ou rotina - que possibilite superar esse erro?

Grato, mais uma vez, pela ajuda de todos.

[Welter]

Consegui resolver o problema. Criei uma nova sub, que contém os procedimentos necessários a atualização da tabela. Acontece, porém que só há atualização quando executo no modo interativo PF8.

O que pode estar havendo?

Alguém pode analisar o procedimento a seguir, para verificar onde posso estar errando?

Quero adicionar à tabela TbNE, dados das tabelas TbNEAux e TbND.

Private Sub Comando58_Click()

CódigoND = Comb2.Column(0)

DoCmd.Close acTable, "TbND", acSaveYes

DoCmd.Close acTable, "TbNEAux", acSaveYes

DoCmd.Close acForm, "EntradaNE", acSaveYes

Call CriaNE

End Sub

Sub CriaNE()

Dim Banco As DAO.Database

Set Banco = OpenDatabase("c:\Orcamento")

Dim TbND As DAO.TableDef

Dim TbNE As DAO.TableDef

Dim TbNEAux As DAO.TableDef

Dim dyTbND As DAO.Recordset

Dim dyTbNE As DAO.Recordset

Dim dyTbNDAux As DAO.Recordset

Set dyTbND = Banco.OpenRecordset("TbND", DB_OPEN_DYNASET)

Set dyTbNE = Banco.OpenRecordset("TbNE", DB_OPEN_DYNASET)

Set dyTbNEAux = Banco.OpenRecordset("TbNEAux", DB_OPEN_DYNASET)

arg = "código=" & CódigoND

dyTbND.FindFirst arg

With dyTbND

XPrograma = dyTbND("Programa")

XNatdesp = dyTbND("NatDesp")

xAçao = dyTbND("Açao")

xFonte = dyTbND("Fonte")

XNumND = dyTbND("NUmND")

xUnior = dyTbND("UniOR")

XCódigo = dyTbND("Código")

End With

With dyTbNEAux

Do While Not .EOF

xNumne = dyTbNEAux("NumNE")

xDatne = dyTbNEAux("DatNE")

xValor = dyTbNEAux("Valor")

xEntgest = dyTbNEAux("EntGest")

xEntFornec = dyTbNEAux("EntFornec")

xNumProc = dyTbNEAux("NumProc")

xTipoProc = dyTbNEAux("TipoProc")

xNumContr = dyTbNEAux("NumContr")

xVigContr = dyTbNEAux("VigContr")

xSubDesp = dyTbNEAux("SubDesp")

With dyTbNE

.AddNew

dyTbNE("Programa") = XPrograma

dyTbNE("NatDesp") = XNatdesp

dyTbNE("Açao") = xAçao

dyTbNE("Fonte") = xFonte

dyTbNE("Unior") = xUnior

dyTbNE("NumNE") = xNumne

dyTbNE("DatNE") = xDatne

dyTbNE("Valor") = xValor

dyTbNE("EntGest") = xEntgest

dyTbNE("EntFornec") = xEntFornec

dyTbNE("NumProc") = xNumProc

dyTbNE("TipoProc") = xTipoProc

dyTbNE("NumContr") = xNumContr

dyTbNE("VigContr") = xVigContr

dyTbNE("SubDesp") = xSubDesp

dyTbNE("NDBase") = CódigoND

dyTbNE("SdoNE") = xValor

dyTbNE("StatNE") = 0

.Update

End With

.MoveNext

Loop

End With

With dyTbND

.Edit

dyTbND("SdoND") = dyTbND("SdoND") - xValor

.Update

End With

DoCmd.Close acTable, "TbNE", acSaveYes

Call Fim

End Sub

Sub Fim()

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "Principal"

DoCmd.OpenForm stDocName, , , stLinkCriteria

End Sub

[Welter]

há!

Falha minha!

Faltou informar que uso o ACCESS2007

[Welter]

Resolvi!

Nas propriedades do formulário inseri, no contexto "ao sair" os comandos de "salvar registro" e "atualizar". A partir daí, não mais ocorreu o problema de os procedimentos de evento não serem processados na íntegra.

Grato àqueles que se interessaram pelo tema.

[MrMALJ]

Valeu por retornar a sua solução.