[Resolvido]previsao de pagamento

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



Olá André,

Pesquise no fórum por dateadd

Será algo assim:

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

Abraço

PEsquisei e resolvi aqui, grato


Tab2!Disponibilidade = Date + 14

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