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

Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).

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: