... 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

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: