MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    sub formulario consulta quando chegar novo registro executa docmd beep

    avatar
    arturgov
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 07/06/2014

    sub formulario consulta quando chegar novo registro executa docmd beep Empty sub formulario consulta quando chegar novo registro executa docmd beep

    Mensagem  arturgov 26/7/2019, 15:08

    Boa tarde,

    Estou precisando da ajuda de vocês,
    tenho um formulário que tem subformulario que é alimentado por uma consulta, a cada 5 segundo no time, esse subformulario realiza um refresh para atualizar.
    Gostaria que quando ele atualizar verificar se tem um novo registro se tiver ele executar o docmd beep.

    Desde já agradeço.

    Fiz essas alterações no codigo, mas quando a lista esta vazia da erro  diz que não pode ser null . não estou conseguindo solucionar peço novamente a juda.


    Private Sub carregarDados()
    Dim ListControl As Control
    Set ListControl = Forms!Frm_Clientes_Exibir!!FrmSubClassificacaoPaniel!BE
    Contar = ListControl
    ListCount = "SELECT * FROM TB_ATENDIMENTO"


    End Sub


    Private Sub Form_Timer()
    Refresh
    RefreshDatabaseWindow
    Connection

    Dim ListControl As Control
    Dim Contar As Integer
    Set ListControl = Forms!Frm_Clientes_Exibir!!FrmSubClassificacaoPaniel!BE
    Contar = ListControl
    ListCount = "SELECT * FROM TB_ATENDIMENTO"

    If ListControl > Contar Then

    DoCmd.Beep

    End If


    Última edição por arturgov em 30/7/2019, 13:05, editado 3 vez(es)
    marcos_novack
    marcos_novack
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 19/01/2011

    sub formulario consulta quando chegar novo registro executa docmd beep Empty Re: sub formulario consulta quando chegar novo registro executa docmd beep

    Mensagem  marcos_novack 27/7/2019, 18:03

    olá

    Olha se atende o que você precisa, só altere para sua consulta no select.

    Código:
    Private Sub carregarDados()
    Dim ListControl As Control

    Set ListControl = Forms!frm_clientes_exibir_old!ListaClientes

    ListControl.RowSource = "SELECT * FROM tbl1"

    End Sub

    Código:
    Private Sub Form_Timer()
    Dim ListControl As Control
    Dim Contar As Integer
    Set ListControl = Forms!frm_clientes_exibir_old!ListaClientes

    Contar = ListControl.ListCount
    ListControl.RowSource = "SELECT * FROM tbl1"

    If ListControl.ListCount > Contar Then

    DoCmd.Beep

    End If

    End Sub

      Data/hora atual: 7/11/2024, 21:56