[Resolvido]Colocando Caption do botão em Variável

Amigos, preciso de um código que percorra os controles do form e encontrando algum que tenha a sua Caption como:
Inserir MÉDIO ** Pesquisando apenas o Inserir do caption
Aplique o nome do Botão na Variável


Como fazer...?

Saudações

Hary,

Siga o caminho
For Each Ctl In Form.Controls
If Ctl.ControlType = acLabel or Ctl.ControlType = acCommandButtonThen
if ctl.caption = ...
...

Eu estava tentando algo assim:

Dim ctl As Control
Dim ctlName As String
For Each ctl In Me.Controls
Debug.Print ctl.Name

For Each ctl In Me.Controls
Select Case ctl.ControlType
Case acCommandButton
If ctl.Name = Left(ctl.Name, 7) Then


Mas em realidade não era o nome e sim a Caprion.. vou adaptar ao seu... logo dou retorno


Saudações amigão

Perfeito Amigo Alexandre, em uma junção dos dois códigos ficou assim:

Private Function NomeControle()
Dim ctl As Control
Dim ctlName As String

For Each ctl In Form.Controls
If ctl.ControlType = acLabel Or ctl.ControlType = acCommandButton Then
If Left(ctl.Caption, 7) = "Inserir" Then
ctlName = Left(ctl.Name, 6)
MsgBox ctlName
End If
End If
Next ctl
End Function


Agora a última questão relacionada a isto...

Como levar a variável ctlName para uso em outro código, sendo que a rotina primeiramente executará esta rotina
em seguida executará a outra que vai o nome da variável...

Como fazer?

Aqui tem duas saídas. Ou tem uma variável global ou cria uma tabela para armazenar o valor e pode-o utilizar onde e quando quiser.

Como fazer a variável global amigão?

Variaveis globais são definidas dentro de um modulo e serve para ser carregada/descarregada por todos os Form.

Bom dia Mercia, o que são eu sei, a questão é apenas como utilizar neste caso sendo que a variável fica em um módulo no form...

Saudações

Eis

'Option Compare Database
Option Explicit

' Tipo de Dado Template
Private Type TTemplate
tpt() As Byte
Size As Long
End Type
' Tipo de Dado Imagem
Private Type rawImage
img As Variant
height As Long
widht As Long
res As Long 'resolução
End Type
Private Const ERR_INVALID_TEMPLATE = -997
Dim DB As Database, r As Recordset, ret As Integer, i As Integer, erro As Integer, template As TTemplate, raw As rawImage
Dim digi As String, tpt() As Byte, score As Long, msg As String, ctlName As String, stNome As String


Obrigado Alexandre, grsto pela dica Mércia... tenham todos um bom dia.