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

    [Resolvido]Contar com resultado em janela pop-up

    Fabio Pradella
    Fabio Pradella
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Contar com resultado em janela pop-up Empty [Resolvido]Contar com resultado em janela pop-up

    Mensagem  Fabio Pradella 28/2/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
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  formiga10x 28/2/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
    [Resolvido]Contar com resultado em janela pop-up AttachmentDcount.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (52 Kb) Baixado 35 vez(es)
    Fabio Pradella
    Fabio Pradella
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Fabio Pradella 28/2/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
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  formiga10x 28/2/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
    Fabio Pradella
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Fabio Pradella 28/2/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
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  formiga10x 28/2/2014, 19:39

    O Fórum agradece o retorno.

    Forte abraço Fábio.

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 07:02