[Resolvido]Combo com Msgbox

bom dia  amigos !


Não estou conseguindo colocar um cambo com msgbox.

Ex: no histórico tem a Situação do cliente. (andamento) e (concluído) -> combo

O Andamento já vem da tabela para formulário de busca.

o colaborador clica no formulário de folha de dados e abre outro formulário com os dados completos do cliente.

e dentro desse formulário tem uma combo somente com o valor em texto "Concluído"

estou montando um código porem não esta dando resultado. e aparece o seguinte erro:

Erro de compilação:
chamada a função  no lado esquerdo de uma atrbuição precisa retornar variant ou object

o que poderia estar errado ?

codigo a baixo (depurador aponta o que esta em vermelho)
If Me.SITUAÇÃO = "CONCLUIDO" Then
MsgBox("Tem Certeza que deseja Alterar a Situação do Prestador", vbYesNo, "Exit") = vbYes
Me.SITUAÇÃO.Enabled = False
End If
End Sub

Você está a dizer que a mensagem é igual a vbyes, mas não tem o "SE alguma coisa"

Tem de entender a codificação;

Se a msg for igual a vbyes tem de fazer isto, se não, faz aquilo.

Código:

If Me.SITUAÇÃO = "CONCLUIDO" Then
    If MsgBox("Tem Certeza que deseja Alterar a Situação do Prestador", vbYesNo, "Exit") = vbYes Then
    Me.SITUAÇÃO.Enabled = False
    Else
    Exit Sub
    End If
End If

jp

boa tarde !

o msgbox nao esta aparecendo. abraços

Se não está aparecendo é porque Me.SITUAÇÃO não é igual a "CONCLUIDO".

estranho... segue o bd para analise.


abraços

Se me permitem um pitaco...

Tente assim.

Código:

Private Sub SITUAÇÃO_AfterUpdate()
If Me.SITUAÇÃO.Text = "CONCLUIDO" Then
    If MsgBox("Tem Certeza que deseja Alterar a Situação do Prestador", vbYesNo, "Exit") = vbYes Then
    Me.SITUAÇÃO.Enabled = False
    Else
    Exit Sub
    End If
End If
End Sub

Silvio mto obrigado !!! deu certo !

o detalhe esta no Text

abraços

O fórum agradece o retorno.

silvo

ultima duvida


o formulario nao esta atualizando a tabela algum pitaco ?

abraços

Bom dia a todos;

Silvio, nunca se deve usar o .Text em procedimentos de evento diferentes do "Ao Alterar" "On Change", porque ae ainda está no foco da caixa ou combo e recebe de imediato o texto.

Sempre que não tiver o foco no controle, vai dar erro.

O que está a faltar é referenciar-se á coluna da combo, que é o simples:

Código:

If Me.SITUAÇÃO.Column(1) = "CONCLUIDO" Then

A Microsoft diz:

Código:

Você pode usar a propriedade Text para definir ou retornar o texto contido em uma caixa de texto ou na parte caixa de texto de uma caixa de combinação.

Para definir ou retornar a propriedade de texto de um controle, o controle deve ter o foco ou ocorre um erro. Para mover o foco para um controle, você pode usar o método SetFocus ou a ação GoToControl.

Você pode usar a propriedade Value para determinar ou especificar se um controle está selecionado, o valor selecionado ou opção dentro do controle, o texto contido em um controle de caixa de texto ou o valor de uma propriedade personalizada.

A propriedade Value retorna ou define a propriedade padrão de um controle, que é a propriedade que é assumida quando você não especifica explicitamente um nome de propriedade. No exemplo a seguir, porque o valor padrão da caixa de texto é o valor da propriedade Text, você pode consultar sua configuração de propriedade Text sem especificar explicitamente o nome da propriedade.

Grande JPaulo.   Bom dia a si e a todos.

Mais uma que aprendi.  Sempre usei o "*.text".  Vou tomar mais cuidado a partir de agora.

Mas nunca obtive o retorno de erro quando eu a usei.

Mas valeu a dica.

Abraços.


Maguin,
Use o comando: me.refresh

resolvido