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]Rodar código vba somente uma vez

    avatar
    JOJO sp
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 21/12/2016

    [Resolvido]Rodar código vba somente uma vez Empty [Resolvido]Rodar código vba somente uma vez

    Mensagem  JOJO sp 27/3/2017, 17:37

    Boa tarde, tenho o seguinte código onde é feito o parcelamento de uma venda e lançamento das parcelas no contas a receber.

    Private Sub btngerarp_Click()
    If txtsaldo > 0 Then
    MsgBox ("Essa venda foi lançada no Contas a Receber ")

    Set db = CurrentDb()
    Set rs = db.OpenRecordset("tab_contasr") 'Abre a tabela contas a receber
    Valorcr = Me.txtsaldo / Me.QtdeParcelas 'Valor de cada Parcela

    For I = 1 To Me.QtdeParcelas 'Insere as Parcela na tabela contas a receber
    rs.AddNew
    rs("CodVenda") = Código
    rs("Cliente") = Cliente
    rs("CodigoParcelamento") = Documentor
    rs("Descrição") = desc
    rs("ControleParcelas") = I & "/" & Me.QtdeParcelas
    rs("Valorcr") = Valorcr
    rs("Vencimento") = DateAdd("m", I - 1, Me.txtVenc_1_Parc) 'Calcula as datas de Vencto através da função DateAdd()
    rs.Update
    Next
    rs.Close
    db.Close
    Me.tab_contasr_subvendas.Requery 'Atualiza o SubForm
    End If
    End Sub

    Gostaria de executar esse código somente uma vez, pois todas as vezes que clico no botão ele duplica as parcelas.
    Não sei se é possível pesquisar se já foi criada a parcela para depois lançar.

    Obrigado
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

    [Resolvido]Rodar código vba somente uma vez Empty Re: [Resolvido]Rodar código vba somente uma vez

    Mensagem  Alvaro Teixeira 27/3/2017, 17:40

    Olá, pode ter um campo na tabela do tipo true/false que coloca como true depois de gerar.
    Assim pode controlar senja foi gerado.
    Outra forma , efetuar um Dlookup se tem registos.
    Se tiver , avisa que já foi gerado.
    Fica sugestões.
    Abraço
    avatar
    JOJO sp
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 21/12/2016

    [Resolvido]Rodar código vba somente uma vez Empty Re: [Resolvido]Rodar código vba somente uma vez

    Mensagem  JOJO sp 27/3/2017, 17:46

    obrigado por responder, pode me dar um exemplo de como faço a primeira opção?
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

    [Resolvido]Rodar código vba somente uma vez Empty Re: [Resolvido]Rodar código vba somente uma vez

    Mensagem  Alvaro Teixeira 27/3/2017, 17:52

    Olá, você está na tabela de vendas e lança em tab_contasr
    Na tabela de vendas crie um campo parcelasGeradas do tipo Sim/Nao
    No valor por de feito coloque false.

    No código
    If parcelasgeradas = true then
    Msgbox "não pode gerar"
    Exit sub
    End if

    Abraço
    avatar
    JOJO sp
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 21/12/2016

    [Resolvido]Rodar código vba somente uma vez Empty Re: [Resolvido]Rodar código vba somente uma vez

    Mensagem  JOJO sp 27/3/2017, 19:51

    Muito obrigado , funcionou.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

    [Resolvido]Rodar código vba somente uma vez Empty Re: [Resolvido]Rodar código vba somente uma vez

    Mensagem  Alvaro Teixeira 27/3/2017, 20:57

    Olá Joiaribe,
    Obrigado pelo retorno.
    Os utilizadores do fórum agradecem.
    Abraço

    Conteúdo patrocinado


    [Resolvido]Rodar código vba somente uma vez Empty Re: [Resolvido]Rodar código vba somente uma vez

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 14:19