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

    [Resolvido]Dividir um valor e registrar o nº de vezes e valo

    avatar
    FABIOSIAMES
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 204
    Registrado : 14/06/2010

    [Resolvido]Dividir um valor e registrar o nº de vezes e valo Empty Dividir um valor e registrar o nº de vezes e valo

    Mensagem  FABIOSIAMES 26/1/2011, 13:51

    Pessoal bom dia.

    Todos do forum sempre me ajudarão muito com apostilas e dicas.

    Mas agora estou com uma dúvida enorme e não sei como resolver.

    Criei uma tabela chamada PARCELA.
    Campo:
    EmpFantasia,NParcela,Valorunitario e DtParcela

    E tenho um formulário com uma tabela de Clientes que contem o campo EmpFantasia,Valorcontrato, Nparcela, ValorParcela e Dtinicial
    Gostaria de ao clicar para dividir, o valor fosse gerado na tabela PARCELA registrando o valor de cada parcela a data inicial e fosse repetindo isso de acordo com o número de parcela mudando apenas a data.

    Montei o código assim mas não sei como ir multiplicando ele várias vezes e mudando a data e registrar no campo NParcela (parcela 1/12, parcela 2/12.....).

    Private Sub Comando232_Click()
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    DoCmd.OpenForm "PARCELA"
    On Error GoTo Err_Comando232_Click


    DoCmd.GoToRecord , , acNewRec
    Forms!PARCELA.EmpFantasia = Me.EmpFantasia
    Forms!PARCELA.ValorParcela = Me.Valorunitario
    Forms!PARCELA.DtInicial = Me.DtParcela (Aqui gostaria que a cada nova parcela ele joga-se 30 dias e assim por diantes)


    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
    Exit_Comando232_Click:
    Exit Sub

    Err_Comando232_Click:
    MsgBox Err.Description
    Resume Exit_Comando232_Click

    End Sub

    Agradeço a Ajuda.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Dividir um valor e registrar o nº de vezes e valo Empty Re: [Resolvido]Dividir um valor e registrar o nº de vezes e valo

    Mensagem  vieirasoft 26/1/2011, 14:44

    Fábio:

    Utilize a função DateAdd ou assim:

    Forms!PARCELA.DtInicial = ([DtParcela]) + 30

    Desculpe que acabei por não lhe passar a função:

    Forms!PARCELA.DtInicial = DateAdd("m", 1, [DtParcela])
    avatar
    FABIOSIAMES
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 204
    Registrado : 14/06/2010

    [Resolvido]Dividir um valor e registrar o nº de vezes e valo Empty Re: [Resolvido]Dividir um valor e registrar o nº de vezes e valo

    Mensagem  FABIOSIAMES 26/1/2011, 21:11

    Nossa deu certo, mas como faço para gerar em um único clique todas as inserções na tabela parcela.
    Por exemplo se Nparcela for = 5 e o ValorParcela = 10,00 ao clicar no código acima ele gera 5 vezes o valor de R$ 10,00 na tabela Parcela.

    Valew.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Dividir um valor e registrar o nº de vezes e valo Empty Re: [Resolvido]Dividir um valor e registrar o nº de vezes e valo

    Mensagem  vieirasoft 26/1/2011, 21:24

    Fábio

    Você pode colocar no campo a receber esse valor na origem do controle assim (definir moeda):

    =[Seu campo com o valor monetário]*5

    ou por VBA (exemplo abaixo)

    Me.Texto98.Value = Me.Texto100 * 5
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Dividir um valor e registrar o nº de vezes e valo Empty Re: [Resolvido]Dividir um valor e registrar o nº de vezes e valo

    Mensagem  JPaulo 27/1/2011, 10:14

    Uma simples ajuda de parcelamento;

    http://dl.dropbox.com/u/771097/Parcelamento.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]Dividir um valor e registrar o nº de vezes e valo Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Dividir um valor e registrar o nº de vezes e valo Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Dividir um valor e registrar o nº de vezes e valo Folder_announce_new Instruções SQL como utilizar...
    avatar
    FABIOSIAMES
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 204
    Registrado : 14/06/2010

    [Resolvido]Dividir um valor e registrar o nº de vezes e valo Empty Re: [Resolvido]Dividir um valor e registrar o nº de vezes e valo

    Mensagem  FABIOSIAMES 31/1/2011, 19:08

    Pessoal obrigado deu certo.

    Valew pela ajuda.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Dividir um valor e registrar o nº de vezes e valo Empty Re: [Resolvido]Dividir um valor e registrar o nº de vezes e valo

    Mensagem  vieirasoft 31/1/2011, 19:10

    Obrigado pelo retorno o fórum agradece

    Conteúdo patrocinado


    [Resolvido]Dividir um valor e registrar o nº de vezes e valo Empty Re: [Resolvido]Dividir um valor e registrar o nº de vezes e valo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 05:15