[Resolvido]Atualização automática formulário continuo (SEM PRESSIONAR F5)

Bom Dia,

Estou me batendo muito para atualização automática de um formulário continuo/folhas de dados (+1 mês). Espero a ajuda dos mestres neste fórum...

A situação é a seguinte:

Tenho um formulário de cadastro e modificar, quando eu adiciono um registro ele não aparece em um formulário continuo que criei. Este registro aparece apenas quando eu fecho este formulário e abro novamente ou quando eu pressiono "F5".

Quando vou excluir um registro a linha não sai automaticamente e aparece na linha de exclusão do formulário continuo a seguinte mensagem "#Excluído".

Desde já eu agradeço

Olá Wellington

Precisa atualizar o formulário.

No botão salvar e no botão excluir, como a ultima linha do código:

Me.requery

Isso irá atualizar teu formulário

Abraços

Noob

Obrigado Noob pelo retorno!

Inseri o código conforme orientação, mas não surtiu efeito. O formulário continuo não atualizou ao salvar o novo cadastro.

Abaixo segue o código que utilizo no cadastro/modificar. Quando fecho o formulário de cadastro/modificar ele retorna para formulário continuo contendo todos os registros. Porém este formulário continuo não atualiza o novo cadastro/exclusão do registro, para atualizar eu preciso pressionar F5 ou sair e voltar para ele aparecer.

Desde já eu agradeço


Private Sub Excluir_Click()
Dim I As Integer
DoCmd.SetWarnings False
I = MsgBox("Tem certeza que deseja excluir este registro?", vbYesNo, "Confirmação")
If I = vbNo Then
Exit Sub
Else
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings True
DoCmd.Close
Me.Requery
End If
End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim strMsg As String
strMsg = "Foi inserido dados para este novo cadastro"
strMsg = strMsg & "...Deseja gravar?"
strMsg = strMsg & " (Observação: É necessário o preenchimento dos campos obrigatórios para aparecer em seu controle)"
If MsgBox(strMsg, vbQuestion + vbYesNo, "Gravar?") = vbYes Then
'do nothing
Else
DoCmd.RunCommand acCmdUndo
Me.Requery
End If
End Sub

Private Sub Form_Click()
Dim msg
DoCmd.RunCommand acCmdSaveRecord
msg = MsgBox("Registro salvo com Sucesso!", vbExclamation + vbOKOnly + vbDefaultButton2, "Informação")
DoCmd.Close
Me.Requery
End Sub

Private Sub Salvar_Click()
If IsNull(Me.nome_com) = True Then
MsgBox "O nome comercial do produto químico é de preenchimento obrigatório", vbInformation, "Atenção"
Me.nome_com.SetFocus

ElseIf IsNull(Me.cas) = True Then
MsgBox "O número 'CAS' do produto químico é de preenchimento obrigatório", vbInformation, "Atenção"
Me.cas.SetFocus

ElseIf IsNull(Me.nome_tec) = True Then
MsgBox "O nome técnico do produto químico é de preenchimento obrigatório", vbInformation, "Atenção"
Me.nome_tec.SetFocus

ElseIf IsNull(Me.composicao) = True Then
MsgBox "A composição do produto químico é de preenchimento obrigatório", vbInformation, "Atenção"
Me.composicao.SetFocus

ElseIf IsNull(Me.concentracao) = True Then
MsgBox "A concentração do produto químico é de preenchimento obrigatório", vbInformation, "Atenção"
Me.concentracao.SetFocus

ElseIf IsNull(Me.fator) = True Then
MsgBox "O fator do produto químico é de preenchimento obrigatório", vbInformation, "Atenção"
Me.fator.SetFocus

ElseIf IsNull(Me.responsavel) = True Then
MsgBox "O nome do responsável é de preenchimento obrigatório", vbInformation, "Atenção"
Me.responsavel.SetFocus

ElseIf IsNull(Me.advertencia) = True Then
MsgBox "A palavra de advertência do produto químico é de preenchimento obrigatório", vbInformation, "Atenção"
Me.advertencia.SetFocus

ElseIf IsNull(Me.perigo) = True Then
MsgBox "A frase de perigo do produto químico é de seleção obrigatória", vbInformation, "Atenção"
Me.perigo.SetFocus

ElseIf IsNull(Me.precaucao) = True Then
MsgBox "A frase de precaução do produto químico é de seleção obrigatória", vbInformation, "Atenção"
Me.precaucao.SetFocus

ElseIf IsNull(Me.psocorro) = True Then
MsgBox "A frase de primeiro socorro do produto químico é de seleção obrigatória", vbInformation, "Atenção"
Me.psocorro.SetFocus

ElseIf IsNull(Me.outras) = True Then
MsgBox "Informações complementares é de preenchimento obrigatório", vbInformation, "Atenção"
Me.outras.SetFocus

ElseIf IsNull(Me.fabricacao) = True Then
MsgBox "A data de fabricação do produto químico é de seleção obrigatória", vbInformation, "Atenção"
Me.fabricacao.SetFocus

Else

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
'Mensagem confirmando o cadastro
MsgBox "Cadastro realizado com sucesso!", vbInformation, "Informação"

DoCmd.Close
Me.Requery
End If
End Sub

Wellington

Vendo teus códigos, percebo que no final de cada evento,você fecha o formulários, então deduzo, que não são esse(s)
formulário(s) que precisa atualização.
Se estou certo então no lugar de Me.requery
coloque Forms!frmNomedoteuFormularioQueDesejaAtualizar.Requery
Mas Antes da linha Docmd.Close  quando tiver.
Porque se mandar fechar o formulário, o código seguinte não será processado.

Assim:

Forms!frmNomedoteuFormularioQueDesejaAtualizar.Requery
Docmd.Close



Noob

Obrigado Noob pela ajuda, se não fosse desse fórum e você eu estaria perdido.

Aproveitando o momento gostaria de saber se você conseguiria desvendar outra dificuldade que tenho referente a formatação subscrito (vide Fórum --> Manter Subscrito ao inserir dados em formulário)

Abraços.
Wellington

Então está resolvido?

Se sim, legal.
Só falta colocar o Resolvido no título do tópico.
Se não souber como, veja ali embaixo, na minha assinatura.

Vou dar uma olhada no outro tópico.

Boa sorte


Noob

Resolvido, muito obrigado!