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

    Alter Table campo data no formato hora completa

    avatar
    EliasSantos
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 01/10/2011

    Alter Table campo data no formato hora completa Empty Alter Table campo data no formato hora completa

    Mensagem  EliasSantos 14/5/2021, 00:05

    Boa noite a todos!

    Preciso adicionar um campo em uma tabela, via vba, do tipo Data. Já passei um bom tempo na busca do fórum, mas não encontrei.

    Como ficaria para criar no formato Hora Completa (00:00:00)?

    Banco.Execute ("ALTER TABLE TB_OPERACAO ADD COLUMN DT_OPER DATE ;")

    Desde já, muito obrigado.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2816
    Registrado : 22/11/2016

    Alter Table campo data no formato hora completa Empty Re: Alter Table campo data no formato hora completa

    Mensagem  DamascenoJr. 15/5/2021, 00:33

    O tópico abaixo seria uma luz.
    https://www.maximoaccess.com/t35099-resolvidoadicionar-um-campo-em-tabela-via-vba

    Código feito
    Código:
    Sub NomeProcedimentoQualquer()
    On Error Resume Next

        Dim Banco As DAO.Database
       
        Set Banco = CurrentDb
        Call Banco.Execute("ALTER TABLE TB_OPERACAO ADD COLUMN DT_OPER DATE;")
        Banco.TableDefs("TB_OPERACAO").Fields("DT_OPER").Properties("Format").Value = "Long Time"
       
        If Err Then
            Call Err.Clear
            Dim prp As Property
            Set prp = Banco.CreateProperty("Format", dbText, "Long Time")
            Call Banco.TableDefs("TB_OPERACAO").Fields("DT_OPER").Properties.Append(prp)
            Set prp = Nothing
        End If

        Set Banco = Nothing

    End Sub


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    crysostomo gosta desta mensagem


      Data/hora atual: 12/6/2021, 23:47