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

    Ajuda com Formulário de Parcelamento!!!

    avatar
    alfaomegarp
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 03/08/2011

    Ajuda com Formulário de Parcelamento!!! Empty Ajuda com Formulário de Parcelamento!!!

    Mensagem  alfaomegarp 13/2/2014, 14:57

    Amigos do forum, tenho um formulário no meu sistema de parcelamento, queria que quando o mesmo cliente que já possuí parcelas em aberto quando fizesse uma nova compra automaticamente ja pegar as prestações antigas e somasse com as novas e gerasse novas prestações.
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Ajuda com Formulário de Parcelamento!!! Empty Re: Ajuda com Formulário de Parcelamento!!!

    Mensagem  Dilson 16/2/2014, 02:00

    Olá,

    No seu formulário deve ter uma textbox com o código do cliente e na tabela de prestações a chave estrangeira com código do cliente e situação(Aberta ou fechada).

    Pode criar uma TextBox para receber os valores usando SQL assim:

    Dim rst As DAO.Recordset
    Dim sSQL As String
    sSQL = "SELECT Sum(ValorPrestacao)" _
        & " FROM SuaTabelaPrestacao" _
        & " WHERE" _
        & " Situacao='Aberta' AND CodigoDoCliente=" & SuaTextBoxCodigoDoCliente
    Set rst = CurrentDb.OpenRecordset(sSQL)
    rst.MoveLast
    Me.SuaTextBoxNoFormDeNovaVenda.Value = rst(0)
    rst.Close

    avatar
    alfaomegarp
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 03/08/2011

    Ajuda com Formulário de Parcelamento!!! Empty Ajuda com Formulário de Parcelamento!!!

    Mensagem  alfaomegarp 16/2/2014, 03:03

    Amigo vou testar e posto o resultado, muito obrigado pela atenção.

    Conteúdo patrocinado


    Ajuda com Formulário de Parcelamento!!! Empty Re: Ajuda com Formulário de Parcelamento!!!

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/4/2024, 09:02