MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 : 381
    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 : 6395
    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 : 381
    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

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 6/12/2019, 21:42