Salvando data em formato americano

Salve galera.
Estou usando o código abaixo para criar parcelas, mas ele esta salvando o vencimento no formato americano (mm/dd/aaaa).
Alguém consegue explicar o motivo e me ensinar a corrigir para que salve a data no formato brasileiro (dd/mm/aaaa)?

Código:

Private Sub btnGerarParcela_Click()
   If Not IsNull(Me.txtVencimento) And Me.txtQtdParcelas > 0 And Me.txtVrParcela > 0 Then
       For i = 1 To Me.txtQtdParcelas
           CurrentDb.Execute "INSERT INTO Dados_financeiro_receber (P_Valor,P_Vencimento,P_Descricao) VALUES " _
           & "('" & Me.txtVrParcela & "',#" & DateAdd("m", i - 1, Me.txtVencimento) & "#,'Parcela " & i & "/" & Me.txtQtdParcelas & "')"
       Next i
       Me.lbxParcelas.Requery
       MsgBox "Parcelas cadastradas.", vbInformation, "Sucesso!"
   Else
       MsgBox "Prencha todos os campos.", vbInformation, "Atenção!"
   End If
End Sub

Bom dia Rodrigo,

Tente isso e veja se funciona. Copie e cole a instrução abaixo:

Código:


Private Sub btnGerarParcela_Click()
On Error GoTo trata_erro
Dim sSQL As String
    
    If Not IsNull(Me.txtVencimento) And Me.txtQtdParcelas > 0 And Me.txtVrParcela > 0 Then
        For i = 1 To Me.txtQtdParcelas
            sSQL = "INSERT INTO Dados_financeiro_receber "
            sSQL = sSQL & " ("
            sSQL = sSQL & " P_Valor,"
            sSQL = sSQL & " P_Vencimento,"
            sSQL = sSQL & " P_Descricao"
            sSQL = sSQL & " ) "
            sSQL = sSQL & " VALUES "
            sSQL = sSQL & " ("
            sSQL = sSQL & " '" & Me.txtVrParcela & "',"
            sSQL = sSQL & " #" & Format(DateAdd("m", i - 1, Me.txtVencimento), "dd/mm/yyyy") & "#,"
            sSQL = sSQL & " 'Parcela " & i & "/" & Me.txtQtdParcelas & "'"
            sSQL = sSQL & " )"
            CurrentDb.Execute sSQL
        Next i
        Me.lbxParcelas.Requery
        MsgBox "Parcelas cadastradas.", vbInformation, "Sucesso!"
    Else
        MsgBox "Prencha todos os campos.", vbInformation, "Atenção!"
    End If

    Exit Sub

trata_erro:
    MsgBox "Erro ocorrido: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
    Exit Sub

End Sub



Espero ter ajudado

Att,

Alexandre Fim

Não funcionou, ele permanece salvando com o formado americano de mês/dia/ano.
Gostei muito da estrutura do código em sSQL.
To deixando o link do BD aqui.


Banco de Dados - GDrive

Olá Rodrigo,

Fiz os ajustes necessários na data e agora está gravando corretamente. Ficou assim:

1 - Cadastrando conta:

[/url]

2 - Confirmando gravação de dados:



3 - Dados atualizados na lista:



Criei algumas rotinas para facilitar no desenvolvimento e manutenção do código:

- VerificaCampos: função verifica o preenchimento correto e validação dos campos antes de gravar os dados;
- GravaParcelas: função realiza a gravação das parcelas;
- CalculaParcelas: procedimento que faz o cálculo do valor da parcela quando o Total e a Qtde de Parcelas são informados. Bloqueio do campo por ser calculado, para não haver interferência do usuário e não permitir edição deste campo.
- LimpaCampos: procedimento para limpar o campos após gravação dos dados

Abra o código e verifique os comentários em cada rotina, para melhor entendimento.
Sempre que possível, mantenha as rotinas separadas distintamente de acordo com sua caracteristica.
Evite colocar códigos de validação e gravação de dados em botoes de comando (no caso, botão Salvar). Desta forma, o código fica mais limpo e fácil na manutenção e implementação de novas rotinas.

É isso!

Espero ter ajudado.

Segue versão do sistema.

Att,

Alexandre Fim