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


5 participantes

    [Resolvido]Gerar parcelas

    avatar
    naiconmartins
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 02/02/2018

    [Resolvido]Gerar parcelas Empty [Resolvido]Gerar parcelas

    Mensagem  naiconmartins 2/2/2018, 01:03

    Pessoal estou criando um fórmulario que gera os valores de aluguel a receber pelo período de vigência do contrato. Criei o código que chama a tabela das parcelas, porém, quando executo sempre dá um erro de compilação "uso invalido da propriedade".

    O código que estou utilizando é este:

    Set db = CurrentDb()
    Set rs = db.OpenRecordset("ContasReceber") 'Abre a tabela ContasReceber

    ValorReceber = Me.Valor_Aluguel - Me.Tx_de_Condominio - Me.Tx_de_Locação 'Valor do repasse

    For I = 1 To Me.PeriodoMeses 'Insere as Parcela na Tabela ContasReceber

    rs.AddNew
    rs(Código_Contrato) = Me.Código
    rs(Parcela) = I
    rs(ValorReceber) = Primeiro_Repasse
    rs(Vencimento) = DateAdd("m", I - 1, Me.Vencimento_Aluguel) 'Calcula as datas de Vencto através da função DateAdd()

    rs.Update

    Next
    rs.Close
    db.Close
    Me.FormContasReceber_Rótulo 'Atualiza o SubForm
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Gerar parcelas Empty Re: [Resolvido]Gerar parcelas

    Mensagem  JPaulo 2/2/2018, 10:56

    Ola seja bem vindo ao forum.

    Os nomes dos campos recordset têm de estar dentro de aspas duplas, assim;

    Código:
    rs.AddNew
    rs("Código_Contrato") = Me.Código
    rs("Parcela") = I
    rs("ValorReceber") = Primeiro_Repasse
    rs("Vencimento") = DateAdd("m", I - 1, Me.Vencimento_Aluguel) 'Calcula as datas de Vencto através da função DateAdd()


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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1416
    Registrado : 07/12/2011

    [Resolvido]Gerar parcelas Empty Re: [Resolvido]Gerar parcelas

    Mensagem  tauron 3/2/2018, 23:21

    up
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    [Resolvido]Gerar parcelas Empty Re: [Resolvido]Gerar parcelas

    Mensagem  Marcelo David 4/2/2018, 03:56

    Bom dia!
    Observas-te a mensagem número 2 do JPaulo?


    .................................................................................
    [Resolvido]Gerar parcelas Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Gerar parcelas Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Gerar parcelas Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Gerar parcelas Marcel11
    avatar
    frankhosaka
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 22/12/2017

    [Resolvido]Gerar parcelas Empty Re: [Resolvido]Gerar parcelas

    Mensagem  frankhosaka 10/2/2018, 11:02

    Eu adoro quando o Access me dá essas mensagens de erro, mas geralmente ele arrebata o programador para a tela de apuração e mostra qual o código que gerou o erro. Você sabe me dizer qual a linha que o Access apontou o problema?

    Geralmente eu uso a opção Option Explicit na programação para não esquecer de definir as variáveis pelo comando DIM, tipo

    Dim dbs as database
    Dim rst as recorset
    Dim ValorAReceber as currency
    avatar
    naiconmartins
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 02/02/2018

    [Resolvido]Gerar parcelas Empty Re: [Resolvido]Gerar parcelas

    Mensagem  naiconmartins 24/2/2018, 21:28

    Obrigado.

    Conteúdo patrocinado


    [Resolvido]Gerar parcelas Empty Re: [Resolvido]Gerar parcelas

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 19:29