[Resolvido]Exclusão não apertar tecla F5

Boa noite

no arquivo em anexo para atualizar as informações de quantidade de itens cadastrados, a quantidade que estão ativos e o percentual, quando eu cadastro ou altero ele atualiza a informação, porém quando excluo tenho que apertar a tecla f5 para atualizar. como proceder neste caso.

Olá Denilson

Creio que com um "Me.Requery" resolve logo após a instrução da exclusão, ficando assim:

Código:

   If MsgBox("Deseja realmente excluir o registro informado?", vbQuestion + vbYesNo, NOMESYS) = vbYes Then
        DoCmd.RunCommand acCmdSelectRecord
        DoCmd.RunCommand acCmdDeleteRecord
        MsgBox "" & MSG_DEL & "", vbInformation, NOMESYS
    End If
    
    Me.Requery

Outra coisa, uma divisão com 0 não vai dar resultado, por isso recomendo por exemplo alterar onde tem

Código:

PercItAtv = Txt_ItAtv / Txt_ItCad

por exemplo altere para

Código:

   If Txt_ItCad <> 0 Then
        PercItAtv = Txt_ItAtv / Txt_ItCad
    Else
        PercItAtv = ""
    End If

Desta forma verifica se é diferente de 0.

Abraço

Realizei a alteração que você me recomendou e deu certo, porém deparei com uma situação que realizei algumas procuras e não consegui encontrar.
Qdo eu clico em pesquisar e seleciono o produto cabo rigido ele aparece uma mensagem de erro 6 estouro, e quando eu digito branco ele preenche a tela de cadastro e eu consigo excluir o produto normalmente.
Obs.: O campo que vai o código do cadastro é numerico e aceita até 6 caracteres numerico no cadastro. Existe outra forma de fazer ou a que coloquei é a correta. Segue arquivo em anexo

Olá Denilson,

Overflow significa que está a tentar colocar um numero maior do que permite.
Retifique na função de Intenger para Double e verifique


Se a dúvida persistir, abra novo tópico, não devemos misturar dúvidas, mesmo que seja no mesmo projeto.
Não se esqueça de dar o tópico como resolvido.

Abraço

Olá Denilson

Mude o parametro para Long, conforme abaixo:

Public Function CarregaDados(idDados As Long)

   Me.Filter = "[Id_Codsistema] = " & idDados & ""
   Me.FilterOn = True
   Me.Requery

End Function