Ola pessoal,
onde estou errando ?
onde estou errando ?
- Código:
If Me.cbo_repeticao = "Parcelada" Then
StrValorParc = Me.Valor_conta
For I = 1 To Me.parcelas
StrDateAdd = DateAdd("m", I, Format(Me.Data_conta, "dd/mm/yyyy"))
StrParc = I & "/" & Me.parcelas
strSql = "INSERT INTO tbl_despesas (Data_conta,Descrição,Centro,Categoria,Conta_origem,"
strSql = strSql & "Valor_conta,Forma_pagamento,Documento,Observações,Conta_fixa) VALUES "
strSql = strSql & "(#& StrDateAdd ," 'Tipo data
strSql = strSql & "'& Me.Descricao.Value & StrPar &'," 'Tipo String (duvida sobre essa concatenação)
strSql = strSql & "'& Me.centro.Value &'," 'Tipo String
strSql = strSql & "'& Me.Categoria.Value &'," 'Tipo String
strSql = strSql & "' & StrValorParc &'," 'Tipo String
strSql = strSql & "'& Me.Descricao.Value &'," 'Tipo String
strSql = strSql & "'& Me.Forma_pagamento.Value &'," 'Tipo String
strSql = strSql & "'& Me.Documento.Value &'," 'Tipo String
strSql = strSql & "'& Me.Observações.Value &'," 'Tipo String
strSql = strSql & "'0'," 'Tipo Boleano
strSql = strSql & ");"
CurrentDb.Execute strSql
Next I
End If