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

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?

up

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

se escolher boleto então
credito.enable =false

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?

Bom dia...

Experimente:

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

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

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

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 !

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.

Olá pessoal

muito obrigado pela ajuda Marcelo David e Silvio!!

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

Vlww msm!!

Sucesso!