MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


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

    avatar
    zcarloslopes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 161
    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 em 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
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 161
    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 em 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 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6164
    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 em 24/5/2019, 09:44


    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/7/2019, 00:16