Ajuda com Select Case controls de buttum.

Olá galera, bom dia!
Estou com dificuldade com esse código. É o seguinte, tenho os botoes btute6101, 02, 03, ... geral conforme abaixo. Gostaria que quando clicasse no botão a variavel globa ute recebece o valar do botão. Fui claro? Obrigado!

Public Function fncute() As Controls
Select Case Cont
Case "btute6101"
ute = 6101
Case "btute6102"
ute = 6102
Case "btute6103"
ute = 6103
Case "btute6104"
ute = 6104
Case "btute6105"
ute = 6105
Case "btute6106"
ute = 6106
Case "btute6111"
ute = 6111
Case "btgeral"
ute = 6101 And 6102 And 6103 And 6104 And 6105 And 6106 And 6111
End Select
End Function

Explique-nos qual o objetivo e se isso é num formulario Access ?

É o seguite, quando o usuario clicar no btute6101, a variavel global UTE receba o valor de 6101 e assim, quando clicar no botões btute6102 ute = 6102, quando clicarem no botão btute6103 ute = 6103 e assim sucessivamente. Essa e uma funçao de móludo para varios formularios no access. Obrigado!

Wellington amigão, até ae eu cheguei, facil.

Só queria entender, qual o objetivo dessa variavel, seria para utilizar onde ?

Na verdade essa função ira sevir de base para uma consulta... Como as consultas não aceita as variavels eu irei declara essa função em um criteirio de consulta, ficou claro? obrigado!

As consultas aceitam variáveis sim, basta você enviar a variável para uma variável global.

Em todo caso preciso informar a variavel que o valor será de acordo com o que os usuarios clicarem nos botões...

Amigão faça o simples;

Num modulo novo, cole apenas isto e salve:

'variavel publica
Public ute As Variant


Public Function VariavelArmazenada()
    VariavelArmazenada = ute
End Function

Ao pressionar de cada botão, passe a variavel para a variavel publica:

Private Sub btute6101_Click()
    ute = 6101
End Sub


Private Sub btute6102_Click()
    ute = 6102
End Sub

E por ae nos outros botões....

No criterio da sua consulta, você coloca:

VariavelArmazenada()

É uma ótima solução, mas eu terei que fazer isso nos 28 formularios... Por isso eu queria o Select Case, por que posso chamar a função e assim reduzir o numero de linhas e o tamanho do bd.

Então uma questão;

Todos os formularios têm o botão Private Sub btute6101_Click() ????

Não, mas em todos os formularios iram ter turno A, B e C ai irá ocorrer uma junção na consulta nos criterios ute e turno.

Para você fazer isso da forma que quer, teria de criar uma função com um For Each ctl In frm.Controls, mas pense primeiro no simples.

Tem com me passar umas dicas desta função? Sou leigo nesta área. Obrigado!