MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


4 participantes

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

    avatar
    caladol
    Novato
    Novato


    Respeito às regras : 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 Empty [Resolvido]Dúvida código VBA - aplicação do If

    Mensagem  caladol 22/11/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
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Celso Roberto 22/11/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


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



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


    Respeito às regras : 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 Empty Re: [Resolvido]Dúvida código VBA - aplicação do If

    Mensagem  caladol 22/11/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
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Celso Roberto 22/11/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


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    Caio
    Caio
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Caio 22/11/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
    avatar
    caladol
    Novato
    Novato


    Respeito às regras : 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 Empty Re: [Resolvido]Dúvida código VBA - aplicação do If

    Mensagem  caladol 23/11/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
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Celso Roberto 23/11/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


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Noobezinho 23/11/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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    caladol
    Novato
    Novato


    Respeito às regras : 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 Empty Re: [Resolvido]Dúvida código VBA - aplicação do If

    Mensagem  caladol 24/11/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
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Noobezinho 24/11/2016, 09:14

    Que ótimo Lucas.



    Valeu o retorno!


    Boa sorte!



    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Celso Roberto 24/11/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


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Noobezinho 24/11/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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Celso Roberto 24/11/2016, 19:07

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

    Abraços


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



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

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 18:15