MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Dúvida código VBA - aplicação do If

    Compartilhe

    caladol
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 10/10/2016

    [Resolvido]Dúvida código VBA - aplicação do If

    Mensagem  caladol em Ter 22 Nov 2016, 10:50

    Bom dia,
    Estou com duvida no seguinte código abaixo:
    No último If era para o programa fazer a comparação, e caso a qtdeentrada fosse maior ou igual a qtdepedida.
    Era para mudar o status do pedido para encerrado. Porém, o código muda para encerrado independente do valor que eu coloque.

    Private Sub Comando98_Click()

       If IsNull(Me.qtdeentrada) Then
       MsgBox "Campo obrigatório vazio!", vbExclamation, "Campo obrigatório"
       Cancel = True
       Me.qtdeentrada.SetFocus
       
       Else
       DoCmd.SetWarnings False
       DoCmd.RunSQL ("update Cadastro_Itens set Qtde = (Qtde+(Formulários![formEntradaMaterial]![qtdeentrada]))where Cadastro_Itens.Código =(Formulários![formEntradaMaterial]![Combinação12]);")
       MsgBox "A entrada do material foi feita com sucesso", vbInformation, "Entrada Concluída"
       MsgBox qtdepedido
           If qtdeentrada >= qtdepedido.value Then
           Me.Status = "Encerrado"
           End If
       End If

    End Sub

    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 543
    Registrado : 01/03/2014

    Re: [Resolvido]Dúvida código VBA - aplicação do If

    Mensagem  Celso Roberto em Ter 22 Nov 2016, 14:54

    Olá..

    Seja bem vindo ao Fórum

    Tente

    If Me.qtdeentrada >= Me.qtdepedido Then
    Me.Status = "Encerrado"
    End If

    Aguardo Retorno

    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

    caladol
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 10/10/2016

    Re: [Resolvido]Dúvida código VBA - aplicação do If

    Mensagem  caladol em Ter 22 Nov 2016, 16:21

    Oi, Boa tarde Celso
    De antemão, obrigado pela sugestão.
    Porém, o código que você sugeriu gera o mesmo problema de mostrar encerrado para qualquer caso.
    Neutral

    Código sugerido:
    If Me.qtdeentrada >= Me.qtdepedido Then
    Me.Status = "Encerrado"
    End If

    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 543
    Registrado : 01/03/2014

    Re: [Resolvido]Dúvida código VBA - aplicação do If

    Mensagem  Celso Roberto em Ter 22 Nov 2016, 16:36

    Olá..

    Então verifique os nomes corretos dos campos.
    E como você esta fazendo uma atualização na tabela, faça um Me.Requery ou Me.Refresh antes do If

    Aguardo
    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Dúvida código VBA - aplicação do If

    Mensagem  Caio em Ter 22 Nov 2016, 17:30

    Teste:

    Sug: 1
    Código:
    If Me.qtdeentrada >= Me.qtdepedido Then
          Me.Status = "Encerrado"
          End If

    Sug: 2

    Código:
    If qtdeentrada.value >= qtdepedido.value Then
          Me.Status = "Encerrado"
    Else
    Exit Sub
    Cancel = true
          End If

    caladol
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 10/10/2016

    Re: [Resolvido]Dúvida código VBA - aplicação do If

    Mensagem  caladol em Qua 23 Nov 2016, 16:14

    Boa tarde, Celso e Caio.

    Primeiramente, coloquei um Me.Refresh, antes do If e chequei os campos.
    Também tentei as sugestões do Caio, porém sem sucesso até o momento.

    O código que estou utilizando no momento:

    Private Sub Comando98_Click()

    If IsNull(Me.qtdeentrada) Then
    MsgBox "Campo obrigatório vazio!", vbExclamation, "Campo obrigatório"
    Cancel = True
    Me.qtdeentrada.SetFocus

    Else
    DoCmd.SetWarnings False
    DoCmd.RunSQL ("update Cadastro_Itens set Qtde = (Qtde+(Formulários![formEntradaMaterial]![qtdeentrada]))where Cadastro_Itens.Código =(Formulários![formEntradaMaterial]![Combinação12]);")
    MsgBox "A entrada do material foi feita com sucesso", vbInformation, "Entrada Concluída"
    Me.Refresh
    If Me.qtdeentrada >= Me.qtdepedido Then
    Me.Status = "Encerrado"
    Me.Texto101 = Now()
    End If
    End If
    End Sub

    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 543
    Registrado : 01/03/2014

    Re: [Resolvido]Dúvida código VBA - aplicação do If

    Mensagem  Celso Roberto em Qua 23 Nov 2016, 17:30

    Olá...
    Anexe sua Bd com as partes envolvidas para poder analisar o problema.
    Detalhe o passo a passo como voce faz os lançamentos.

    Aguardamos

    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2516
    Registrado : 29/06/2012

    Re: [Resolvido]Dúvida código VBA - aplicação do If

    Mensagem  Noobezinho em Qua 23 Nov 2016, 20:39

    Lucas

    Antes de enviar o BD , teste isso:



    Private Sub Comando98_Click()

    dim qtdEntrada as long, qtdPedido as long


    If IsNull(Me.qtdeentrada) Then
      MsgBox "Campo obrigatório vazio!", vbExclamation, "Campo obrigatório"
      Cancel = True
      Me.qtdeentrada.SetFocus

    Else
      DoCmd.SetWarnings False
      DoCmd.RunSQL ("update Cadastro_Itens set Qtde = (Qtde+(Formulários![formEntradaMaterial]![qtdeentrada]))where      Cadastro_Itens.Código =(Formulários![formEntradaMaterial]![Combinação12]);")
      MsgBox "A entrada do material foi feita com sucesso", vbInformation, "Entrada Concluída"
      Me.Refresh

      qtdEntrada = Me.qtdeentrada
      qtdPedido = Me.qtdepedido


      If qtdEntrada >= qtdPedido Then
         Me.Status = "Encerrado"
         Me.Texto101 = Now()
      End If
    End If
    End Sub

    O que fiz: Criei duas variável valor numérico long e atribui a elas os respectivos valores.

    então fiz a comparação entre as duas variáveis.

    *Como pode notar, apenas digitei.

    Veja se funfa !

    [ ]'s


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    caladol
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 10/10/2016

    Re: [Resolvido]Dúvida código VBA - aplicação do If

    Mensagem  caladol em Qui 24 Nov 2016, 02:18

    Noobezinho, muito obrigado!

    O seu código deu certo aqui.
    Very Happy Very Happy Very Happy Very Happy Very Happy


    Valeu pela ajuda, pessoal.
    Problema resolvido

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2516
    Registrado : 29/06/2012

    Re: [Resolvido]Dúvida código VBA - aplicação do If

    Mensagem  Noobezinho em Qui 24 Nov 2016, 09:14

    Que ótimo Lucas.



    Valeu o retorno!


    Boa sorte!



    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 543
    Registrado : 01/03/2014

    Re: [Resolvido]Dúvida código VBA - aplicação do If

    Mensagem  Celso Roberto em Qui 24 Nov 2016, 18:23

    Ola...

    Noobezinho, eu ainda não passei por uma situação igual a esta, pois todas vezes que precisei fazer este tipo de comparação eu resolvi da forma como postei.
    Aprendi mais uma, mas além de aprender eu gostaria de entender.
    Se for possivel gostaria que me explicasse porque se comparar os campos não da o resultado e se comparar as variáveis dá o resultado?.
    E se o amigo caladol puder anexar as partes envolvidas para que eu possa fazer os testes, isto porque não tenho nenhum BD com este problema.

    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2516
    Registrado : 29/06/2012

    Re: [Resolvido]Dúvida código VBA - aplicação do If

    Mensagem  Noobezinho em Qui 24 Nov 2016, 18:58

    Celso

    Olha, se esperava uma resposta técnica, sinto, mas não tenho.

    E acredito que nem o tio Bill, saiba.

    Mas, eu acredito que o Access seja mais eficiente utilizando o código VBA.

    Acredito também, que isso aconteça justamente pelo fato dele ser "traduzido", a exemplo

    disso, veja a diferença de uma função no VBA e a mesma sendo utilizado ou numa caixa de texto

    ou numa consulta: Sum() =Soma(), DCount() = DContar().

    Pode ser que no Access em Inglês isso não aconteça, pois se usa o mesmo código em todo o access.

    E também pode ser que aconteça em algumas versões e em outras, não.

    Não achei nada que explicasse isso na web.

    [ ]'s


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 543
    Registrado : 01/03/2014

    Re: [Resolvido]Dúvida código VBA - aplicação do If

    Mensagem  Celso Roberto em Qui 24 Nov 2016, 19:07

    Olá..
    Mesmo assim não deixa de ser um aprendizado, já guardei esta para quando precisar

    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

      Data/hora atual: Sab 10 Dez 2016, 04:57