Auto Contador - com Critério, Formulário

[Domoreno]

Olá Pessoa,

Gostaria de usar um critério na situação abaixo.

Esse expressão abaixo está inserindo corretamente o último número do Documento +1 " [Num_Doc]+1 ", fazendo que fique automático a inserção do próximo número, porém quando muda o bloco deve-se inserir o numero da 1ª folha do Doc novamente que geralmente não é sequencial ao bloco anterior (bloco de formulário continuo já numerado)

=SeImed(DContar("[Num_Doc]";"tbFormularios")=0;DPesquisa("[DocInicial]";"Doc");DÚltimo("[Num_Doc]";"tbFormularios")+1)

na Tabela "Doc" acrescentei outra coluna chamado de DocFim dessa forma o usuário digita o numero da primeira folha do documento e da ultima, então como acrescentaria um critério para que esse "auto contador" somente insira os valores: Entre [DocInicial] E [DocFim], ??? fazendo que ao acabar o bloco o programa não crie outro numero que não esteja dentro desses dois valores??

visto que como está hoje a função faz apenas uma pesquisa caso não tenha havido nenhum documento salvo e se não acrescenta o valor de [DocInicial]

Tabela: (tabela que o formulário pesquisa caso tenha havido registros)

Doc

Campos:

CodSeq : Auto-numeração

Data :Data()

Num_Doc :Número

DocIncial :Número

DocFim :Número

[MrMALJ]

Guarde o número do bloco em alguma variavel ou objeto bastará você comparar quando for diferente e zerar a numeração.

[Humm]

se eu entendi bem.. voce define o minimo e o maximo..

tendo essas variaveis definidas, entre com SE ou com SeImed

exemplo:

seimed([valor_atual]<[valormaximo] E [valor_atual]>[valor_minimo];caso verdadeiro;caso falso)

[Domoreno]

seria exatamente isso, como faria para que no caso de Falso ele impedir que seja gravado o valor e abra uma mensagem para inclusão de novos valores Máximos e Mínimos?

[Humm]

bom ai você tem que fazer isso via vba usando IF no evento ANTES DE INSERIR com o cancel = true