ENCONTRAR O NUMERO MAIOR EM UMA SEQUENCIA
Bom dia a todos...
Gostaria que alguém pudesse me ajudar, num problema que estou tendo com o meu programa. Tentarem ser o mais especÃfico possÃvel:
Criei um programa de cadastro de funcionários no VB6 usando um banco de dados do ACCESS...
Nesse banco, tenho um campo chamado CARTAO onde eu cadastro o número dos cartões de cada um. Só que esses cartões tem de seguir um padrão imposto pela empresa.
Ex: de 001 a 300 => Funcinário Padrão
de 301 a 400 => Diretores
de 500 a 900 => Estagiários
Agora vem a minha dificuldade:
Eu criei um form simples, pra que quando eu precisar ver em qual numeração está cada código, ele me mostre o último de cada intervalo.
Ex. o último de Funcionários, o último de Diretores e o último de Estagiários.
Só que não estou conseguindo desenvolver essa rotina.
por favor, peço ajuda a quem puder me ajudar.
Obrigado desde já.
Gostaria que alguém pudesse me ajudar, num problema que estou tendo com o meu programa. Tentarem ser o mais especÃfico possÃvel:
Criei um programa de cadastro de funcionários no VB6 usando um banco de dados do ACCESS...
Nesse banco, tenho um campo chamado CARTAO onde eu cadastro o número dos cartões de cada um. Só que esses cartões tem de seguir um padrão imposto pela empresa.
Ex: de 001 a 300 => Funcinário Padrão
de 301 a 400 => Diretores
de 500 a 900 => Estagiários
Agora vem a minha dificuldade:
Eu criei um form simples, pra que quando eu precisar ver em qual numeração está cada código, ele me mostre o último de cada intervalo.
Ex. o último de Funcionários, o último de Diretores e o último de Estagiários.
Só que não estou conseguindo desenvolver essa rotina.
por favor, peço ajuda a quem puder me ajudar.
Obrigado desde já.
Select max(Cartao) from tabela
where cartao >=[ô]001[ô] and cartao <=[ô]300[ô]
Tenta aplicar isto.
Abraços
where cartao >=[ô]001[ô] and cartao <=[ô]300[ô]
Tenta aplicar isto.
Abraços
Como eu monto esse Select ??? No Form_Load ???
vc usa ADO ou DAO?
DAO...
Gostaria que postasse o procedimento completo por favor. Sou um pouco leigo pra certar coisas ainda. Por exemplo, como montar esse tipo de Select. Só como está descrito acima eu não sei como montar...
Obrigado...
Gostaria que postasse o procedimento completo por favor. Sou um pouco leigo pra certar coisas ainda. Por exemplo, como montar esse tipo de Select. Só como está descrito acima eu não sei como montar...
Obrigado...
If tabela([Ô]codigofunc[Ô]).value > 1 and <300 then
'faca oque quiser com o funcionario
elseif If tabela([Ô]codigodir[Ô]).value > 301 and <400 then
'faca oque quiser com o diretor
elseif If tabela([Ô]codigoest[Ô]).value > 500 and <900 then
'faca oque quiser com o estagiario
end if
é mais ou menos isso cara...
'faca oque quiser com o funcionario
elseif If tabela([Ô]codigodir[Ô]).value > 301 and <400 then
'faca oque quiser com o diretor
elseif If tabela([Ô]codigoest[Ô]).value > 500 and <900 then
'faca oque quiser com o estagiario
end if
é mais ou menos isso cara...
Adilsoo...
Com o If não funcionou cara...
O form que eu criei para aparecer essa informação está assim:
Diretores: 000 -> aqui eu quero que apareça o último da sequência dele que é de 301 a 400.
Funcionários: 000 -> aqui eu quero que apareça o último da sequência dele que é de 001 a 300.
Estagiários: 000 -> aqui eu quero que apareça o último da sequência dele que é de 500 a 900.
Obs.: só usei Labels no Form.
Com o If não funcionou cara...
O form que eu criei para aparecer essa informação está assim:
Diretores: 000 -> aqui eu quero que apareça o último da sequência dele que é de 301 a 400.
Funcionários: 000 -> aqui eu quero que apareça o último da sequência dele que é de 001 a 300.
Estagiários: 000 -> aqui eu quero que apareça o último da sequência dele que é de 500 a 900.
Obs.: só usei Labels no Form.
entao mais esses dados estao gravados em banco access nao?
Sim... O Banco de Dados está em Access...
Estou anexando um print dele pra ter uma idéia melhor do que eu estou falando...
Estou anexando um print dele pra ter uma idéia melhor do que eu estou falando...
exatamente o que nosso amigo Guimoraes123 disse , você precisa de um campo identificando o que você quer inserir
se for funcionário então faça esse select:
[Ô]Select max(Cartao + 1) as ProximoNumero from tabela where cartao >=[ô]001[ô] and cartao <=[ô]300[ô][Ô]
e no recordset recupere com : Rs!ProximoNumero
se for funcionário então faça esse select:
[Ô]Select max(Cartao + 1) as ProximoNumero from tabela where cartao >=[ô]001[ô] and cartao <=[ô]300[ô][Ô]
e no recordset recupere com : Rs!ProximoNumero
Pessoal...
Oque eu estou querendo, é criar uma forma do Form me mostrar qual o último número usado em cada sequência.
Como estou mostrando nessa imagem:
Oque eu estou querendo, é criar uma forma do Form me mostrar qual o último número usado em cada sequência.
Como estou mostrando nessa imagem:
Tópico encerrado , respostas não são mais permitidas