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]Número de Recibo x Numeração Automática

    avatar
    vinicius.anna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 199
    Registrado : 29/04/2011

    [Resolvido]Número de Recibo x Numeração Automática Empty Número de Recibo x Numeração Automática

    Mensagem  vinicius.anna 31/1/2012, 11:37

    Bom dia

    Estou finalizando um sistema para clínica médica. Tenho uma tabela em meu sistema chamada tb_Agenda, com todos os agendamentos de consultas......, de todos os profissionais da clinica, até aqui, tudo bem. O que ocorre é que, alé de atendimentos por convênios, a clinica atende particular e para consultas particulares, gera-se o recibo de pagamento. A miha dificuldade é que, na minha tabela de agendamentos, tenho o Id_Agendamento (tipo autonumeracao do acces) e tenho um campo chamado NUM_REC - tipo texto, ao qual preciso gerar uma numeração automática para que, se a consulta for particular, armazene-se o numero do recibo. Pesquisei no repositório e em outros foruns, mas não encontrei algo que possa me basear. Alguém tem alguma sugestão/dica?

    Att. Vinicius
    avatar
    Convidad
    Convidado


    [Resolvido]Número de Recibo x Numeração Automática Empty Re: [Resolvido]Número de Recibo x Numeração Automática

    Mensagem  Convidad 31/1/2012, 12:00


    O campo NUM_REC deve ser tipo Número, e o form deve ter algum tipo de controle para indicar quando o atendimento for particular, pois só nesta situação vc vai gerar o nº do recibo, certo?
    Então, se o tal controle indicar que é particular, insere o nº com Nz(DMax("NUM_REC";"tb_Agenda"))+1
    avatar
    vinicius.anna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 199
    Registrado : 29/04/2011

    [Resolvido]Número de Recibo x Numeração Automática Empty Re: [Resolvido]Número de Recibo x Numeração Automática

    Mensagem  vinicius.anna 31/1/2012, 12:12

    Sim, tenho um flag para indicar se a consulta particular vai gerar ou não o Recibo. O detalhe que me esqueci de mencionar é que: a partir deste flag que indica se o recibo será gerado ou não, faço uma consulta para localizar apenas os recibos a serem gerados e chamo um formulário chamado frm_Recibo, baseado em tal consulta....., neste momento é que preciso gerar o recibo...., tentei usar vossa dica, mas não consegui......
    avatar
    Convidad
    Convidado


    [Resolvido]Número de Recibo x Numeração Automática Empty Re: [Resolvido]Número de Recibo x Numeração Automática

    Mensagem  Convidad 31/1/2012, 12:33


    Seu frm_Recibo é baseado numa tabela de Recibos?
    Se for, pode definir a propriedade Valor Padrão do campo que armazena o número como:
    =Nz(DMáx("NomeCampoNúmero";"NomeTabelaRecibos");0)+1
    (significa: Verifique o maior número existente na tabela de recibos e acrescente 1. Se não houve nenhum número cadastrado considere como zero.)
    avatar
    vinicius.anna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 199
    Registrado : 29/04/2011

    [Resolvido]Número de Recibo x Numeração Automática Empty Re: [Resolvido]Número de Recibo x Numeração Automática

    Mensagem  vinicius.anna 31/1/2012, 12:54

    Não, ele está baseado na própria tabela agenda, onde na mesma tenho um campo chamado numero do recibo (num_rec).
    avatar
    Convidad
    Convidado


    [Resolvido]Número de Recibo x Numeração Automática Empty Re: [Resolvido]Número de Recibo x Numeração Automática

    Mensagem  Convidad 31/1/2012, 13:07


    Que tipo de campo é este "flag" ?

    Pode inserir uma rotina no evento ApósAtualizar deste campo que insira o novo número da sequência.
    avatar
    vinicius.anna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 199
    Registrado : 29/04/2011

    [Resolvido]Número de Recibo x Numeração Automática Empty Re: [Resolvido]Número de Recibo x Numeração Automática

    Mensagem  vinicius.anna 1/2/2012, 12:57

    Bom dia

    Desculpe a demora do retorno, tive de me ausentar, mas o Flag é um campo do tipo sim/não....., já tentei usar uma rotina no evento após atualizar deste campo para gerar a autonumeração e não consegui.....
    avatar
    Convidad
    Convidado


    [Resolvido]Número de Recibo x Numeração Automática Empty Re: [Resolvido]Número de Recibo x Numeração Automática

    Mensagem  Convidad 1/2/2012, 13:26


    Qual é o Nome do campo Sim/Não ?

    Tente este código, substituindo NomeCampo pelo Nome do campo Sim/Não no form.

    Lembrando que NUM_REC precisa ser um campo tipo Número Inteiro Longo.

    Private Sub NomeCampo_AfterUpdate()
    If Me.NomeCampo = True Then
    Me.NUM_REC = Nz(DMax("NUM_REC","tb_Agenda"), 0) + 1
    Else
    Exit Sub
    End If
    End Sub



    avatar
    vinicius.anna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 199
    Registrado : 29/04/2011

    [Resolvido]Número de Recibo x Numeração Automática Empty Re: [Resolvido]Número de Recibo x Numeração Automática

    Mensagem  vinicius.anna 1/2/2012, 15:16

    Boa tarde

    Perfeito Amigo, muito obrigado pela dica, funcionou perfeitamente. Tenho apenas mais uma dúvida, com este código, é possível agregar o ano junto ao número do recibo, exemplo: 00001/2012 e na virada do ano reiniciar a contagem?
    avatar
    Convidad
    Convidado


    [Resolvido]Número de Recibo x Numeração Automática Empty Re: [Resolvido]Número de Recibo x Numeração Automática

    Mensagem  Convidad 1/2/2012, 15:41


    Não diretamente no campo NUM_REC, pois seria impossível para a função DMax avaliar o número do recibo.

    Mas poderia ser possível se o campo NUM_REC fosse usado como base numeral (como está agora), e outro campo fosse criado para ser usado no frm_Recibo, e este receberia o valor de NUM_REC concatenado com a barra e o ano atual.

    Seria algo assim:
    NovoCampo = Me.NUM_REC & "/" & Year(Date)

    avatar
    vinicius.anna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 199
    Registrado : 29/04/2011

    [Resolvido]Número de Recibo x Numeração Automática Empty Re: [Resolvido]Número de Recibo x Numeração Automática

    Mensagem  vinicius.anna 1/2/2012, 16:15

    Compreendi, mas como eu faria para no próximo ano reiniciar a numeração?
    avatar
    Convidad
    Convidado


    [Resolvido]Número de Recibo x Numeração Automática Empty Re: [Resolvido]Número de Recibo x Numeração Automática

    Mensagem  Convidad 1/2/2012, 16:40


    Aí teria que achar outra solução, que no momento não me ocorre para sua conjuntura.
    avatar
    vinicius.anna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 199
    Registrado : 29/04/2011

    [Resolvido]Número de Recibo x Numeração Automática Empty Re: [Resolvido]Número de Recibo x Numeração Automática

    Mensagem  vinicius.anna 1/2/2012, 17:00

    Ótimo, deu certo, tenho o campo Num_Rec - número, inteiro logo e criei o campo Num_Rec_Data - tipo texto, onde com sua dica, gravo o número do recibo+ano.

    O campo num_rec, gravo assim: 000001, 000002, etc
    o campo num_rec_data: 1/2012, 2/2012.....

    Tem alguma forma para que eu possa gravar com o formato 000001/2012, 000002/2012?
    avatar
    Convidad
    Convidado


    [Resolvido]Número de Recibo x Numeração Automática Empty Re: [Resolvido]Número de Recibo x Numeração Automática

    Mensagem  Convidad 1/2/2012, 17:31


    Tem certeza que o campo num_rec fica gravado assim (000001) na tabela? Ou apenas é exibido assim no form?

    Para exibir num_rec_data, tente:
    Format(Me.NUM_REC, "000000") & "/" & Year(Date)

    avatar
    vinicius.anna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 199
    Registrado : 29/04/2011

    [Resolvido]Número de Recibo x Numeração Automática Empty Re: [Resolvido]Número de Recibo x Numeração Automática

    Mensagem  vinicius.anna 2/2/2012, 12:47

    Bom dia

    Obrigado por sua dica, com ela, consegui criar a autonumeração como desejava. Muito obrigado. Se conhecer algum código ou tiver alguma dica a qual possa aplicar para que a cada mês a numeração reinicie, te agradeço.

    Att. Vinicius
    avatar
    Convidad
    Convidado


    [Resolvido]Número de Recibo x Numeração Automática Empty Re: [Resolvido]Número de Recibo x Numeração Automática

    Mensagem  Convidad 2/2/2012, 12:58


    Ok, disponha!

    Quando resolver sua dúvida, clique no botão Resolvido, que está logo acima e a direita do botão Enviar.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Número de Recibo x Numeração Automática Empty Re: [Resolvido]Número de Recibo x Numeração Automática

    Mensagem  JPaulo 2/2/2012, 14:30

    Veja este exemplo que zera a numeração conforme muda o Mês;

    http://dl.dropbox.com/u/771097/Contador%20retorna%20a%20zero%20se%20muda%20M%C3%AAs.rar



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Número de Recibo x Numeração Automática Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Número de Recibo x Numeração Automática Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Número de Recibo x Numeração Automática Folder_announce_new Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Número de Recibo x Numeração Automática Empty Re: [Resolvido]Número de Recibo x Numeração Automática

    Mensagem  JPaulo 3/2/2012, 09:09

    E ae ? Serviu ?


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Número de Recibo x Numeração Automática Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Número de Recibo x Numeração Automática Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Número de Recibo x Numeração Automática Folder_announce_new Instruções SQL como utilizar...
    avatar
    vinicius.anna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 199
    Registrado : 29/04/2011

    [Resolvido]Número de Recibo x Numeração Automática Empty Re: [Resolvido]Número de Recibo x Numeração Automática

    Mensagem  vinicius.anna 3/2/2012, 13:04

    Bom dia amigo JPaulo

    Desculpe a demora, mas estou me recuperando de uma cirurgia e estou trabalhando acamado e somente hoje consegui voltar ao projeto....., o código que disponibilizou é perfeitamente o que preciso e te agradeço por disponibilizá-lo. Tentei usá-lo da seguinte forma:

    Tenho um flag que indica que a consulta gerará recibo ou não, no evento após atualizar deste flag, coloquei o código:

    Private Sub Lista_Recibo_AfterUpdate()
    If Me.Lista_Recibo.Value = -1 Then
    On Error GoTo Sai
    Call NumeraRegistros
    Exit Sub
    Sai:
    MsgBox "Erro - " & err.Description
    Else
    Me.RecGerado.Value = "NÃO"
    Gravar.SetFocus
    Exit Sub
    End If
    End Sub

    Inclui no mesmo form a função numera registros e importei o módulo....., quando tento incluir uma nova consulta que gerará o recibo tenho a mensagem:

    - Erro - Uso de 'Null' inválido.....

    tem alguma dica para eu tentar resolver o problema?

    Att. Vinicius
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Número de Recibo x Numeração Automática Empty Re: [Resolvido]Número de Recibo x Numeração Automática

    Mensagem  JPaulo 3/2/2012, 14:33

    O campo da numeração não pode iniciar vazio, tem de ter um valor por defeito na tabela.

    Veja como reproduzi o seu exemplo;

    http://dl.dropbox.com/u/771097/Contador%20retorna%20a%20zero%20se%20muda%20M%C3%AAs_II.rar



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Número de Recibo x Numeração Automática Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Número de Recibo x Numeração Automática Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Número de Recibo x Numeração Automática Folder_announce_new Instruções SQL como utilizar...
    avatar
    vinicius.anna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 199
    Registrado : 29/04/2011

    [Resolvido]Número de Recibo x Numeração Automática Empty Re: [Resolvido]Número de Recibo x Numeração Automática

    Mensagem  vinicius.anna 3/2/2012, 15:38

    Boa tarde JPaulo

    Obrigado, é isto mesmo, meu campo estava sem valor Default e ai causava o erro, apliquei o código e o número é gerado....., porém, incluo um novo agendamento, indicando que o recibo será gerado...., gera-se o código 00001/02/2012 - quando incluo um novo agendamento, dentro do mesmo mês, o código gerado é o mesmo.......
    avatar
    vinicius.anna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 199
    Registrado : 29/04/2011

    [Resolvido]Número de Recibo x Numeração Automática Empty Re: [Resolvido]Número de Recibo x Numeração Automática

    Mensagem  vinicius.anna 3/2/2012, 18:22

    Desculpe incomodar, mas realmente não consegui fazer com que a geração do número siga a sequencia, não sei se é porque meu form de agendaento está baseado em uma consulta......, a cada nova inclusão, dentro do mesmo mês tenho a mensagem - O sistema iniciará uma nova contagem dos registros em função da virada do Mês, mesmo quando, por exemplo, agendei uma consulta em 02/02/2011, gravei, e crio uma nova consulta em 02/02/2011. Tem ideía de algo em que eu possa estar errando?
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Número de Recibo x Numeração Automática Empty Re: [Resolvido]Número de Recibo x Numeração Automática

    Mensagem  JPaulo 15/2/2012, 16:07

    No exemplo que eu lhe passei funfa direitinho quando pisca na checkbox.

    No seu não consigo ver mesmo, a minha bola de cristal já se partiu, que postar o seu banco ou parte dele ?



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Número de Recibo x Numeração Automática Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Número de Recibo x Numeração Automática Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Número de Recibo x Numeração Automática Folder_announce_new Instruções SQL como utilizar...
    avatar
    vinicius.anna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 199
    Registrado : 29/04/2011

    [Resolvido]Número de Recibo x Numeração Automática Empty Re: [Resolvido]Número de Recibo x Numeração Automática

    Mensagem  vinicius.anna 27/2/2012, 11:31

    Muito Obrigado amigos JPaulo e Norbs...., depois de muita insistência vi o que precisava fazer para resolver portanto está resolvido.

    Um bom dia.....
    avatar
    Convidad
    Convidado


    [Resolvido]Número de Recibo x Numeração Automática Empty Re: [Resolvido]Número de Recibo x Numeração Automática

    Mensagem  Convidad 27/2/2012, 11:37


    Bom dia!

    Ótimo que resolveu. Agradecemos o retorno.

    Conteúdo patrocinado


    [Resolvido]Número de Recibo x Numeração Automática Empty Re: [Resolvido]Número de Recibo x Numeração Automática

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 20:41