Olá pessoal!
estou com o seguinte problema: meu formulário possui um subformulário continuo, onde tenho 3 campos (caixas de texto) que serão preechidos quantas vezes for necessário, por exemplo, posso preencher apenas 1 linha, como também posso preencher 10 linhas.
O código abaixo está funcionando, porém quando grava os dados na tabela, ele repete a última linha preenchida, e as linhas anteriores não gravam o campo IDRelatorio2.
Obs.: o txt_IDRelatorio2 é um novo cadastro e já vem preenchido automaticamente com o novo código que foi preenchido em outro campo na página anterior, além de ser um campo referenciado de outra tabela.
estou com o seguinte problema: meu formulário possui um subformulário continuo, onde tenho 3 campos (caixas de texto) que serão preechidos quantas vezes for necessário, por exemplo, posso preencher apenas 1 linha, como também posso preencher 10 linhas.
O código abaixo está funcionando, porém quando grava os dados na tabela, ele repete a última linha preenchida, e as linhas anteriores não gravam o campo IDRelatorio2.
Obs.: o txt_IDRelatorio2 é um novo cadastro e já vem preenchido automaticamente com o novo código que foi preenchido em outro campo na página anterior, além de ser um campo referenciado de outra tabela.
- Código:
Private Sub btn_ProximaPaginaItens_Click()
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("tblListaInterfacesPorRelatório")
If Not rs.BOF Then
rs.AddNew
rs![InterfaceA] = Me!subfrmCadastroInterfaces!txt_InterfaceA
rs![InterfaceB] = Me!subfrmCadastroInterfaces!txt_InterfaceB
rs![IDRelatorio2] = Me!subfrmCadastroInterfaces!txt_IDRelatorio2
rs.Update
Me.GuiaCadastroNovoRelatorio.Pages("Cadastro de Itens").SetFocus
End If
rs.MoveNext
Me!subfrmCadastroInterfaces.Enabled = False
rs.Close: Set rs = Nothing
End Sub