MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

    [Resolvido]Contar controlos com os mesmos dados em formulário

    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 382
    Registrado : 28/10/2010

    [Resolvido]Contar controlos com os mesmos dados em formulário Empty [Resolvido]Contar controlos com os mesmos dados em formulário

    Mensagem  zcarloslopes 21/5/2019, 14:51

    Boa tarde a todos,

    Venho pedir a vossa ajuda para o seguinte:

    Tenho um formulário que, entre outros, tem 5 rótulos cada um com legenda distinta.

    Esse Form tem um SubForm com 7 TextBox, sendo cada uma preenchida com a legenda de um dos 5 Rótulos.

    O que preciso saber é quantas TextBoxs tem a legenda de cada Rótulo.

    Tipo: o Rótulo1 tem 3 TextBox com a sua legenda; o Rótulo2 tem 1 TextBox com a sua legenda, etc, até ao Rótulo5.

    Alguma ideia?

    Obrigado


    Última edição por zcarloslopes em 24/5/2019, 08:50, editado 1 vez(es)
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 382
    Registrado : 28/10/2010

    [Resolvido]Contar controlos com os mesmos dados em formulário Empty Re: [Resolvido]Contar controlos com os mesmos dados em formulário

    Mensagem  zcarloslopes 24/5/2019, 08:49

    Resolvi o problema adaptando para o meu propósito o código abaixo.

    Obrigado
    Código:
    Sub UserFormLoop_MultipleControls()
    'PURPSOSE: Loop through multiple types of controls on your VBA UserForm
    'www.TheSpreadsheetGuru.com/the-code-vault

    Dim ctrl As Control
    Dim ctrlType1 As String
    Dim ctrlType2 As String

    'What control type to loop through
      ctrlType1 = "CheckBox"
      ctrlType2 = "OptionButton"

    'Loop Through each control on UserForm
      For Each ctrl In UserForm1.Controls
        'Narrow down to specific type
          If TypeName(ctrl) = ctrlType1 Or TypeName(ctrl) = ctrlType2 Then
            
            'Do Something With That Control Type...
              ctrl.Value = True
              
          End If
      Next ctrl

    End Sub
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7285
    Registrado : 15/03/2013

    [Resolvido]Contar controlos com os mesmos dados em formulário Empty Re: [Resolvido]Contar controlos com os mesmos dados em formulário

    Mensagem  ahteixeira 24/5/2019, 09:44


      Data/hora atual: 1/8/2021, 12:30