[Resolvido]Gerar números aleatórios com validação

Olá a todos. Após buscas nesse site não consegui o que desejava, então pediria ajuda de vocês novamente para o seguinte:
* Utilizo o Access 2003

Rotina para gerar quantidade x de números aleatórios sem repetição com 6 dígitos + código de validação com 4 letras, sem repetição desses números e letras gerados.

Explicando:
Gerar quantidade de: 10, 40, 25, 50, 100, 1000, 10000 ou qualquer outra quantidade - sem repetição até o limite de 999.999 - para posterior verificação através do código de  validação com 4 letras, como se fossem dígitos verificadores.
Cada código gerado após confirmada sua validade não mais poderá ser validado.

Exemplo: Foi gerado o número 006463 com as letras BGTY, então o código ficaria assim: 006463-BGTY
Em um formulário seria digitado esse código para ser validado e que após verificado se existe na BD, o mesmo seria tido como Validado.
Caso fosse novamente digitado para validação, seria informado que o mesmo já está validado e não pode mais ser utilizado.

Espero tenham entendido a forma como expliquei, senão vamos aos poucos esclarecendo melhor.

Caro Avelino, agradeço a atenção e a dica, mas é que já havia visto esse seu exemplo e outros, mas não consegui adaptar para o que desejo, visto que minha experiência em VBA é muito pouca, porisso ainda não consigo desenvolver tal rotina sozinho, tipo onde colocar tais comandos, como começar, etc. entende?

Esqueci de acrescentar um detalhe no número a ser gerado: Tenho um cadastro de empresas que por sua vez tem um código sequencial de autonumeração (CodEmpresa) que seria acrescentado ao número gerado aleatoriamente dentro de um intervalo inicial e final, para isso gerando a cada vez um Lote de x registros sequenciais.

Exemplo 1: Código da empresa 099. No formulário pede para gerar o 1º Lote com 05 números aleatórios sem repetição, nesse caso os registros poderiam ficar assim:
registro 1: 099.000005-VFCE
registro 2: 099.000003-VIOP
registro 3: 099.000001-QTYI
registro 4: 099.000002-KITV
registro 5: 099.000004-MJUY

Na próxima vez que no cadastro dessa mesma empresa pedir para gerar 20 números começaria a geração do 2º Lote a partir do registro nº 6 até 25 de forma aleatória e sem repetição, e com rotina de validação de cada um desses números gerados, posteriormente, conforme instruções iniciais.

Exemplo 2: Código da empresa 100. No formulário pede para gerar o 1º Lote com 05 números aleatórios sem repetição, nesse caso os registros poderiam ficar assim:
registro 1: 100.000004-RTYE
registro 2: 100.000002-VDEY
registro 3: 100.000003-VTYW
registro 4: 100.000005-BGTY
registro 5: 100.000001-QRTV

Na próxima vez que no cadastro dessa mesma empresa pedir para gerar 10 números começaria a geração do 2º Lote a partir do registro nº 6 até 15 de forma aleatória e sem repetição, e com rotina de validação de cada um desses números gerados, posteriormente, conforme instruções iniciais.

Em resumo: Gerar uma quantidade x de números aleatórios por empresa, onde esses números seriam não-sequenciais e sem repetição dentro de um Lote com intervalo inicial e final com 4 letras como dígitos verificadores, para posterior impressão desses códigos gerados e verificação de validação no próprio formulário.

Olá vileman,

Vou deixar por algum tempo esta função para você testar.

Código preservado devido a meus direitos autorais. Este código e outros mais interessantes estarão publicados em ebook em breve.

Bom dia, Good guy

Valeu, vou testar e depois posto o resultado.

Muita Paz

Caro colega, Good Guy, como vai?

Fiz o seguinte para tentar conseguir executar a rotina:

1. A rotina consiste em:
   a. Cadastrar Empresas;
   b. A partir de pedidos feitos por uma Empresa, gerar a quantidade de Cupons solicitada para serem impressos com a numeração gerada com Intervalo inicial e final em um Lote (ou outra  forma), e depois entreguees para a Empresa solicitante, que por sua vez distribui com seus clientes;
   c. O cliente de posse desse Cupom numerado vai até uma filial da Empresa e apresenta o mesmo, que é conferido pelo Sistema para validar ou não o mesmo: Caso o mesmo seja validado, ou seja, verificada e confirmada a codificação gerada pela rotina, o mesmo é aceito pela Empresa em suas filiais, e dado baixa no formulário, havendo o travamento desse registro; caso contrário emite uma mensagem informando que o Cupom é válido, mas já foi utilizado e não tem mais validade, ou que a numeração é inválida, e portanto, este Cupom não pode ser utilizado, conforme o caso. Em sendo validado, o campo ‘ValidacaoSN’ da tabela ‘T081_Cupons’ será automaticamente atualizado para Sim (0), para esse Cupom, e não mais poderá ser utilizado em outra filial;
