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

3 participantes

    Etiqueta com código do correio

    avatar
    snogueira66
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    Registrado : 01/02/2017

    Etiqueta com código do correio Empty Etiqueta com código do correio

    Mensagem  snogueira66 28/9/2017, 19:54

    Pessoal bom dia,

    Estou desenvolvendo um banco para geração de etiquetas que tem um código do correio com digito verificador.

    Tenho uma tabela com os dados para geração de etiquetas "TB_Etiquetas" e outra tabela com o range com 5000 códigos "TB_Correio".

    Para cada etiqueta tem que gerada tem que ter um código da TB_Correio e este código não pode ser repetido.

    Código da etiqueta
    JO15763929-7 BR
    JO15763930-6 BR
    JO15763931-0 BR
    JO15763932-3 BR
    JO15763933-7 BR
    JO15763934-5 BR

    EX.:
    Etiquetas do dia 28.09.2017

    Etiqueta 1 - JO15763929-7 BR
    Etiqueta 2 - JO15763930-6 BR

    Etiquetas do dia 28.09.2017

    Etiqueta 1 - JO15763932-3 BR
    Etiqueta 2 - JO15763933-7 BR


    Todos os dias a tabela "TB_Etiquetas" é limpa e são carregadas novos registros, quando estiver faltando 500 códigos do correio exibir uma mensagem que esta terminando os código do correio.

    Alguém pode me ajudar.


    CassioFabre
    CassioFabre
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 18/01/2013

    Etiqueta com código do correio Empty Re: Etiqueta com código do correio

    Mensagem  CassioFabre 11/10/2017, 19:46

    Boa tarde,

    Na TB_Correios acrescente um campo booleano de nome "utilizado". Cada vez que utilizar um código, marque este campo como verdadeiro. Na primeira abertura do dia faça uma contagem de quantos códigos não utilizados (utilizado=false) existem na tabela:

    Código:
    dim db as database
    dim rs as recordset

    set db = currentdb
    set rs = db.openrecordset("SELECT utilizado FROM TB_Correio WHERE utilizado = false")

    if rs.recordcount <= 500 then
        msgbox("Atenção, restam apenas " & rs.recordcount & " códigos dos Correios disponíveis para utilização.", vbExclamation, "Códigos dos Correios")
    End if

    db.close
    rs.close

    Abraço.


    .................................................................................
    Só não tem código pra morte!
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 22/11/2016

    Etiqueta com código do correio Empty Re: Etiqueta com código do correio

    Mensagem  DamascenoJr. 5/11/2021, 01:51

    Sergio, a dica do Cassio ajudou?

    Aguardamos...


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 1/10/2022, 16:05