MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Contar com resultado em janela pop-up

    Compartilhe

    Fabio Pradella
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 239
    Registrado : 08/02/2013

    [Resolvido]Contar com resultado em janela pop-up

    Mensagem  Fabio Pradella em Sex 28 Fev 2014, 15:58

    Bom dia,

    gostaria de contar o numero de registros de uma consulta( todos os Registros ) e:

    em um formulário, dentro de uma textbox, fazer aparecer este resultado:

    e se possível, toda vez que o formulário fosse aberto, uma janela com a opção sim ou não se abrisse com o mesmo resultado do contar.


    Obrigado



    Fabio

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 11/09/2013

    Re: [Resolvido]Contar com resultado em janela pop-up

    Mensagem  formiga10x em Sex 28 Fev 2014, 16:13

    Ai um exemplo


    Se desejar que ao carregar o formulário seja exibido na textbox a soma dos registros:
    Código:
    Me.txtRecebe = DCount("nome", "teste")

    Caso deseje que apareça a opção se deseja a contagem dos registros então:
    Código:
    Private Sub Form_Load()

        If MsgBox("Contar os Resgistros?", vbYesNo, "Contar Registros") = vbYes Then
        Me.txtRecebe = DCount("nome", "teste")
        End If

    End Sub




    Forte abraço.
    Anexos
    Dcount.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (52 Kb) Baixado 11 vez(es)

    Fabio Pradella
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 239
    Registrado : 08/02/2013

    Re: [Resolvido]Contar com resultado em janela pop-up

    Mensagem  Fabio Pradella em Sex 28 Fev 2014, 17:22

    Amigo, quase isso,


    Assim,

    Private Sub Form_Load()

    If MsgBox("Existem ?? registros incompletos,gostaria de revisar agora", vbYesNo, "Contar Registros") = vbYes Then
    DoCmd.OpenForm "meu form para revisão"

    End If
    End Sub

    Só falta ai a contagem de quantos registros e não tenho ideia de como fazer...


    Obrigado

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 11/09/2013

    Re: [Resolvido]Contar com resultado em janela pop-up

    Mensagem  formiga10x em Sex 28 Fev 2014, 18:55

    Ficaria Assim então correto?

    Código:
    Private Sub Form_Load()

    Dim Contador As Integer

    Contador = DCount("nome", "teste")

    If MsgBox("CExistem " & Contador & " registros incompletos,gostaria de revisar agora", vbYesNo) = vbYes Then
    Me.txtRecebe = Contador
    End If

    End Sub

    Fabio Pradella
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 239
    Registrado : 08/02/2013

    Re: [Resolvido]Contar com resultado em janela pop-up

    Mensagem  Fabio Pradella em Sex 28 Fev 2014, 19:37

    Amigo ficou assim,

    Private Sub Form_Load()

    TxtRecebe = DCount("*", "ConsultaFaltantes")

    Dim Q As Integer
    Dim Contador As Integer

    Contador = DCount("*", "ConsultaFaltantes")

    If Me.TxtRecebe > 0 Then
    Q = MsgBox("Existem " & Contador & " registros incompletos,gostaria de revisar agora", vbYesNo, "Contar Registros")
    If Q = vbYes Then
    DoCmd.OpenForm "frm_registro"
    End If
    End If

    End Sub


    Muito obrigado pela ajuda, ajudou muito mesmo....



    Fabio

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 11/09/2013

    Re: [Resolvido]Contar com resultado em janela pop-up

    Mensagem  formiga10x em Sex 28 Fev 2014, 19:39

    O Fórum agradece o retorno.

    Forte abraço Fábio.

      Data/hora atual: Dom 11 Dez 2016, 00:18