d. Ver exemplos na mensagem nº 3 deste tópico.

2. Já havia criado a tabela “T08_Empresas” com os campos:
   a. CodEmpresa. Tipo: Autonumeração. Chave primária
   b. RazaoSocial. Tipo: Texto. Tamanho: 255
   c. CNPJ_CPF. Tipo: Texto. Tamanho: 14
  d. DataCadastro. Tipo: Data/Hora
   ... mais outros campos correlatos

3. Criei a tabela “T081_Cupons” com os campos:
   a. CodCupom. Tipo: Autonumeração. Chave primária
   b. IDEmpresa. Tipo: Número. Inteiro longo
   c. NumLote. Tipo: Texto. Tamanho: 6
   d. ValidacaoSN. Tipo: Sim/Não. Valor Padrão: 0 (Não). (S: Sim Validado. N: Não Validado)
   e. CampoSerie. Tipo: Texto. Tamanho: 13. Máscara: 000.000000-AAAA
   f. ValorInicial. Texto. Tamanho: 6
   g. ValorFinal. Texto. Tamanho: 6

4. Criei o Relacionamento para as 2 tabelas entre os campos: ‘CodEmpresa’ e ‘IDEmpresa’ sendo: um-para-vários, respectivamente.

5. Criei um Formulário: “F08_Empresas” = para cadastrar as Empresas

6. Criei um Subformulário: “F081_Cupons” vinculado ao “F08_Empresas” = para gerar os vários pedidos dos Cupons da Empresa com numeração aleatória e sem repetição com intervalos inicial e final dentro de um Lote para posterior validação, conforme texto acima.
Neste subformulário:
6.1) copiei sua rotina ”Function CriarSequencia”
6.2) criei o botão “cmdGerar”
6.3) no campo ‘CampoSerie’ no evento “após atualizar” copiei sua rotina, alterando apenas 2 linhas:
    a. Set rstMinhaTabela = db.OpenRecordset("T081_Cupons", dbOpenDynaset) * Nome da minha tabela
     b. sSerie = Forms!F081_Cupons!CampoSerie                                               * Nome do meu formulário

Resultado: Ao clicar no botão “cmdGerar” nada acontece, nem mesmo nenhum tipo de erro quando faço a compilação ou depuração.
Testei este botão em ‘Detalhe’ e no Rodapé do subformulário, mas o resultado é o mesmo. Estou enviando em anexo o arquivo, caso deseje analisar melhor.
Muita Paz.

PS: Ao tentar anexar o arquivo deu a mensagem: "Os seguintes erros foram encontrados
Não é possível enviar o arquivo : o espaço total de armazenamento foi ultrapassado. (Espaço restante : 2161 Kb)
No entanto, meu arquivo zipado está com 2,25 Mb, enquanto que no site informa que o tamanho máximo é de 2,998 Mb, então se quiser posso enviar para seu e-mail.
Fico no aguardo de seu retorno.

Olá Vileman,

Posta pelo dropbox que é o recomendado aqui no fórum. A dúvida precisa estar aberta para todos.

Como faço para enviar pelo Dropbox, pode dizer o passo-a-passo ?

Caro colega, se não for pedir demais, poderia enviar para mim o arquivo que baixa o dropbox, pois tentei aqui no trabalho e o firewall está bloqueando, e na minha residência estou sem internet.

Olá vileman,

Faça seu registro aqui e siga as instruções.

https://www.dropbox.com/

Obrigado, acho que consegui, vejam um dos links abaixo:

https://www.dropbox.com/s/ndwb4c47tbbu921/Aleatorios.zip?dl=0

https://dl.dropboxusercontent.com/u/43719372/Aleatorios.zip

Olá vileman,

Desenvolvi uma solução, mas não consegui compartilhar pelo computador de serviço. Vou fazê-lo do meu computador doméstico. Por favor aguarde...

