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

    [Resolvido]Converter data aaaa/mm/dd em dd/mm/aaaa

    Bred
    Bred
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 115
    Registrado : 15/09/2010

    [Resolvido]Converter data aaaa/mm/dd em dd/mm/aaaa Empty Converter data aaaa/mm/dd em dd/mm/aaaa

    Mensagem  Bred 17/6/2013, 19:57

    Boa tarde a todos!!! pessoal estou a precisar mais uma vez da ajuda do fórum, tenho uma consulta no meu formulário onde busco dados em banco de dados sql server,  no campo data ele me  exibe a data no form,ato que o sql grava como padrão " aaaa/mm/dd" mas eu queria que fosse exibido "dd/mm/aaaa" eu uso o seguinte código para fazer a consulta.

    Código:
        Dim db As DAO.Database
        Dim rs As DAO.Recordset
        Dim strSQL As String
        Dim Linha As Integer
            Set db = CurrentDb
            Set rs = db.OpenRecordset("SELECT *  FROM dbo_tblProduto WHERE codProduto=" & Me.txtCodProduto, dbOpenDynaset, dbSeeChanges)
    If Not rs.BOF Then
            Me.txtloja = rs("numLoja")
            Me.txtFornecedor = rs("fantasiaFornecedor")
            Me.txtStatusProduto = rs("statusProduto")
            Me.txtDataCadastro = rs("dataCadastro")
            Me.txtUnidade = rs("unidade")
            Me.txtDescricaoProduto = rs("descricao")
            Me.txtEstoqueMini = rs("qtd_Minima")
    End If
        rs.Close
        Set rs = Nothing
        db.Close
        Set db = Nothing

    Desde ja sou muito grato a todos...


    .................................................................................
    "O topo da sabedoria é alcançar a humildade..."
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    [Resolvido]Converter data aaaa/mm/dd em dd/mm/aaaa Empty Re: [Resolvido]Converter data aaaa/mm/dd em dd/mm/aaaa

    Mensagem  Marcelo David 17/6/2013, 20:03

    teste:

    If Not rs.BOF Then
            Me.txtloja = rs("numLoja")
            Me.txtFornecedor = rs("fantasiaFornecedor")
            Me.txtStatusProduto = rs("statusProduto")
            Me.txtDataCadastro = Format(rs("dataCadastro"),"dd/mm/yyyy")
            Me.txtUnidade = rs("unidade")
            Me.txtDescricaoProduto = rs("descricao")
            Me.txtEstoqueMini = rs("qtd_Minima")
    End If


    .................................................................................
    [Resolvido]Converter data aaaa/mm/dd em dd/mm/aaaa Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Converter data aaaa/mm/dd em dd/mm/aaaa Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Converter data aaaa/mm/dd em dd/mm/aaaa Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Converter data aaaa/mm/dd em dd/mm/aaaa Marcel11
    Bred
    Bred
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 115
    Registrado : 15/09/2010

    [Resolvido]Converter data aaaa/mm/dd em dd/mm/aaaa Empty Re: [Resolvido]Converter data aaaa/mm/dd em dd/mm/aaaa

    Mensagem  Bred 17/6/2013, 20:13

    Marcelo serviu certinho como eu queria parceiro, muito obrigado mesmo...


    .................................................................................
    "O topo da sabedoria é alcançar a humildade..."
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    [Resolvido]Converter data aaaa/mm/dd em dd/mm/aaaa Empty Re: [Resolvido]Converter data aaaa/mm/dd em dd/mm/aaaa

    Mensagem  Marcelo David 17/6/2013, 20:22

    Grato pelo retorno! O Fórum agradece! Smile


    .................................................................................
    [Resolvido]Converter data aaaa/mm/dd em dd/mm/aaaa Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Converter data aaaa/mm/dd em dd/mm/aaaa Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Converter data aaaa/mm/dd em dd/mm/aaaa Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Converter data aaaa/mm/dd em dd/mm/aaaa Marcel11

    Conteúdo patrocinado


    [Resolvido]Converter data aaaa/mm/dd em dd/mm/aaaa Empty Re: [Resolvido]Converter data aaaa/mm/dd em dd/mm/aaaa

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 16:05