[Resolvido]Controle de Arquivo, limitar qtde por caixa

Ola pessoal, estou desenvolvendo um controle de arquivo, e preciso colocar apenas 50 formulários em cada caixa, só que eu quero controlar isto em um modulo que emita um aviso ao usuário quando a caixa atingir o limite de 50 unidades e desabilite os campos.

Att.

Ervin

50 formulários em cada caixa???????

Não compreendi, ajudaria se enviasse o modelo do BD.

Cumprimentos,

Segue arquivo do BD.

Preciso controlar quando cada caixa de arquivo atingir a quantidade de 50 unidades, que ai devera ser aberto uma nova caixa de arquivo para mais 50 unidades e assim sucessivamente.


Att.

Ervin

O que é esse bendita caixa de arquivos.. e 50 unidades de que??

Estou com o seu BD aqui e tem apenas um form, e confesso não estou entendedo o que pretende?


Cumprimentos.

Trata-se de formulario impresso com trinta paginas, sendo que para cada cadastro deve ter um formulario original em papel juntamente com xerox de diversos documentos, que devem ser arquivados em caixa de arquivo morto por um periodo de 5 anos.

Grato pela atenção dispensada, sua contribuição tem sido fundamental para solucionar diversas questões relacionadas a sistemas no meu trabalho.

Att.

Ervin

entendi.. e o que tem isso haver com o exemplo que postou...

O que pretende neste BD, isso que quero saber!!

Cumprimentos.

Este é o BD que utilizo para registrar onde esta guardado o formulario impresso juntamente com serox dos documentos, segue anexo imagem do formulario supracitado.
Temos mais de 13.000 unidades e arquivamos em caixa de arquivo morto, devido ao grande volume ha muita dificuldade quando necessitamos localizar um formulario no arquivo.

A pretençao com esse BD é digitar o código e saber exatamente em qual caixa se encontra tal formulario, facilitando a sua localização no arquivo.

Cordialmente

Ervin

Boas Amigo, estive ausente por miotivos de saúde... Vamos continuar se não tiveres resolvido ainda...

Aguardo.

Cumprimentos.

Podemos continuar sim, o projeto esta aguardando sugestões.
Conto com a sua...

Cordialmente,

Ervin

Sim.. mas pretendo entender como que deseja que o sistema faça isso:

A pretençao com esse BD é digitar o código e saber exatamente em qual
caixa se encontra tal formulario, facilitando a sua localização no
arquivo.

Cumprimentos.

Vamos la...

1- Criado uma caixa texto onde exibe a quantidade de arquivos por caixa
2- No evento no Atual código para checagem da caixa exibindo ou não rotulo de aviso para o limite excedido da caixa... a medida que se avanca nos botões de navegação:

Private Sub Form_Current()
Me.txtCount = DCount("*", "[ARQUIVO-FORM-PRINCIPAL]", "[Numero-Caixa] = " & txtCaixa & "")
If Me.txtCount >= 50 Then
   Me.lbAviso.Visible = True
Else
   Me.lbAviso.Visible = False
End If
End Sub


3 -  Renomeado a caixa texto Numero-Caixa para txtCaixa, evite nome de campos ou objetos separados com hífem, isto dara erros futuros, corrija!
4 - No evento apos atualizar da caixa texto txtCaixa evento para so se digitar o numero da caixa verificar a quantidade de registros da mesma emitindo aviso caso seja excedido.

Private Sub Form_Current()
Me.txtCount = DCount("*", "[ARQUIVO-FORM-PRINCIPAL]", "[Numero-Caixa] = " & txtCaixa & "")
If Me.txtCount >= 50 Then
   Me.lbAviso.Visible = True
Else
   Me.lbAviso.Visible = False
End If
End Sub


Cumprimentos.