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]Condição para campo com múltipla escolha

    avatar
    saulosa
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Condição para campo com múltipla escolha Empty [Resolvido]Condição para campo com múltipla escolha

    Mensagem  saulosa em 10/11/2018, 13:30

    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
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Condição para campo com múltipla escolha Empty Re: [Resolvido]Condição para campo com múltipla escolha

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

    up
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4390
    Registrado : 20/04/2011

    [Resolvido]Condição para campo com múltipla escolha Empty Re: [Resolvido]Condição para campo com múltipla escolha

    Mensagem  Silvio em 12/11/2018, 17:11

    Use o comando enable = false no evento ao clicar do boleto

    se escolher boleto então
    credito.enable =false


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    saulosa
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Condição para campo com múltipla escolha Empty Re: [Resolvido]Condição para campo com múltipla escolha

    Mensagem  saulosa em 12/11/2018, 21:11

    Oi Silvio,

    Tenho um campo chamado [TOP_formapag] que é uma caixa de combinação com múltipla escolha.
    quando clica no campo, abre:

    [X]Boleto
    [X]Transferência
    [ ]Dinheiro
    [ ]Crédito
    [ ]Outros

    E tem outro campo chamado [TOP_statuscredito], com a origem da linha: "Não Aplica";"Não Realizado";"APROVADO";"NEGADO"
    Que só se aplica no caso de forma de pagamento tem a opção BOLETO
    Então no código VBA, quando este campo é atualizado tenho:

    Private Sub TOP_statuscredito_AfterUpdate()

    If Me.TOP_statuscredito = "APROVADO" Then

    If Me.TOP_formapag.Column(0) = "Boleto" Then 'Na seleção da caixa de combinação precisa ter selecionado NO MÍNIMO a opção Boleto

    r_credito = MsgBox("Você tem certeza que deseja aprovar o Crédito para Faturamento deste Cliente?", vbYesNo, "Aviso")
    If r_credito = vbYes Then

    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.OpenForm "SENHA", acNormal, "", , , acNormal

    Else
    MsgBox "Operação Cancelada.", , "Aviso"
    End If

    Else
    MsgBox "Necessário Selecionar a opção BOLETO no campo Forma de Pagamento.", vbExclamation, "Aviso"
    'Porque o crédito só é aplicado para boleto! as outras formas de pagamento não precisa o crédito ser aprovado
    End If

    End If
    End Sub


    O problema é que se eu selecionar na caixa de combinação BOLETO e Transferência, o código não funciona
    só funciona se o usuário seleciona APENAS boleto...

    pode me ajudar?
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4390
    Registrado : 20/04/2011

    [Resolvido]Condição para campo com múltipla escolha Empty Re: [Resolvido]Condição para campo com múltipla escolha

    Mensagem  Silvio em 13/11/2018, 09:43

    Bom dia...

    Experimente:

    If Me.TOP_statuscredito = "APROVADO" and " Transferência" Then

    If Me.TOP_formapag.Column(0) = "Boleto" and "Transferência"


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    saulosa
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Condição para campo com múltipla escolha Empty Re: [Resolvido]Condição para campo com múltipla escolha

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

    Silvio, obrigado pelo retorno, mas ainda não consegui

    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]Condição para campo com múltipla escolha AttachmentTeste - Multipla escolha.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (46 Kb) Baixado 5 vez(es)
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4390
    Registrado : 20/04/2011

    [Resolvido]Condição para campo com múltipla escolha Empty Re: [Resolvido]Condição para campo com múltipla escolha

    Mensagem  Silvio em 14/11/2018, 09:40

    Bom dia Saulo.

    Sinceramente eu trabalharia com o tipo de dados Booleano ( Sim/Não ) para o que deseja, ficaria mais prático e simples para trabalhar e desenvolver.
    Além de que em termos de desenvolvimento ficaria muito mais pratico e simples para escrever as rotinas que deseja e sem contar também que haveria mais possibilidades de opções ao selecionar as formas de pagamentos.

    Pense nisso pois não sei a quantas andas o desenvolvimento por ai !


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2765
    Registrado : 21/04/2011

    [Resolvido]Condição para campo com múltipla escolha Empty Re: [Resolvido]Condição para campo com múltipla escolha

    Mensagem  Marcelo David em 17/11/2018, 03:07

    Bom dia,
    eu compartilho da opinião do Silvio, usaria outros métodos.
    Mas para o que está precisando agora, teste por favor.
    Caso seja o resultado esperado, verifique os códigos para
    entender como funciona e como fiz.
    Anexos
    [Resolvido]Condição para campo com múltipla escolha AttachmentTeste - Multipla escolha_new1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (117 Kb) Baixado 13 vez(es)


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    saulosa
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Condição para campo com múltipla escolha Empty Resolvido - Obrigado!

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

    Olá pessoal

    muito obrigado pela ajuda Marcelo David e Silvio!!

    A solução que você colocou no exemplo resolveu meu problema!

    Vlww msm!!

    Sucesso!

    Conteúdo patrocinado

    [Resolvido]Condição para campo com múltipla escolha Empty Re: [Resolvido]Condição para campo com múltipla escolha

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/7/2019, 21:56