MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    Salvando data em formato americano

    avatar
    FarrelPR
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 02/05/2024

    Salvando data em formato americano Empty Salvando data em formato americano

    Mensagem  FarrelPR 3/6/2024, 02:51

    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


    Última edição por FarrelPR em 3/6/2024, 18:52, editado 1 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3365
    Registrado : 13/12/2016

    Salvando data em formato americano Empty Re: Salvando data em formato americano

    Mensagem  Alexandre Fim 3/6/2024, 13:23

    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


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    Salvando data em formato americano Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    FarrelPR
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 02/05/2024

    Salvando data em formato americano Empty Re: Salvando data em formato americano

    Mensagem  FarrelPR 3/6/2024, 17:15

    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
    Anexos
    Salvando data em formato americano AttachmentLRPROC V1.0.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (528 Kb) Baixado 1 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3365
    Registrado : 13/12/2016

    Salvando data em formato americano Empty Re: Salvando data em formato americano

    Mensagem  Alexandre Fim 3/6/2024, 20:05

    Olá Rodrigo,

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

    1 - Cadastrando conta:

    Salvando data em formato americano Parc0010[/url]

    2 - Confirmando gravação de dados:

    Salvando data em formato americano Parc0011

    3 - Dados atualizados na lista:

    Salvando data em formato americano Parc0012

    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
    Anexos
    Salvando data em formato americano AttachmentLRPROC_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (111 Kb) Baixado 4 vez(es)


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    Salvando data em formato americano Setinf11
    Sistemas e Tecnologia Ltda

    Conteúdo patrocinado


    Salvando data em formato americano Empty Re: Salvando data em formato americano

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/7/2024, 12:04