Teste aí:

http://www.4shared.com/rar/xjr-XJAPba/Aleatorios.html?

Olá Good guy

Ao clicar no link aparece a mensagem de erro

Não é possível exibir está página
Verifique se o endereço da web http:4shares.com.br está correto

PS: também aparece a mesma mensagem quando envio essa resposta pelo site, então consegui enviar pelo meu Iphone agora
PS2: Agora consigo enviar mensagem pelo site, vai entender, mas o link continua com a mesma mensagem de erro.

Olá vileman,

Não encontrei nenhum erro no link ao clicar pelo site MáximoAccess. Temporariamente, faça o seguinte forneça o seu email que postarei o arquivo. Depois se houver problemas ou estiver tudo ok, poste o mesmo pelo dropbox.

Oi, Good guy

E-mail: vileman@hotmail.com

Ok, enviado.

Olá, Good guy

Recebido, vou fazer os testes e depois posto os resultados.

Olá, Good guy

Após testes:

A) Acho que eu que não me expliquei da forma correta com relação a rotina pretendida, pois antes de testar observei que:
A tabela “tblSelecao” estava com os registros assim:
tblSelecao
CodCupom IDEmpresa IDVendedor NumLote ValidacaoSN CampoSerie ValorInicial ValorFinal
2-BLAB          0                 0              16              0                                  1            5
1-QQAQ         0                 0              17              0                                  1            5
3-BAQA          0                0              18              0                                  1             3
5-AQLB          0                 0             19              0                                   6           10
6-LLAL           0                 0             20              0                                   1             7
5-AQLB          0                 0             19              0                                   6           10
0
0
0
0
0
0
0
0
0
0
• 6 registros com dados
• 10 registros sem dados ??
• Dados entre as Tabelas “T081_Cupons” e “tblSelecao” não deveriam ser iguais ??

A Tabela “T081_Cupons” tem 02 registros com os códigos: ‘1-BAQN’ e ‘2-QQLN’ no campo 'CodCupom'; e ao testar clicando no botão: 'cmdGerar' no formulário: “F08_Empresas” mostrou os seguintes códigos dentro dos intervalos inicial e final (1 a 5):
2-NNBB
1-QAAB
5-LQLA
2-QLBL
3-ALQB

Em seguida aparece uma InputBox: ("Digite o código: "), então – sem haver entendido e para testar – digitei um dos códigos gerados acima: ‘2-QLBL’, que apenas substituiu o código ‘1-BAQN’, na tabela “T081_Cupons”, e após aparece uma MsgBox "2-QLBL. Este cupom não foi localizado. Por favor, prossiga...".

Resultado: Desculpe, a rotina não seria dessa forma, então para tentar ser mais explícito e claro, embora vá ficar o texto muito extenso, seria assim:

• Digitar o intervalo inicial e o intervalo final para a quantidade de códigos aleatórios a ser gerado, seja diretamente nos campos correspondentes ou através de InputBox, para cada empresa individualmente, ficando esses códigos vinculados à mesma.
• Nesse momento é gerado um número de Lote único para cada código, dentro do intervalo informado.
• Na tabela que guarda os códigos gerados, os dados ficariam gravados assim: Exemplo intervalo 1 a 5 para a Empresa com CodEmpresa= 1:

CodCupom            IDEmpresa IDVendedor NumLote ValorInicial ValorFinal ValidacaoSN
001.000001-QAAB        1                 0             001           1              5              0
001.000005-LQLA         1                 0             001           1              5              0
001.000003-QLBL         1                 0             001           1              5              0
001.000002-ALQB         1                 0             001          1               5              0
001.000004-LQAL         1                 0             001           1              5              0
Significa:
1) Que foram gerados 05 códigos aleatórios (Cupons) que ficarão vinculados à Empresa 1, gerados com o Lote nº 001, indicando que o intervalo inicial = 1 e o intervalo final =5, em todos os 05 registros;
   • PS: A máscara do ‘CodCupom’ = 03 caracteres para o código da Empresa + 06 caracteres para os números gerados + 04 letras maiúsculas

2) Todos os Cupons gerados precisam ficar sempre disponíveis para que posteriormente possam ser validados pelo usuário no campo ‘ValidacaoSN’, caso o Cupom tenha sido gerado e emitido pela rotina.

3) A validação é sempre posterior à geração dos Cupons, e não no momento da geração dos mesmos;

