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 no formulario mostrando em uma caixa de texto.

    Compartilhe

    odaweb
    Novato
    Novato

    Respeito às Regras 100%

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

    Contar Registros no formulario mostrando em uma caixa de texto.

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

    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 14 vez(es)
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: Contar Registros no formulario mostrando em uma caixa de texto.

    Mensagem  Silvio em 14/4/2018, 20:12

    Boa tarde.

    Veja, para sabermos a quantidade que tem dentro de caixa, temos que definir algumas coisas.

    1- primeiro criamos uma variável y
    Dim y As String ( string =texto )
    y = Nz(DLookup("Caixa", "Tab_dados", "caixa = Forms!Cad_dados!Caixa"))
    Essa variável, "pega" o numero da caixa e armazena em Y

    2- depois criamos uma variável que vai receber a contagem
    Dim x as Integer ( interger = numero )
    x = Nz(DCount("Caixa", "Tab_dados", "caixa = Forms!Cad_dados!Caixa")) poderia ter posto a variável Y aqui no lugar de Forms!Cad_dados!Caixa, mas não quis.

    Essa variável faz a contagem na caixa, "pega" na variável X


    então entramos com a lógica da programação:
    If x > 20 Then
    Se a variavel > for maior que 20
    DoCmd.CancelEvent
    cancela o evento
    Me.Undo
    restaura o formulário
    Me.Caixa.SetFocus
    move o foco para a caixa


    Sua formula
    =DContar("[Qtde Caixa]";"cad_dados";"[Caixa]=100")

    1- não definiu a Qtde Caixa se é variável  ou não !
    2- Cad_dados --> buscando dados no formulário e não tabela.   Usa o Dcount, Dlookup em tabelas ou consultas.
    3- Caixa -->campo de formulário " travado apenas na caixa 100"


    Última edição por Silvio em 14/4/2018, 21:57, editado 1 vez(es) (Razão : Acréscimos de informações.)


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

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