Criar as propriedades Format, Legenda e Máscara de um campo

Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 5x no Cartão de Crédito.

Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.

Open v3

O método CreateProperty do tableDefs é utilizado para a criação e a configuração das propriedades de um campo. Observe, no código abaixo, como criar e configurar as propriedades Format, Legenda e Máscara do campo DataLançamento:

Public Sub fncCriarTabela()
Dim strSql$
Dim bd As dao.Database

Dim prp as dao.property

Set bd = CurrentDb

strSql = "CREATE TABLE tblProdutos (" _

"idProduto AUTOINCREMENT," & _
"NomeProduto CHAR(50)," & _
"DataLançamento DATE," & _
"QuantidadeEstoque INTEGER," & _
"ValorUnitário CURRENCY," & _
"Observação MEMO," & _
"Descontinuado YESNO)"

'-------------------------------------

'Executa a consulta, criando a tabela

'-------------------------------------
bd.Execute strSql

'---------------------------------------------------

'Configurando a propriedade Format para Data Curta

'---------------------------------------------------
Set prp = bd.TableDefs("tblprodutos"). _
Fields("DataLançamento"). _
CreateProperty("Format", dbText, "Short Date")

bd.TableDefs("tblprodutos").Fields("DataLançamento").Properties.Append prp

'-----------------------------------------------------------

'Configurando a propriedade Caption do campo DataLançamento

'-----------------------------------------------------------

Set prp = bd.TableDefs("tblprodutos"). _
Fields("DataLançamento"). _
CreateProperty("Caption", dbText, "Data do Lançamento")

bd.TableDefs("tblprodutos").Fields("DataLançamento").Properties.Append prp

'----------------------------------------------------------------------

'Configurando a propriedade Máscara de Entrada do campo DataLançamento

'----------------------------------------------------------------------

Set prp = bd.TableDefs("tblprodutos"). _
Fields("DataLançamento"). _
CreateProperty("InputMask", dbText, "00/00/0000")

bd.TableDefs("tblprodutos").Fields("DataLançamento").Properties.Append prp

'-----------------------------------------

'Esvazia as variáveis, limpando a memória

'-----------------------------------------
Set prp = Nothing
set bd = Nothing
End Sub

Bom estudo!

Os dez artigos mais visitados

MontaRibbons v.7.0 - Assistente completo para criar ribbons no Access

Vídeo - Controle personalizado de Acesso de Usuários

Vídeo - Aprenda sobre filtragens

Vídeo - Segurança máxima, usando o OPEN

Uma ajuda para quem está começando um negócio ou um projeto

Integrando o Access com Servidor MySQL - Introdução

Desabilitando a faixa(ribbon) superior do Access

Vídeo - Programação de relatórios - Parte 1

Como carregar o seu menu sem que ele vá para lista de suplementos

Vídeo - Criando Ribbons parte 1  - Conhecendo a estrutura Xml

| Home | Vídeos | Tutoriais | Dicas | Ribbons | Suporte | Downloads | Contato | Artigo |

Não há comentário

Usando Access

Criar as propriedades Format, Legenda e Máscara de um campo