MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]previsao de pagamento

    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 382
    Registrado : 05/03/2017

    [Resolvido]previsao de pagamento Empty [Resolvido]previsao de pagamento

    Mensagem  fazerbem em 13/11/2018, 11:23

    Bom dia, hj minha duvida é a seguinte.

    Tenho numa tabela o campo "disponibilidade".
    Num formulario de Vendas tenho os dados da venda , e queria aplicar dentro do botao de processar a venda um comando que pegasse a data atual da venda , que esta em Me.Datavenda, e aplique esta data de venda + 14 dias.

    Estou usando a macro abaixo

    Grato Andre

    Código:


    Sub Cartoes()

    Dim bc As Database
    Dim Tab2 As Recordset
    Set bc = CurrentDb()
    Set Tab2 = bc.OpenRecordset("tbl_ControleCartoes")
    Tab2.AddNew

    'No Novo Registro Insere Os Dados que vc Deseja
    Tab2!Recibo = Me.txtidVenda
    Tab2!Empresa = Me.Empresa
    Tab2!Cliente = Me.Txt_Clientes
    Tab2!data = Me.txtdataVenda
    Tab2!TotalVenda = Me.APagar
    Tab2!ValorCartao = Me.SumUp


    ' gostaria assim conforme linha abaixo
    Tab2!Disponibilidade = Me.DataVenda + 14 dias




    If C1 = True Then
    Tab2!SumUp = True
    End If
    If C2 = True Then
    Tab2!PagueSeguro = True
    End If

    If Txt_Parcela = 4 Or Txt_Parcela = 9 Then
    Tab2!Cartao = Me.Txt_ControleDebito
    End If
    If Txt_Parcela = 5 Or Txt_Parcela = 6 Or Txt_Parcela = 7 Or Txt_Parcela = 8 Or Txt_Parcela = 10 Or Txt_Parcela = 11 Or Txt_Parcela = 12 Or Txt_Parcela = 13 Then
    Tab2!Cartao = Me.Txt_ControleCredito
    End If
    If Txt_Parcela > 13 Then
    Tab2!Cartao = Me.Txt_ControleDebito + Me.Txt_ControleCredito
    End If

    'Atualiza Tabela
    Tab2.Update

    End Sub

    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]previsao de pagamento Empty Re: [Resolvido]previsao de pagamento

    Mensagem  ahteixeira em 13/11/2018, 11:49

    Olá André,

    Pesquise no fórum por dateadd

    Será algo assim:

    SeuCampoComMais14dias = DateAdd("y", 14, CampoVenda)

    Abraço
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 382
    Registrado : 05/03/2017

    [Resolvido]previsao de pagamento Empty Re: [Resolvido]previsao de pagamento

    Mensagem  fazerbem em 13/11/2018, 12:09

    PEsquisei e resolvi aqui, grato


    Tab2!Disponibilidade = Date + 14
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 01/08/2011

    [Resolvido]previsao de pagamento Empty Re: [Resolvido]previsao de pagamento

    Mensagem  ronaldojr1 em 13/11/2018, 12:22

    bom dia,
    desculpe estar me metendo. rs
    mas so passei para deixar uma dica.
    não é muito recomentado vc atribuir soma direto na data, pois vc podera
    ter alguns bugs no futuro. ja aconteceu comigo. o correto seria
    vc usar a função dateadd como nosso amigo ahteixeira sugeriu.

    abraço

      Data/hora atual: 13/8/2020, 19:25