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

3 participantes

    [Resolvido]Grupo de opções no VBA

    Pedromelo
    Pedromelo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 90
    Registrado : 13/07/2012

    [Resolvido]Grupo de opções no VBA Empty [Resolvido]Grupo de opções no VBA

    Mensagem  Pedromelo 24/7/2013, 10:53

    Boas estou com uma duvida.
    como poder criar um grupo de opções no vba (provavelmente tem outro nome)

    Exemplo:

    opção 1 = "azul"
    opção 2 = "azul"
    opção 3 = "azul"
    opção 4 = "azul"
    opção 5 = "azul"

    para poder usar com:

    For i = 1 To 5
    Me("txt" & CStr(i)).Value = opção & CStr(i)
    Me("txt" & CStr(i)).RowSource = "SELECT * FROM tb_dados where "ID= '"& Me.Txt0 &"';"
    Me("txt" & CStr(i)) = Dlookup("Nome", "tb_dados", "ID"= " & Me.txt0 & ")
    next i


    Última edição por Pedromelo em 11/9/2021, 00:07, editado 1 vez(es)
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1306
    Registrado : 21/01/2012

    [Resolvido]Grupo de opções no VBA Empty Re: [Resolvido]Grupo de opções no VBA

    Mensagem  Cláudio Más 24/7/2013, 13:10

    Melhor usar vetor (array). Por exemplo:

    Código:
    Dim opção(1 To 5)

    opção(1) = "azul"
    opção(2) = "azul"
    opção(3) = "azul"
    opção(4) = "azul"
    opção(5) = "azul"

    For i = 1 To 5
        Me("txt" & CStr(i)).Value = opção(i)
        Me("txt" & CStr(i)).RowSource = "SELECT * FROM tb_dados where "ID= '"& Me.Txt0 &"';"
        Me("txt" & CStr(i)) = Dlookup("Nome", "tb_dados", "ID"= " & Me.txt0 & ")
    Next i
    Pedromelo
    Pedromelo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 90
    Registrado : 13/07/2012

    [Resolvido]Grupo de opções no VBA Empty Re: [Resolvido]Grupo de opções no VBA

    Mensagem  Pedromelo 24/7/2013, 13:13

    Ok muito obrigado.
    ainda não testei mas acho que era mesmo o que precisava.
    Ja tinha visto esse código algures mas
    não me lembrava mais como era feito.
    Depois retorno.


    Tentei assim mas não apresenta nada nas caixas.

    Dim opção(1 To 7)

    opção(2) = "tb_codfornecedor"
    opção(3) = "tb_familia"
    opção(4) = "tb_produto"
    opção(5) = "tb_acabamento"
    opção(6) = "tb_unidade"
    opção(7) = "tb_codigosGS1"

    For i = 2 To 7
    Me("txt" & CStr(i)).RowSource = "SELECT * FROM '" & opção(i) & "' ORDER BY nome ASC;"
    Next i

    Diz erro na expressão!
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 22/11/2016

    [Resolvido]Grupo de opções no VBA Empty Re: [Resolvido]Grupo de opções no VBA

    Mensagem  DamascenoJr. 7/9/2021, 18:59

    Pedro, conseguiu solução para esta questão? Como ficou?

    Aguardamos...


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 1/10/2022, 16:12