MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Campo de múltipla escolha com IF dando erro

    avatar
    saulosa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 53
    Registrado : 21/06/2016

    [Resolvido]Campo de múltipla escolha com IF dando erro Empty [Resolvido]Campo de múltipla escolha com IF dando erro

    Mensagem  saulosa em 11/11/2018, 16:40

    Prezados,

    tenho um campo de múltipla escolha [TOP_formapag]

    e quero fazer um condição para quando o usuário selecionar Boleto
    mas só da certo quando seleciona APENAS o boleto
    Por exemplo: Se selecionar Boleto e Crédito a condição não funciona.

    If Me.TOP_formapag.Column(0) = "Boleto" Then


    Alguém poderia me ajudar?
    avatar
    saulosa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 53
    Registrado : 21/06/2016

    [Resolvido]Campo de múltipla escolha com IF dando erro Empty Re: [Resolvido]Campo de múltipla escolha com IF dando erro

    Mensagem  saulosa em 12/11/2018, 17:02

    up
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 01/08/2011

    [Resolvido]Campo de múltipla escolha com IF dando erro Empty Re: [Resolvido]Campo de múltipla escolha com IF dando erro

    Mensagem  ronaldojr1 em 13/11/2018, 12:19

    manda o bd para analise.

    grato
    avatar
    saulosa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 53
    Registrado : 21/06/2016

    [Resolvido]Campo de múltipla escolha com IF dando erro Empty Re: [Resolvido]Campo de múltipla escolha com IF dando erro

    Mensagem  saulosa em 13/11/2018, 23:18

    Obrigado pelo retorno

    A condição tem que ser apenas para o boleto

    Quando seleciono na caixa de combinação a opção "boleto", o código funciona corretamento
    Mas quando seleciona Boleto e outras opções (na múltipla escolha), o código não atende minha necessidade.

    Parece que a caixa de combinação salva o conteúdo assim: "Boleto, transferência, cartão Crédito"

    Por isso o código não consegui identificar apenas o boleto isoladamente no conjunto da múltipla escolha

    Este condição, If Me.TOP_formapag.Column(0) = "Boleto" , não identifica que a opção "Boleto" Consta na seleção


    Esto anexando um exemplo do erro
    Anexos
    [Resolvido]Campo de múltipla escolha com IF dando erro AttachmentTeste - Multipla escolha.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (46 Kb) Baixado 7 vez(es)
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 368
    Registrado : 23/01/2017

    [Resolvido]Campo de múltipla escolha com IF dando erro Empty Re: [Resolvido]Campo de múltipla escolha com IF dando erro

    Mensagem  thiagomcosta em 14/11/2018, 12:07

    Olá!

    Tentei usar um looping
    For Each LinhaSelecionada In Me.forma_pgto.ItemsSelected
    mas não sei o motivo ele não executa, costumo usar assim para Caixa de Lsiatgem, nunca usei para Caixas de Combinação.

    Resolveu da seguinte maneira:
    Código:

    Private Sub forma_pgto_AfterUpdate()
        For i = 0 To forma_pgto.ListCount - 1
            If Me.forma_pgto.Column(1, i) = "Boleto" And Me.forma_pgto.Selected(i) Then
                MsgBox "Selecionado boleto" 'Coloca aqui o que deseja que seja realizado
            End If
        Next
    End Sub

    Coloquei este código no evento "Após atualizar" do controle forma_pgto, mas adapte ao que melhor se adequar ao seu caso.

    avatar
    saulosa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 53
    Registrado : 21/06/2016

    [Resolvido]Campo de múltipla escolha com IF dando erro Empty Re: [Resolvido]Campo de múltipla escolha com IF dando erro

    Mensagem  saulosa em 13/12/2018, 00:44

    Muito obrigado pela ajuda thiagomcosta e ronaldojr1

    Encontrei uma outra solução

    Segue o link!

    https://www.maximoaccess.com/t34683-resolvidocondicao-para-campo-com-multipla-escolha#239249

    VLww Pessoal!

      Data/hora atual: 13/8/2020, 18:56