4) Caso essa mesma Empresa 1, solicite mais 10 cupons, seriam gerados mais 10 registros que ficariam assim gravados:
CodCupom              IDEmpresa IDVendedor NumLote ValorInicial ValorFinal ValidacaoSN
001.000006-ABQL            1               0             002          1              10              0
001.000008-AQLA            1               0             002          1              10              0
001.000010-QABQ           1               0              002         1              10              0
001.000012-ALQB            1               0             002          1              10              0
001.000015-AQAL            1               0             002          1              10              0
001.000007-NNBA            1               0             002         1              10              0
001.000009-BQAB            1               0             002          1              10              0
001.000011-QBAL            1               0             002         1               10              0
001.000014-BQLA            1               0             002         1               10              0
001.000013-QNBA           1               0              002        1               10              0
Importante:
• Observe que o último código numericamente gerado para a Empresa 1 no Lote 001 foi 000005, então quando gerar novos códigos no próximo Lote 002, o mesmo iniciará o intervalo inicial a partir de 000006 até o intervalo final informado, e assim por diante nas próximas gerações dos Cupons para essa mesma Empresa, nesse caso, a rotina precisaria identificar o último código numericamente gerado.

5) Quando qualquer outra Empresa solicitar Cupons. Exemplo: intervalo 1 a 5 para a Empresa com CodEmpresa= 2 ficariam assim gravados:
CodCupom              IDEmpresa IDVendedor NumLote ValorInicial ValorFinal ValidacaoSN
002.000001-ABQL            2               0              003         1               5              0
002.000003-ABLA            2               0              003         1               5              0
002.000005-QALQ           2                0             003         1               5               0
002.000004-ABQB           2                0             003         1               5               0
002.000002-ABAL           2                0             003         1               5               0
Significa:
• Que foram gerados 05 códigos aleatórios (Cupons) que ficarão vinculados à Empresa 2, iniciando do código 000001, assim como da Empresa 1, gerados com o Lote nº 003, visto que a numeração dos Lotes pode ser sequencial dentro da Tabela – ou não – entre as Empresas quando solicitam os Cupons, mas como são Empresas diferentes, os intervalos podem ser iguais quando da geração dos códigos aleatórios;
• PS: O número do Lote entre as Empresas pode ser sequencial ou não, como achar melhor ou mais prático.

6) Quando a Empresa 1 solicitar mais 05 Cupons, os dados ficariam assim gravados:
CodCupom              IDEmpresa IDVendedor NumLote ValorInicial ValorFinal ValidacaoSN
001.000016-ABQL            1                0           004            1              5             0
001.000020-ABLA            1                0            004           1              5             0
001.000018-BALQ            1                0            004           1              5             0
001.000017-ABQB            1                0            004           1              5             0
001.000019-AQAL            1                0            004           1              5             0

7) Pode excluir o campo ‘CampoSerie’ da tabela “T081_Cupons”;

8)Para finalizar, após gerar os códigos por intervalos para os Cupons, incluir a opção de imprimir esse intervalo por Lote gerado.
Exemplo: MsgBox: “Deseja imprimir o Lote gerado do Intervalo ? – Opções: Sim / Não”
Sim: Imprime Relatório
Não: Finaliza rotina

B) Ao clicar no botão 'cmdRelatorio' aparece a mensagem: "Erro de compilação. Variável não definida", apontando para a linha: DoCmd.OpenReport "Relatório", acViewReport, , , acDialog,
com destaque em azul para a palavra 'acViewReport'.

Caro colega, caso precise fazer quaisquer tipos de alteração nas tabelas ou formulários, fique a vontade, e espero que dessa vez tenha ficado mais objetivo e claro para o seu entendimento ou dos demais.

Muita Paz.

Olá vileman,

Ao digitar o código do cupom gerado, verifique se o cursor está no registro seguinte, caso contrário substituirá o código existente. Vou reler as suas observações para ver se entendo como são gerados os campos IDEmpresa, lote e camposerie. De antemão, me explique porque não entendi na apresentação do problema e nem na leitura rápida de suas últimas observações.

Quanto a tabela tblSelecao eu só a criei para gerar uma consulta onde não houvesse um campo de código do tipo autonumeração como o que existe se não me engano na tabela T081_Cupons.

Ao digitar o código do cupom gerado, está apenas substituindo o código já existente.

