Início
- 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
3 participantes
Criando campo calculado via VBA
DamascenoJr.- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3845
Registrado : 22/11/2016
.................................................................................
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.
Francisco Xavier, alozs, Carlos Gomes e Dalazen gostam desta mensagem
Alvaro Teixeira- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7996
Registrado : 15/03/2013
Olá Damasceno,
Podemos dizer "com o MaximoAccess é sempre aprender"
PArabéns e obrigado pela partilha.
Podemos dizer "com o MaximoAccess é sempre aprender"
PArabéns e obrigado pela partilha.
Carvalho- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 249
Registrado : 19/01/2013
Esse damasceno sabe trabalhar viu, parabens.
Tópicos semelhantes
» [Resolvidos]Campo Calculado num Formulário-Como adicionar valor calculado à Tabela correspondente?
» [Resolvido]Copiar dados de um campo calculado do form para um campo na tabela.
» Campo calculado em consuta usando dados de campo em registro anterior
» [Resolvido]Como usar dados de um campo calculado em um campo de tabela num subformulario ou formulario?
» Substituir o valor de um campo de um subformulário a partir de um campo calculado no formulário para todos os registro do subformulário
» [Resolvido]Copiar dados de um campo calculado do form para um campo na tabela.
» Campo calculado em consuta usando dados de campo em registro anterior
» [Resolvido]Como usar dados de um campo calculado em um campo de tabela num subformulario ou formulario?
» Substituir o valor de um campo de um subformulário a partir de um campo calculado no formulário para todos os registro do subformulário