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

    Criando campo calculado via VBA

    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    Criando campo calculado via VBA Empty Criando campo calculado via VBA

    Mensagem  DamascenoJr. 11/6/2021, 19:12

    Código:
    Public Sub fncExemploCriaCampoCalculado()

        Dim bd As DAO.Database
        Dim tbl As DAO.TableDef
        Dim cp As DAO.Field2
       
        Set bd = CurrentDb()
        Set tbl = bd.TableDefs("NomeSuaTabela")
       
        Set cp = tbl.CreateField("NomeCampoCalculadoCriar", dbInteger)
        cp.Expression = "[Campo1]+[Campo2]"
        Call tbl.Fields.Append(cp)
        Set cp = Nothing
        Set tbl = Nothing
        Set bd = 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.

    alozs gosta desta mensagem

    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7283
    Registrado : 15/03/2013

    Criando campo calculado via VBA Empty Re: Criando campo calculado via VBA

    Mensagem  ahteixeira 16/6/2021, 23:18

    Olá Damasceno,

    Podemos dizer "com o MaximoAccess é sempre aprender"

    PArabéns e obrigado pela partilha.

    cheers

      Data/hora atual: 24/7/2021, 11:48