O campo IDEmpresa é salvo pelo campo CodEmpesa, visto que o mesmo é vinculado ao Campo CodEmpresa, pelo relacionamento criado como um-para-vários, respectivamente: CodEmpresa x IDEmpresa, visto que a vinculação também foi feita no formulário 'F08_Empresas' com o subformulário 'F081_Cupons'.

O campo Lote seria gerado pela rotina após gerar os números aleatórios e seria repetido em cada um dos registros. Exemplo: Gerar intervalo inicial 1 e intervalo 5, então esses 5 registros teriam o mesmo nº de lote, ou se preferir um lote com 5 registros gerados. Esse nº de Lote por empresa pode ser na ordem sequencial independentemente da Empresa ou se sequencial por empresa, tanto faz, como achar melhor. Que também seria usado para imprimir um Relatório por Empresa e Lote, quando necessário.

O campo 'CampoSerie' pode excluir, coloquei como teste quando da sua 1ª rotina enviada, achei que precisaria criar esse campo na tabela.

PS: Quanto a tabela 'tblSelecao', faça como achar melhor e mais prático ou mude o tipo de campo na tabela T081_Cupons, fique a vontade.

Ok,

Vamos por etapas, primeiro exclua a tabela tblSelecao, ela não é mais necessária, troque pela tabela T081_Cupons na string SQL INSERT INTO. Modifiquei o código. Faça as seguintes alterações abaixo. Na própria inputbox serão gerados os códigos de cupons conforme o IDEmpresa inicial ou presente entre os intervalos, isto é, até você completar todos os registros com a inserção devida do código do cupom.

Não vejo necessidade de desenvolver qualquer código para preencher o  número de lote. Basta preenchê-lo manualmente e ao gerar o código do cupom com um novo IDEmpresa começar tudo de novo as numerações de código de cupom.

Para evitar duplicação de código de cupom, gere mais vetores conforme está explicado no código da função. Caso seja realmente necessário codificar o número de lote me avise.

Outra coisa: VERIFIQUE SE O CURSOR ESTÁ NO REGISTRO SEGUINTE COM O CAMPO CÓDIGO DE CUPOM VAZIO; Preencha o valor inicial e valor final e em seguida clique no botão Gerar Cupons.

Olá, Good Guy, bom dia.

Segui suas instruções e fiz os testes, e aconteceu assim:

1) Verifiquei se o cursor estava no registro seguinte com o campo Código de Cupom vazio = Sim, estava.

2) Preenchi o valor inicial = 000001 e valor final = 000005 e cliquei no botão Gerar e foram gerados os códigos:
   2-AAAQ
   4-LLQA
   4-AAAQ
   2-AMHL
   2-NBAL
que aparecem em uma InputBox que pede para digitar o código.

Conclusão:
a) Até a geração dos códigos está correto, mas o que preciso é que esses 05 códigos gerados - ou até mesmo uma quantidade maior - sejam todos lançados na tabela "T081_Cupons" e não que eu digite um dos códigos, pois quando digito ele simplesmente atualiza o campo 'CodCampo' para o registro corrente.
b) Depois de gerados os Cupons com os códigos, os mesmos serão impressos para um formulário pre-impresso para posteriormente serem validados pelo usuário, ou seja, precisam ficar armazenados na tabela para que haja essa posterior validação dos cupons.
c) Quando a mesma empresa fizer um novo pedido de mais cupons, estes também seriam adicionados aos já existentes na tabela para posterior validação.

3) O preenchimento do nº do lote é necessário de forma automática, pois apesar de está usando o exemplo aqui na geração de apenas 5 ou 10 códigos, a ideia é que possam ser gerados 500, 1000 códigos ou até mais, e para fazer isso de forma manual seria demorado e improdutivo, entende?

4) Inclui mais 2 vetores para as letras k(6)="H" e k(7)="H" e funcionou normalmente. Irei incluir todas as letras do alfabeto, até o término desta rotina.

Olá vileman,

Como é que é a lógica de preenchimento do número do lote?

Melhor ser sequencial por empresa, mas se ficar complicado pode ser sequencial independentemente da empresa.

Exemplos: Sequencial por empresa
1) Empresa 1 pediu 50 cupons = Lote 001
2) Empresa 2 pediu 10 cupons = Lote 001
3) Empresa 1 pediu mais 200 cupons = Lote 002
4) Empresa 3 pediu 100 cupons = Lote 001
5) Empresa 1 pediu mais 100 cupons = Lote 003
6) Empresa 2 pediu 50 cupons = Lote 002

