... Pague apenas R$47,00 uma única vez e tenha acesso por 1 ano aos vídeos e arquivos exemplos do site ...

Clique aqui e obtenha mais detalhes.


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

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!


 

 


Não há comentário

Envie seu comentário: