Contar Registros no formulario mostrando em uma caixa de texto.

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

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"