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]Combo com Msgbox

    Compartilhe

    maguim
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 197
    Registrado : 15/05/2013

    [Resolvido]Combo com Msgbox

    Mensagem  maguim em Ter 18 Abr 2017, 15:06

    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


    Última edição por maguim em Ter 18 Abr 2017, 20:44, editado 1 vez(es)
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9517
    Registrado : 04/11/2009

    Re: [Resolvido]Combo com Msgbox

    Mensagem  JPaulo em Ter 18 Abr 2017, 15:29

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    maguim
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 197
    Registrado : 15/05/2013

    Re: [Resolvido]Combo com Msgbox

    Mensagem  maguim em Ter 18 Abr 2017, 17:54

    jp

    boa tarde !

    o msgbox nao esta aparecendo. abraços
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9517
    Registrado : 04/11/2009

    Re: [Resolvido]Combo com Msgbox

    Mensagem  JPaulo em Ter 18 Abr 2017, 17:59

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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    maguim
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 197
    Registrado : 15/05/2013

    Re: [Resolvido]Combo com Msgbox

    Mensagem  maguim em Ter 18 Abr 2017, 18:55

    estranho... segue o bd para analise.


    abraços
    Anexos
    testeee.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (836 Kb) Baixado 9 vez(es)
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Combo com Msgbox

    Mensagem  Silvio em Ter 18 Abr 2017, 19:57

    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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    maguim
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 197
    Registrado : 15/05/2013

    Re: [Resolvido]Combo com Msgbox

    Mensagem  maguim em Ter 18 Abr 2017, 20:00

    Silvio mto obrigado !!! deu certo !

    o detalhe esta no Text

    abraços
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Combo com Msgbox

    Mensagem  Silvio em Ter 18 Abr 2017, 20:24

    O fórum agradece o retorno.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    maguim
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 197
    Registrado : 15/05/2013

    Re: [Resolvido]Combo com Msgbox

    Mensagem  maguim em Ter 18 Abr 2017, 20:27

    silvo

    ultima duvida


    o formulario nao esta atualizando a tabela algum pitaco ?

    abraços
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9517
    Registrado : 04/11/2009

    Re: [Resolvido]Combo com Msgbox

    Mensagem  JPaulo em Qua 19 Abr 2017, 11:23

    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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Combo com Msgbox

    Mensagem  Silvio em Qua 19 Abr 2017, 11:49

    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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    maguim
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 197
    Registrado : 15/05/2013

    Re: [Resolvido]Combo com Msgbox

    Mensagem  maguim em Qua 26 Abr 2017, 19:41

    resolvido

      Data/hora atual: Ter 19 Set 2017, 12:45