MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


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

    Wellington PG
    Wellington PG
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 17/02/2013

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

    Mensagem  Wellington PG em 15/11/2014, 13:21

    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
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3633
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho em 16/11/2014, 12:04

    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
    Wellington PG
    Wellington PG
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 17/02/2013

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

    Mensagem  Wellington PG em 16/11/2014, 17:42

    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
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3633
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho em 16/11/2014, 21:17

    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
    Wellington PG
    Wellington PG
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 17/02/2013

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

    Mensagem  Wellington PG em 16/11/2014, 21:57

    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
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3633
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho em 16/11/2014, 23:57

    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

    Wellington PG
    Wellington PG
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 17/02/2013

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

    Mensagem  Wellington PG em 16/11/2014, 23:59

    Resolvido, muito obrigado!

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/7/2019, 08:12