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

    Contar Registros com critério em formulario

    Compartilhe

    odaweb
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4
    Registrado : 27/05/2014

    Contar Registros com critério em formulario

    Mensagem  odaweb em 11/4/2018, 16:12

    Bom dia.
    Sou fraco em Access, estou tentando criar uma formula para contar registros de acordo com um critério no formulário, por exemplo:
    Tenho um arquivo morto com cadastro de funcionários dentro de uma caixa, cada caixa tem seu numero e com no máximo 20 fichas, quero montar a formula para ir contando os registros de acordo com o numero da caixa:
    Ex.
    Caixa 100 tantos registros.

    Se poder avisar quando chegar a 20 seria ótimo, mas tudo que vi neste fórum e testei não consegui fazer funcionar.
    Se alguém poder ajudar....

    Atenciosamente.

    (Estou mandando o arquivo para tentarem entender melhor)
    [Você precisa estar registrado e conectado para ver este link.]
    Anexos
    Arquivo Morto.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (333 Kb) Baixado 4 vez(es)
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4116
    Registrado : 20/04/2011

    Re: Contar Registros com critério em formulario

    Mensagem  Silvio em 11/4/2018, 18:31

    Boa tarde, seja bem vindo ao fórum.

    Copie e cole essas funções no evento após atualizar da caixa de texto com o nome: caixa.

    Código:
    Private Sub Caixa_AfterUpdate()
    Call Contagem
    End Sub

    Private Sub Contagem()
    Dim x As Integer
    Dim y As String
    y = Nz(DLookup("Caixa", "Tab_dados", "caixa = Forms!Cad_dados!Caixa"))
    x = Nz(DCount("Caixa", "Tab_dados", "caixa = Forms!Cad_dados!Caixa"))
    If x > 20 Then
    DoCmd.CancelEvent
    Me.Undo
    Me.Caixa.SetFocus
    MsgBox ("Limite de 20 registros atingidos, mude de caixa"), vbInformation, "Aviso"
    End If
    End Sub

    A função faz a contagem baseada no texto digitado na caixa de texto " caixa"

    Teste e nos informe.

    Abraços.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    odaweb
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4
    Registrado : 27/05/2014

    Contar Registros com critério em formulario - Parte 2

    Mensagem  odaweb em 11/4/2018, 19:35

    Boa tarde Silvio
    Muito Obrigado pelo rápido retorno e simplesmente fantástico, ele faz a contagem certinho pelo numero da caixa e me avisa quando chega ao limite.
    Antes de eu receber a resposta do Post eu estava testando uma formula para ir contando de acordo com a quantidade dentro da caixa, tudo que achei no fórum eu tentei, porem acho que pela minha inabilidade com o Access não consigo fazer certo, se tiver tempo e puder ajudar no erro que esta dando eu agradeço.
    E Obrigado pela força que deu.

    Atenciosamente

    Segue arquivo com o erro que esta dando
    Anexos
    Arquivo Morto.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (336 Kb) Baixado 4 vez(es)
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4116
    Registrado : 20/04/2011

    Re: Contar Registros com critério em formulario

    Mensagem  Silvio em 11/4/2018, 19:39

    Que bom que está resolvido.

    Mas, regras são regras....Nova duvida é um novo tópico !


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    odaweb
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4
    Registrado : 27/05/2014

    Contar Registros com critério em formulario - Parte 2

    Mensagem  odaweb em 11/4/2018, 19:41

    Ola Silvio.
    Melhor eu aprender a ler as regras.

    Desculpe e obrigado

      Data/hora atual: 19/11/2018, 05:45