Exemplos: Sequencial independente da empresa
1) Empresa 1 pediu 50 cupons = Lote 001
2) Empresa 2 pediu 10 cupons = Lote 002
3) Empresa 1 pediu mais 200 cupons = Lote 003
4) Empresa 3 pediu 100 cupons = Lote 004
5) Empresa 1 pediu mais 100 cupons = Lote 005
6) Empresa 2 pediu 50 cupons = Lote 006

Olá vileman,

Ainda está meio confuso e não padronizado. A lógica correta seria (independente da empresa):

50 cupons => Lote 1
100 cupons => Lote 2
200 cupons => Lote 3

Como é que pode ser do jeito como está? Que lógica é esta que não segue uma correspondência uniformizada? Está muito confuso. Não é possível fazer do jeito indicado acima ou parecido?

Sim, pode ser sequencial independente da empresa, ou seja, sequencial a partir de 001 a cada pedido de cupons, independente da empresa que faça o pedido.

1º pedido = 50 cupons => Lote 001 - empresa 01
2º pedido = 100 cupons => Lote 002 - empresa 01
3º pedido = 200 cupons => Lote 003 - empresa 02
4º pedido = 100 cupons => Lote 004 - empresa 03
e assim por diante ...

Entendendo-se que no exemplo acima a empresa 01 fez os 2 primeiros pedidos.

Olá vileman,

Ainda está confuso. Vê se você consegue me entender.

1º pedido = 50 cupons => Lote 001 - empresa 01
2º pedido = 100 cupons => Lote 002 - empresa 01
3º pedido = 200 cupons => Lote 003 - empresa 02
4º pedido = 100 cupons => Lote 004 - empresa 03

Veja como seria mais prático codificar. Para cada empresa sua própria numeração à parte.

1º pedido = 50 cupons => Lote 001 - empresa 01
2º pedido = 100 cupons => Lote 002 - empresa 01
*********************************************
3º pedido = 200 cupons => Lote 001 - empresa 02
..........................................................................
********************************************
4º pedido = 100 cupons => Lote 001 - empresa 03
.............................................................................

É exatamente isso quando falei que seria sequencial por empresa, acho que não expliquei direito, mas enfim é isso mesmo

OK

Aguarde...Verifique se estamos indo bem pela sua caixa de entrada de e-mails. Se estiver ok posto algum resultado aqui como código.

Bom dia, Good guy

Sim, recebi o arquivo enviado por e-mail no dia 30/04/2015.

Nos testes gerando a cada vez 25 cupons nos intervalos inicial e final, conforme sua orientação, só gerou até um total de 125 cupons, após isso o sistema trava e não consegue mais gerar cupons, mesmo eu reiniciando e tentando gerar mais 25 cupons, continua travando.

Quanto ao número do Lote não precisa se preocupar, pois sei que deve está difícil e você com pouco tempo para tentar solucionar, pois também tem suas outras ocupações, mas de antemão agradeço pelo interesse e esforço para me ajudar, e como você disse que já chegou até onde deu para trabalhar nessa rotina, vou pensar em alguma outra solução, caso ninguém mais aqui do Fórum não possa ajudar também. Continua em aberto, caso alguém queira contribuir.

Muita Paz

Olá vileman,

Creio não ter dito que não ia continuar com a rotina, espera só mais um pouco. Todo desafio vale a pena a tentativa principalmente porque sairemos ganhando com isso tanto você quanto eu. Estou fazendo alguns testes para numerar o lote. Quanto ao total de loopings gerados empacar em 125 vou dar uma olhada nisso para ver se dá pra corrigi-lo. Tudo bem ?

Olá, Good guy

Havia entendido que não poderia continuar a rotina por uma questão de tempo escasso da sua parte, além da complexidade dessa rotina, o que seria perfeitamente normal, pois todos aqui têm suas obrigações e afazeres, mas já que pode continuar fico-lhe grato mais ainda, e nem sei como agradecer, pois todo desafio realmente vale a pena, visto que todos saem ganhando; então pode continuar com os testes de numeração dos lotes; e também vou testar a rotina em outra máquina para ter certeza que não foi o meu computador de casa, pois no dia seguinte tive que formatar o mesmo, pois ele não inicializava de jeito nenhum.

Para tentar facilitar pensei no seguinte: Ao invés de trabalhar com um intervalo inicial e outro final, não seria mais prático criar uma opção para o usuário informar a quantidade de cupons que deseja gerar e partir daí gerar e gravar essa quantidade informada na tabela "T081_Cupons", o que acha ?

Olá vileman,

Concluí o trabalho. Por favor não poste o aplicativo, por causa de direitos autorais sobre o código que deve ser publicado em e-book. Vou publicar aqui apenas parte do código para estudo dos colegas. Verifique sua caixa de entrada de e-mails.


Caros colegas,

Em breve estarei anunciando um ebook com este código completo e outros códigos interessantes para vocês utilizarem em seus sistemas. Por favor, aguardem !!!

Código:


Public Function CriarSequencia(ValorInicial As Long, ValorFinal As Long) 'Os parâmetros estabelecem os limites inferior e superior
On Error Resume Next
Dim i As Long          'O tipo Long possibilita a inserção de valores acima dos limites de Integer (Sem estouro)
Dim sSimb As Variant
Dim sSimb2 As Variant
Dim k(1 To 20) As String
Dim strCod As String
Dim strSQL As String
Dim sCodCupom
Dim sIDEmpresa
Dim sIDVendedor
Dim sValorInicial
Dim sValorFinal
Dim sNumLote
Dim rs As DAO.Recordset
Dim strSequencia As Variant
Dim x, z, p, n, y As Long
Dim Reg As Long
Dim subSequente As Variant
Dim nTotal As Long

Set rs = CurrentDb.OpenRecordset("T081_Cupons", dbOpenTable)

ValorInicial = Me.txtValorInicial  'Caixa de texto para inserir o valor inicial
ValorFinal = Me.txtValorFinal     'Caixa de texto para inserir o valor final
sIDEmpresa = Me.txtIDEMPRESA
sSimb = "-"              'Caixa de texto com o símbolo separador (Ex.: 1-2-3-; 1.2.3.;)

Do While Not rs.RecordCount = ValorFinal
'Aumente o número de vetores até se estender à última letra do alfabeto
k(1) = "A"
k(2) = "B"
k(3) = "N"
k(4) = "Q"
k(5) = "L"
k(6) = "E"
k(7) = "C"
k(8) = "D"
k(9) = "G"
k(10) = "H"
k(11) = "I"
k(12) = "M"
k(13) = "K"
k(14) = "P"
k(15) = "R"
k(16) = "S"
k(17) = "T"
k(18) = "U"
k(19) = "V"
k(20) = "O"


For i = ValorInicial To ValorFinal Step 1
   Call Randomize
    txtSequencia = txtSequencia & Int((ValorFinal * Rnd) + 1) & sSimb & k(Int(20 * Rnd) + 1) & k(Int(20 * Rnd) + 1) & k(Int(20 * Rnd) + 1) & k(Int(20 * Rnd) + 1) & vbCrLf 'Caixa de texto grande onde se desenvolverá a sequência.
    'Altere o 5 para o total de número de vetores caso você aumente. Isso evitará a repetição de alguma série
    
      
Next i

strSequencia = txtSequencia

End Function


Olá, Good guy

Sem problemas, vou verificar meu e-mail, e com certeza você quando lançar seu e-book terei interesse em adquirir.

Dou como Resolvido o tópico.

Valeu, Good guy

Valew. O fórum todo agradece !!!

A todos os interessados:

Dê uma curtida em minha página no Facebook.

https://www.facebook.com/EduardoMachado

Visite meu site:

www.goodguyaccessvba.com.br

Se quiser aprender mais adquira os meus dois livros DOMINE O ACCESS VBA e TÉCNICAS ESPECIAIS DE ACCESS VBA e você vai aprender isto e muito mais.

Editora Livrorama(DOMINE ...):
www.livrorama.com.br

Editora Ciência Moderna(TÉCNICAS...):
www.lcm.com.br


Um grande abraço.

"O temor do Senhor(respeito pela Palavra de Deus, leitura e obediência) é o princípio do conhecimento" (Prov. 1.7)
Disse Jesus: "E conhecereis a Verdade e a Verdade vos libertará". (Jo 8.32)
Disse Jesus: “Eu sou a luz do mundo; aquele que me segue, não andará em trevas, mas terá a luz da vida.” (Jo. 8.12)