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]Erro Select Case

    Compartilhe

    braine
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 67
    Registrado : 16/01/2014

    [Resolvido]Erro Select Case

    Mensagem  braine em Qui 20 Jul 2017, 20:01

    Mas uma vez recorro aos colegas para resolver um erro o qual não acho o problema.

    Estou usando a função SELECT CASE para verificar se a quantidade "Entregue" ao lançar uma nota não e maior que a quantidade a entregar.

    Exemplo:


    Quantidade a entregar = 200

    Se lanço na entregue os valores 1,2 passa normal

    de 3 ate 9 acusa maior.

    de 10 a 20 passa de 21 a 99 acusa maior.

    Sei que o erro deve estar bem provavelmente na formatação dos campos que não são acoplados.

    Segue o código abaixo.



    Private Sub entregue_Exit(Cancel As Integer)

    'Verifica se a quantidade entregue foi lançada corretamente

    Select Case entregue
    Case Is = 0
    MsgBox "Entre com a quantidade entregue!", vbExclamation, "Controle de Empenhos"
    Cancel = True
    Me.entregue = Null
    Me.entregue.SetFocus

    Case Is > Aentregar
    MsgBox "Quantidade entregue maior que o Saldo do Empenho!", vbExclamation, "Controle de Empenhos"
    Cancel = True
    Me.entregue = Null
    Me.entregue.SetFocus

    End Select
    End Sub




    E quando o campo fica em branco e não pode tenho que usar o código abaixo. Gostaria de usar Select Case também mas não funciona

    Private Sub entregue_GotFocus()
    If IsNull(Me.Item) Then

       MsgBox "Informe o codigo do Item.", vbCritical, "Item"
       Me.Item.SetFocus
       Exit Sub
           
    End If
    End Sub
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6505
    Registrado : 05/11/2009

    Re: [Resolvido]Erro Select Case

    Mensagem  Alexandre Neves em Qui 20 Jul 2017, 20:23

    Boa tarde,
    Tente
    Código:
    Select Case val(entregue)
        Case Is = 0
        MsgBox "Entre com a quantidade entregue!", vbExclamation, "Controle de Empenhos"
        Cancel = True
        Me.entregue = Null
        Me.entregue.SetFocus
    Case Is > val(Aentregar)
        MsgBox "Quantidade entregue maior que o Saldo do Empenho!", vbExclamation, "Controle de Empenhos"
        Cancel = True
        Me.entregue = Null
        Me.entregue.SetFocus
    End Select


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    braine
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 67
    Registrado : 16/01/2014

    Re: [Resolvido]Erro Select Case

    Mensagem  braine em Qui 20 Jul 2017, 20:38

    Funcionou

    Continuo com o erro quando e "nulo"

    Esqueceu de lançar pedir para lançar.

    tenho colocado o código:

    If IsNull(Me.entregue) Then

    MsgBox "Informe a quantidade entregue!!!.", vbCritical, "Entregue"
    Me.entregue.SetFocus
    Exit Sub

    End If

    Que dai não da erro

    braine
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 67
    Registrado : 16/01/2014

    Re: [Resolvido]Erro Select Case

    Mensagem  braine em Qui 20 Jul 2017, 21:29

    Vou dar como encerrado

    Obrigado pela ajuda Alexandre Neves

    Deus abençoe!!!

      Data/hora atual: Ter 21 Nov 2017, 21:07