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

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

Olá..

Seja bem vindo ao Fórum

Tente

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

Aguardo Retorno

Abraços

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.


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

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

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

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

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

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, muito obrigado!

O seu código deu certo aqui.



Valeu pela ajuda, pessoal.
Problema resolvido

Que ótimo Lucas.



Valeu o retorno!


Boa sorte!

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

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

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

Abraços