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


    sub formulario consulta quando chegar novo registro executa docmd beep

    avatar
    arturgov
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    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 em 26/7/2019, 19: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, 17:05, editado 3 vez(es)
    marcos_novack
    marcos_novack
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    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 em 27/7/2019, 22: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: 21/8/2019, 13:02