[Resolvido]Campo calculado em consulta com varias condições

Bom dia, Pessoal!
Estou aqui de novo para mais uma ajuda. Estou deixando anexo meu projeto.
Preciso criar um campo na minha Con_Soma_Estoque chamado: Situação onde vai me mostrar qual a situação do meu estoque, igual eu tenho no meu projeto do Excel que também estou deixando em anexo para comparação.

Tentei assim: Situacao: somase([Estoque]<=0;"ACABOU";SE([Estoque]<=[Estoque_Maximo]*30/100;"URGENTE";SE([Estoque]<=[Estoque_Maximo]*40/100;"ATENÇÃO";SE([Estoque]>=[Estoque_Maximo]*50/100;"OK";""))))

Porem não da certo na hora de executar a consulta.

Preciso extamente igual esse do Excel mais na consulta do Access

Olá Rionide

Tente criar uma nova coluna chamada "Situacao" na "Tbl_Estoque".

Feito isso, coloque a instrução UPDATE do SQL no botão "Salvar" com base nos seus critérios mencionados.

Bom dia, Cristian Souza!
Agradeço pela resposta.
Me desculpe pela demora em dar a resposta, tive uns problemas estava fora.
Mais uma vez peço desculpa, não entendi a sua dica, o que realmente fazer. Fiz a instrução SQL que ficou assim:

SELECT Con_Soma_Entrada.ID_Estoque, Con_Soma_Entrada.Suprimento, Con_Soma_Entrada.SomaDeQtde_Entrada, Con_Soma_Saida.SomaDeQtde_Saida, [SomaDeQtde_Entrada]-[SomaDeQtde_Saida] AS Estoque, Con_Soma_Entrada.Estoque_Maximo, somase([Estoque]<=0,"ACABOU",SE([Estoque]<=[Estoque_Maximo]*30/100,"URGENTE",SE([Estoque]<=[Estoque_Maximo]*40/100,"ATENÇÃO",SE([Estoque]>=[Estoque_Maximo]*50/100,"OK","")))) AS Situacao
FROM Con_Soma_Saida INNER JOIN Con_Soma_Entrada ON Con_Soma_Saida.ID_Estoque = Con_Soma_Entrada.ID_Estoque;

Agora onde vai UPDATE eu não sei. Me desculpe a ignorância, ainda estou no inicio de meus estudando em access.
Se vocês puder me ajudar com essa questão, depois que estiver pronto eu posto o BD para outras pessoas que quiser um controle de entrada e saída, simples mais funcional.

Veja se atende:

Criei uma coluna na Tbl_Estoque chamada "situacao"

No botão salvar do seu formulário de estoque, inseri o seguinte código:

Código:



    ' Atualizar status
    
    
            'Declaração da variável
            Dim Situacao As String
            
            'Atribuição de valores para a variável
            
            If Me.Txt_Estoque <= "0" Then
                 Situacao = "ACABOU"
            End If
            
            If Me.Estoque <= ((Me.Estoque_Maximo * 30) / 100) And Me.Estoque <> "0" Then
                 Situacao = "URGENTE"
            End If
            
            If Me.Estoque <= ((Me.Estoque_Maximo * 40) / 100) And Me.Estoque <> "0" Then
                 Situacao = "ATENÇÃO"
            End If
            
            If Me.Estoque >= ((Me.Estoque_Maximo * 50) / 100) And Me.Estoque <> "0" Then
                 Situacao = "OK"
            End If
          
            
            'Atualizar registro
            CurrentDb.Execute "UPDATE Tbl_Estoque SET [Situacao]='" & Situacao & "' WHERE [ID_Estoque] = " & Me.Txt_ID_Entrada
            Me.Form.Requery
            Me.ListBox_Estoque_Suprimento.Requery



Bom dia, Cristian Souza!
Muito agradecido pela ajuda, esta funcionado do jeito que vc fez, porem tem alguns erro, por exemplo:
Toner Compativel TN880 = 1 em estoque, era para estar com Situação "URGENTE" esta ATENÇÃO
Cilindro Compativel DR3440 e Amarelo Compativel TN315Y = era para estar com Situação "URGENTE" e esta em branco

E a outra questão é que esta funcionando apenas no Frm_Estoque, não sei se foi eu que fiz errado mais esse Frm_Estoque é só pra alterar Estoque maximo ou acrescentar algum suprimento novo.
As entrada e saída seria feita nos Frm_Entrada e Frm_Saida.
Ate tentei colocar o código no botão salvar nos Frm_Entrada e Frm_Saida mais esta dando erro.

Segue B.D com as Atualizações que fiz.

Se puder me dar mais essa ajuda fico imensamente agradecido.

Olá Rionid

Observe que a situação de alguns campos ficaram em branco pois você não definiu nenhum resultado entre 40% e 50%, veja no código abaixo:

Código:


SE([Estoque][b]<=[Estoque_Maximo]*40/100[/b],"ATENÇÃO",SE([Estoque][b]>=[Estoque_Maximo]*50/100,[/b]"OK",


Referente aos formulários de entrada e saída, tente utilizar o código abaixo no botão salvar do formulário de entrada. Caso atenda, basta adapta-lo para os demais formulários.

Código:


    ' Atualizar status
   
            'Criação da variável
            Dim QuantidadeEmEstoque, EstoqueMaximo
           
            'Verifica quantas peças tem em estoque
           
           
            '---------------------------------------------------------------
           
            Dim seq As String, k
            seq = "[Estoque] & '|' & [Estoque_Maximo]"
            seq = DLookup(seq, "Con_Soma_Estoque", "[ID_Estoque] = " & Me.Txt_ID_Entrada)
            k = Split(seq, "|")
            QuantidadeEmEstoque = k(0)
            EstoqueMaximo = k(1)
           
            'Define a situação conforme a quantidade de peças
           
                        'Declaração da variável
                        Dim Situacao As String
                       
                        'Atribuição de valores para a variável
                       
                        If QuantidadeEmEstoque <= 0 Then
                            Situacao = "ACABOU"
                           
                        ElseIf QuantidadeEmEstoque > 0 And QuantidadeEmEstoque <= ((EstoqueMaximo * 30) / 100) Then
                            Situacao = "URGENTE"
                       
                        ElseIf QuantidadeEmEstoque > ((EstoqueMaximo * 30) / 100) And QuantidadeEmEstoque < ((EstoqueMaximo * 50) / 100) Then
                            Situacao = "ATENÇÃO"
           
                        ElseIf QuantidadeEmEstoque >= ((EstoqueMaximo * 50) / 100) Then
                            Situacao = "OK"
                        End If
   
            'Atualizar registro
            CurrentDb.Execute "UPDATE Tbl_Estoque SET [Situacao]='" & Situacao & "' WHERE [ID_Estoque] = " & Me.Txt_ID_Entrada
            Me.ListBox_Estoque.Requery



Bom dia, Cristian Souza
O codigo do jeito que vc postou no botão salvar do Frm_Entrada não atualiza o campo Situacao, fiz uma alteração de campo:

'Atualizar registro
           CurrentDb.Execute "UPDATE Tbl_Estoque SET [Situacao]='" & Situacao & "' WHERE [ID_Estoque] = " & Me.Txt_ID_Entrada

PARA:

'Atualizar registro
           CurrentDb.Execute "UPDATE Tbl_Estoque SET [Situacao]='" & Situacao & "' WHERE [ID_Estoque] = " & Me.Cbx_Tipo_Suprimento

Assim atualiza o campo Situacao, porem fica errado os resultado do campo Situacao, estou postando novamente meu B.D para verificação.

Boa tarde, Pessoal do forum.
Queria ver com vocês se é possível passar essa condição que posto abaixo do VBA para uma consulta?
Lembrando que tem tudo ai no B.D que já postei na minha resposta anterior a essa.
Esse codigo abaixo esta no Botão Salvar no meu Frm_Estoque, Campo: Situação esta na Tbl_Estoque, porem para ele funcionar do jeito que preciso, se fosse na consulta era o ideal.

Código:

' Atualizar status
   
           'Criação da variável
           Dim QuantidadeEmEstoque, EstoqueMaximo
           
           'Verifica quantas peças tem em estoque
           '---------------------------------------------------------------
           Dim seq As String, k
           seq = "[Estoque] & '|' & [Estoque_Maximo]"
           seq = DLookup(seq, "Con_Suprimento_Soma_Estoque", "[ID_Estoque] = " & Me.Cbx_Suprimento_Entra)
           k = Split(seq, "|")
           QuantidadeEmEstoque = k(0)
           EstoqueMaximo = k(1)
           
           'Define a situação conforme a quantidade de peças
           
                   'Declaração da variável
                   Dim Situacao As String
                       
                       'Atribuição de valores para a variável
                       
                       If QuantidadeEmEstoque <= 0 Then
                           Situacao = "ACABOU"
                       End If
                           
                       If QuantidadeEmEstoque > "0" And QuantidadeEmEstoque <= ((EstoqueMaximo * 30) / 100) Then
                           Situacao = "URGENTE"
                       End If
                           
                       If QuantidadeEmEstoque >= ((EstoqueMaximo * 30) / 100) And QuantidadeEmEstoque < ((EstoqueMaximo * 50) / 100) Then
                           Situacao = "ATENÇÃO"
                       End If
               
                       If QuantidadeEmEstoque >= ((EstoqueMaximo * 50) / 100) Then
                           Situacao = "OK"
                       End If
                       MsgBox (Situacao)
   
       'Atualizar registro
       CurrentDb.Execute "UPDATE Tbl_Suprimento_Estoque SET [Situacao]='" & Situacao & "' WHERE [ID_Estoque] = " & Me.Cbx_Suprimento_Entra

Bom dia, Avelino Sampaio!
Era exatamente o que eu queria, matou a pau, muitíssimo obrigado.
Estou postando novamente meu B.D com as alterações que fiz, alterações somente na apresentação da Listbox, era isso mesmo agora esta do jeito que eu quero, esta ai meu projeto para outras pessoas que queira, só fazer as alterações necessárias.
Projeto simples mais funcional para um controle de entrada e saída de mercadoria, saber em em tempo real na entrada e na saída como esta seu estoque.

Muito obrigado pessoal do forum, pelo apoio.