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

... Assinatura do site por 1 ano + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$100,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Criando um controle ao carregar o formulário

Antes de iniciar a sua leitura, clique aqui e cadastre-se para receber comunicados sobre novos artigos.

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: