Noobezinho 25/8/2015, 19:30
Nilo
Deve pegar um dado que diferencie essas fichas, caso não tenha, crie um dado distinto para cada uma delas.
Vou dar um exemplo:
FichaLote10 = inicia com o número 1000
fichaLote20= ' ' ' 2000
agora irá usar os código que eu te mostrei naquele exemplo
Verifica se existe ficha Lote 10 já cadastrada, gravado na tabela
select case Lote
case 10
if dcount( "*","NomeTabela","[Lote]= 10") = 0 then ' se n existe
Código = 1000
else
dmax( "[Código]","NomeTabela","[Lote]=10")+1 ' aqui irá pra o ultimo numero de código das fichas ficha Lote 10 e acrescenta mais 1 (= 1001)
endif
case 20
if dcount( "*","NomeTabela","[Lote]= 20") = 0 then ' se n existe
Código = 2000
else
dmax( "[Código]","NomeTabela","[Lote]=20)+1 ' aqui irá pra o ultimo numero de código das fichas ficha Lote 10 e acrescenta mais 1 (= 2001
endif
end select
A ideia é mais o menos por ai.
Estudo o código e adapte ao teu caso
[ ]'s
.................................................................................
A pergunta que não quer calar:Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
para enviar parte do projeto, não temos mais continuidade do tópico?
Crê que temos bolas de cristal ou está com medo que "roubemos" a
idéia/projeto dele?
Se é tão bom assim...Ajude a ser ajudado:Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
sem precisar procurar o mesmo.