Criação de objeto commandbutton em tempo de execução

Caros, amigos... como vao??

preciso de uma ajuda de vocês no seguinte código:

Código:

Option Explicit
Private WithEvents btnObj As CommandButton

Private Sub Form_Load()
   Set btnObj = Controls.Add("VB.CommandButton", "btnObj")
  Form1.Caption = "Criando controles"
   With btnObj
      .Visible = True
      .Width = 2000
      .Caption = "Olá Pessoal !!!"
      .Top = 500
      .Left = 1200
   End With
End Sub


porem, na adaptação que estou fazendo, na linha Set btnObj = Controls.Add("VB.CommandButton", "btnObj") ele fala que "método ou membro de dados não encontrado" e marca a palavra ADD

estou usando o Access 2007

achei essa rotina de criação de objetos muito simples e gostaria de saber o porque desse erro.
desde já muito obrigado pela ajuda

Olá Bruno

O código que apresentou é do Visual Basic um exemplo do site do Macoratti.

Embora o VB do Visual Basic seja parecido com o VBA, não são identicos.

Na coleção Controls () do Access não tem o método Add, por isso o erro e o Access "Grita!".

No access, para criar qualquer controle num formulário, o mesmo deve estar em modo designe.

Então, deveremos criar um botão num outro formulário e através dele usar o código VBA.

Aqui está o código a ser usado nesse botão, do formulário1:

Lembrando: os valores abaixo são em twips

Código:


DoCmd.OpenForm "Formulário2", acDesign, , , , acHidden ' abre o form 2, em modo designe, oculto

  
    With CreateControl( _
             FormName:="Formulário2", _
             ControlType:=acCommandButton, _
             Section:=acDetail, _
             Left:=4534, _
             Top:=680, _
             Height:=741, _
             Width:=1529)

             ' set control properties
             .Name = "cmdOla"
             .Caption = "Olá pessal"
    End With
  
    DoCmd.OpenForm "Formulário2"


[ ]'s

Noob

Noobezinho, bom dia!!

desculpe minha falta de destreza em não perceber que o código era VB (hahaha)... muito tempo (muito tempo mesmo) sem mexer na área da programação...
sim, o código é do site do Macoratti..

então pelo que entendi o VBA não cria objetos em tempo de execução.
cara, muito obrigado pela ajuda... vou adaptar o seu código às minhas necessidades aqui e te dou um retorno assim que testar tudo...

mais uma vez obrigado.

Bruno.

e ae Noob, como vai?... olha eu aqui dnovo!! hehehe

cara, fiz um teste porem o access continua "gritando"...

saka so

Código:

Private Sub Form_Load()
sbpMontaBotoes
End Sub

Código:

Private Sub sbpMontaBotoes()
'ROTINA PARA CAPTAÇÃO DE DADOS E CRIAÇÃO EM
'TEMPO DE EXECUÇÃO DOS BOTOES UTILIZADOS NO
'FORMULARIO
DoCmd.OpenForm "001-BOMBEADOS", acDesign, , , , acHidden ' abre o form 2, em modo designe, oculto
  
    With CreateControl( _
             FormName:="001-BOMBEADOS", _
             ControlType:=acCommandButton, _
             Section:=acDetail, _
             Left:=10608, _
             Top:=1005, _
             Height:=801, _
             Width:=2199)

             ' set control properties
             .Name = "btnV01"
             .Caption = "Olá pessal"
    End With
  
    DoCmd.OpenForm "001-BOMBEADOS", acNormal
    
End Sub

dae ele apresenta o erro em anexo!!!
pesquisei mas nada que solucionasse o problema.

Qual o nome do formulário que está esse código?

001-BOMBEADOS

vo te explicar o q estou tentando fazer, as vezes vc tem outra solução para o meu problema...

lembro que no VB tenhamos a opção de criar objetos (botões por exemplo) com índices, como c fosse um array, ( bt(1), bt(2) e por ae vai)
no VBA não achei essa opção nem achei uma forma de fazer algo parecido a não ser criar os botões em tempo de execução...

o q preciso e o seguinte, vou ter um bloco com 6 botões porem, so sera mostrado os botões que tiverem dados associados... caso não tenha ficarão invisíveis.

então... após a consulta na tabela... (se houver dados)
botao01.caption = dado1
botao02.caption = dado2
.
.
.
botao6.caption = dado6

sakou ?!

[]'s

Você não leu direito meu post  sobre formulários

Você não consegue criar um objeto , no caso , um botão, em um formulário que está aberto para visualização.
Só se pode criar em modo designe ou de estrutura, como era chamado antigamente.

Veja no meu post que existem dois formulários, 1 e 2.

Executa-se o código no form 1 pra criar no form 2

Mas como vc mesmo diz, se são somente 6 botões, crie-os e deixe invisivel.

No evento ao carregar ou abrir do formulário, experimente assim:

If Dcount( "*","NomeConsulta") > 0 then ' se o número de registro é maior que zero, então...
 me.nomebotão.visible = true
Endif

Repita o código pra cada botão.

Não conheço o teu formulário, mas é essa a ideia.


Noob

Dae noob, entendi... realmente não percebi o outro formulário.... mas dessa forma não consigo fazer o que preciso pois tenho que mostrar os botões conforme o código vai executando...
de qualquer forma... muito obrigado pela atenção e ajuda cara...
vou ver outro jeito de fazer utilizado a sua outra ideia...
grande abraco.

Mas você nem chegou a testar a segunda opção
mencionada no meu post anterior

esse eh o meu próximo passo hehehehe