MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

    [Resolvido]Gerar dados aleatórios

    avatar
    Ccanastra
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 07/10/2022

    [Resolvido]Gerar dados aleatórios Empty [Resolvido]Gerar dados aleatórios

    Mensagem  Ccanastra Seg 31 Out 2022, 9:29 pm

    Preciso gerar um código aleatório com 8 (OITO) caracteres em caixa alta (cupom).

    A dúvida em si, é sobre como gerar esse código.

    Peguei o código aqui no fórum, mas não me recordo de quem, por isso, não há citação da fonte. Desculpem-me por esse lapso!!

    Além disso, como imprimir o relatório para uma impressora específica?
    Ocorre que tenho duas impressoras (Print_01 e Print_02), com configuraçãos de papel bem diferentes, e preciso imprimir esses cupons na Print_02.

    Sei que são dúvidas distintas, mas o reltório será gerado com o cupom gerado, por isso deixo essa questão aqui também!
    Já vi um tópico, sobre isso, como [Resolvido], no fórum ,mas não entendi nada do código apresentado!

    O restante, acredito eu, será resolvido após eu conseguir gerar os dados aleatórios, pois preciso deles para executar orestante dos códigos.

    --------------

    Depois de gerar o código, preciso acresentá-lo em uma tabela, junto com a data da criação (criação) e data de validade (validade).
    (Em relação às datas, não há dúvidas de minha parte!)
    (Creio que não haja problemas com esse código, mas como não consegui gerar o cupom, não o executei!)

    Após a atualização da tabela, necessito imprimir um relatório com o cupom gerado.
    (Em relação ao relatório -gerar- , não tenho dificuldade.)

    Alguém pode me ajudar com essas dúvidas?

    A tabela a ser atualizada é a tbl_cupom.

    O formulário usado para gerar o cupom é o frm_cupom.

    O relatório ainda não existe, mas não é necessário agora. Posso criá-lo depois.


    Grato!!!
    Anexos
    [Resolvido]Gerar dados aleatórios AttachmentDUVIDA_ALEATORIOS.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (146 Kb) Baixado 6 vez(es)
    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1005
    Registrado : 11/11/2009

    [Resolvido]Gerar dados aleatórios Empty Re: [Resolvido]Gerar dados aleatórios

    Mensagem  scandinavo Seg 31 Out 2022, 10:25 pm

    Teste ai, substitua o seu codigo por este
    no seu codigo a campos que nao existe no formulario, de uma conferida.


    On Error GoTo trata_erro

    'Esse é o código que peguei no fórum (alterei alguma coisa), mas não me recordo de quem!!

    Dim strPK As String
    Dim nMax As Integer, nMin As Integer
    Dim i As Integer, x As Integer



    nMin = 65: nMax = 90

    Me.lstDados = Empty
    Me.lstDados.Requery

    'For x = 1 To Me.txtqtde
    For x = 1 To 8
    strPK = Empty
    For i = 1 To 8
    strPK = strPK & Chr(Int((nMax - nMin + 1) * Rnd + nMin))
    Next i
    Randomize: strPK = strPK


    lstDados = strPK
    lstDados.Requery

    Next x

    Exit Sub

    trata_erro:
    MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
    Exit Sub
    avatar
    Ccanastra
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 07/10/2022

    [Resolvido]Gerar dados aleatórios Empty Re: [Resolvido]Gerar dados aleatórios

    Mensagem  Ccanastra Seg 31 Out 2022, 10:48 pm

    Scandinavo,

    obrigado, funcionou aqui!!!

    Marcarei como resolvido, e abrirei outro tópico sobre a duvida quanto a impressão!

    Grato!!!!
    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1005
    Registrado : 11/11/2009

    [Resolvido]Gerar dados aleatórios Empty Re: [Resolvido]Gerar dados aleatórios

    Mensagem  scandinavo Ter 01 Nov 2022, 4:28 am

    Valeu pelo retorno

      Data/hora atual: Ter 07 Fev 2023, 7:31 pm