bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
Criando controle dinamicamente ao carregar o forms

Criando um controle ao carregar o formulário

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

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

Open v3

 

Usuário Wesley:

Bom dia.

Estou criando uma aplicação no Microsoft Access 2013 e tentando implementar um controle do tipo Textbox, ao carregar o formulário, mas está aparecendo o seguinte erro:

Criando controle com o CreateControl

 

Suporte:

Wesley, se não me engano, este método que você apresentou, funciona no VB e não no VBA do Access. Você precisa abrir o formulário no modo DESIGN para acrescentar o controle.  Utilize o método CreateControl para adicionar o controle ao formulário. Acompanhe o código abaixo:

Dim topo%,esquerda%,largura%,altura%
Const cm = 567 'medida de 1 cm no VBA
topo = 1 * cm
esquerda = 1 * cm
largura = 3 * cm
altura = 0.6 * cm
'Abre o formulário no modo Design e oculto
Docmd.OpenForm "NomeDoFormulário",acDesign  ,,,,acHidde
'Cria o controle
Application.CreateControl "NomeDoFormulário",acTextBox,acDetail ,,,topo,esquerda,largura,altura
'Salva as alterações no formulário
Docmd.Save ,"NomeDoFormulário"
'Abre o formulário no modo normal
Docmd.OpenForm "NomeDoFormulário"

Nota 1: este método só funciona na extensão ACCDB (mdb), devido a necessidade de abrir o formulário em modo design.

Nota 2: o código terá que ser em botão externo ao formulário em questão.

Veja no link a seguir, o help do CreateControl.  Observe o código exemplo no help e veja como se cria o Label para o controle.

https://msdn.microsoft.com/pt-br/library/office/ff836740(v=office.15).aspx

Usuário Wesley :

Deu certo Avelino.

Obrigado!


 

 


Não há comentário

Envie seu comentário: