[Resolvido]Botão em Formulário Contínuo.

Olá!

Tenho um formulário onde cada registro é uma linha, além disso coloquei um botão que repete-se em toda linha (que abrirá outro formulário, até aí tudo bem).


Acontece que se eu preencher primeiro esse segundo formulário, as informações não ficam salvas corretamente na tabela. É necessário q eu preencha os campos do primeiro formulário para q posteriormente eu aperte o botão e preencha o outro.


Eu preciso q o 2º formulário seja preenchido primeiro e tudo seja salvo na mesma linha.


Obs: comece abrindo o FormMenuInicial
Obs2: o botão ao qual me refiro está escrito "Docs".

dando up pq to desesperada kkk

Não ignore as regras do fórum.

10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!

Acho que estou no caminho.

Criei um campo Id de Numeração automática para diferenciar os registros...Mas está dando "Update ou CancelUpdate sem AddNew ou Edit".

Alguém pode me ajudar???

Código:

Private Sub Comando80_Click()
Dim BancoDados As DAO.Database
Dim tabLiberacao As DAO.Recordset
Dim stDocName As String
Dim intnewrec As Integer

Set BancoDados = CurrentDb()
Set tabLiberacao = BancoDados.OpenRecordset("TabLiberacao", dbOpenDynaset)
stDocName = "FormDocsLiberacao"
intnewrec = Me.NewRecord
    
'Condição para que o sistema crie uma nova ID caso o registro seja novo
If intnewrec = True Then
    
DoCmd.GoToRecord , , acLast 'vai até ao ultimo registro
DoCmd.GoToRecord , , acNewRec 'cria novo registro
tabLiberacao.AddNew
    
    
    tabLiberacao("Operacao").Value = Forms!FormNavegacao!txtOperacao.Value
    
    tabLiberacao.Update
    
    Me.Refresh
    
    tabLiberacao("IdLiberacao").Value = Me.IdLiberacao
    
    End If

    'procurando o registro selecionado
DoCmd.OpenForm stDocName, , , "IdLiberacao=" & Forms!FormNavegacao!SubformLiberacao!IdLiberacao
End Sub


Bom dia Caroline,

Se eu entendi corretamente, você deseja inverter a ordem de preenchimento dos formulários. É isso?

O trecho abaixo:

Código:

tabLiberacao.Update
    
Me.Refresh
    
tabLiberacao("IdLiberacao").Value = Me.IdLiberacao

deve ficar assim:

Código:

Me.Refresh
    
tabLiberacao("IdLiberacao").Value = Me.IdLiberacao

tabLiberacao.Update

carolinesilva115, a dica dos colegas ajudaram?

Aguardamos retorno...

Resolvido. Obrigada

Veja no link abaixo como finalizar o tópico dando o resolvido
https://www.maximoaccess.com/t860-resolucao-de-topicos#5263

Aguardamos...

.