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
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)