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


4 participantes

    [Resolvido]Parcelas

    avatar
    LUIZF
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 13/01/2010

    [Resolvido]Parcelas Empty Parcelas

    Mensagem  LUIZF 2/7/2010, 03:49

    Caros colegas, tenho um formulario que gera parcelas em um sub-form.continuo, acontece que as vezes preciso editar, alterar essas parcelas e ai tenho que apagar uma por vez para depois estar gerando novas parcelas pois senão elas acumulam. O que preciso e que quando gerar novas parcelas ela substitua aquelas anteriormente geradas.

    Segue o codigo que estou utilizando;

    Dim db As Database, rs As Recordset
    Dim ValorPac As Currency, I As Long

    Set db = CurrentDb()
    Set rs = db.OpenRecordset("tbl2") 'Abre tbl2
    ValorPac = Me.[valor aluguel imovel] '/ Me.parcelas 'Valor de cada Parcela

    For I = 1 To Me.[prazo locaçao imovel] 'Insere as Parcela na tbl2
    rs.AddNew
    rs("codTabCadastro") = Me.[novo codigo CADASTRO]
    rs("Parcela") = I
    rs("ValorAluguel") = ValorPac
    'Calcula as datas de Vencto através da função DateAdd()
    rs("Vencimento") = DateAdd("m", I - 1, Me.data)
    rs.Update

    Next
    rs.Close
    db.Close
    Me.tbl2_subformulário.Requery 'Atualiza o SubForm
    Me.parcelas.Locked = False


    grato.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Parcelas Empty Re: [Resolvido]Parcelas

    Mensagem  JPaulo 2/7/2010, 09:03

    Amigão existem varias possibilidades.

    Não sei qual delas vai funfar, mas temos de alterar esse código para editar, ou deletar primeiro e depois ae sim fazer o AddNew

    rs.Edit
    rs("codTabCadastro") = Me.[novo codigo CADASTRO]
    rs("Parcela") = I
    rs("ValorAluguel") = ValorPac
    'Calcula as datas de Vencto através da função DateAdd()
    rs("Vencimento") = DateAdd("m", I - 1, Me.data)
    rs.Update

    Ou

    rs.Edit
    rs("codTabCadastro") = Me.[novo codigo CADASTRO]
    rs("Parcela") = I
    rs("ValorAluguel") = ValorPac
    'Calcula as datas de Vencto através da função DateAdd()
    rs("Vencimento") = DateAdd("m", I - 1, Me.data)
    rs.Delete

    Neste ultimo depois terá de correr o AddNew





    .................................................................................
    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]Parcelas Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Parcelas Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Parcelas Folder_announce_new Instruções SQL como utilizar...
    avatar
    LUIZF
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 13/01/2010

    [Resolvido]Parcelas Empty Re: [Resolvido]Parcelas

    Mensagem  LUIZF 2/7/2010, 20:42

    Ola JPaulo, mais uma vez grato por atenção, tentei sua sugestao e nao obtive muito sucesso pois o maximo que consegui foi excluir e gerar apenas uma parcela por vez, precisaria a exclusao e inclusao de todas em uma unica vez.

    Estou disponibilizando o bd para sua possivel analise.

    Abraço e muito obrigado.


    http://www.4shared.com/document/0wvm5WMj/Parcelas.html
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Parcelas Empty Re: [Resolvido]Parcelas

    Mensagem  JPaulo 2/7/2010, 21:20

    Ola Luis, não leve a mal, mas eu pessoalmente não gostei dessa modelagem de dados.

    Veja este exemplo e se quiser pode adaptar;

    http://www.dropbox.com/s/i0fmv8e454qbtdx/Parcelas_2008.rar?dl=0


    Última edição por JPaulo em 4/4/2017, 12:00, editado 1 vez(es)


    .................................................................................
    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]Parcelas Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Parcelas Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Parcelas Folder_announce_new Instruções SQL como utilizar...
    avatar
    LUIZF
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 13/01/2010

    [Resolvido]Parcelas Empty Re: [Resolvido]Parcelas

    Mensagem  LUIZF 2/7/2010, 23:30

    Muito obrigado JPaulo, o exemplo que enviou funcionou perfeitamente. Valeu

    um abraço.
    avatar
    LUIZF
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 13/01/2010

    [Resolvido]Parcelas Empty Re: [Resolvido]Parcelas

    Mensagem  LUIZF 2/7/2010, 23:35

    ok
    Ítalo.JFB
    Ítalo.JFB
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 04/01/2011

    [Resolvido]Parcelas Empty Re: [Resolvido]Parcelas

    Mensagem  Ítalo.JFB 18/3/2011, 17:28

    JPaulo.... usei esse tópico, assim como muitos outros no Fórum, para desenvolver meu banco de dados, esse seu exemplo (Parcelas 2008) foi de grande ajuda, porém me deu um tanto de dor de cabeça (positivamente).

    As parcelas eram sim gerados e até ai tudo bem... o seu exemplo só deixa a desejar no momento de listar as parcelas do serviço... sendo assim temos que quando geramos um serviço com 10 ou mais parcelas, as parcelas que começam (da esquerda para a direita) com "1" como primeiro dígito válido acabam ficando numa ordem separada, desordenando todo o cronograma de pagamento!!

    Após uns dias me matando veio a luz, criar um consulta e então basear o formulário através dela, e não diretamente da tabela de parcelas como está no seu exemplo!!

    Se você, JPaulo, concordar comigo, por favor, atualize o seu exemplo para ajudar os próximos leigos... por que eu já passei por esse obstáculo!! lol!

    Obrigado a todos do Fórum... sim esse é o melhor Fórum sobre MS Access!!
    avatar
    Bruno Alves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 07/03/2016

    [Resolvido]Parcelas Empty Parcelamento de Despesas com nome do Fornecedor

    Mensagem  Bruno Alves 31/5/2016, 19:32

    Tenho um BD, configurado pra gerir Contas a pagar e a receber, no formulario inclusão de despesa, tem o campo dividir em parcelas, mas ele só gera as novas parcelas com os campos datas, valores e descrição, não estou conseguindo que gere também o nome do fornecedor.

    Conteúdo patrocinado


    [Resolvido]Parcelas Empty Re: [Resolvido]Parcelas

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 23:45