USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  fazer If.. else..end if- 2 false e 1 verdadeiro
Edson479
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 26/12/2007 18:16 hs            
mat_min " minimo no estoque"
mat_est" estoque"
If RS.Fields("mat_min") > RS.Fields("mat_est") Then 'minimo no estoque
            frmError.F.Cls
            frmError.F.Print "O produto, " & RS.Fields("mat_pro")
            frmError.F.Print "O Estoque está no fim, so tem " & RS.Fields("mat_est")
            frmError.Show vbModal
    como faço pra ele trazer quanto o estoque estiver com "0" de estoque
eu fez assim, deu certo mais ele tambem traz esta mensagem quem tem acima do mat_min estoque
    Else
    If RS.Fields("mat_est") > 0 Then
        frmError.F.Cls
        frmError.F.Print "O produto, " & RS.Fields("mat_pro")
        frmError.F.Print "O não tem mais no estoque"
        frmError.Show vbModal
    End If
   
    Exit Sub
    End If
   
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 26/12/2007 19:09 hs            
TA MEIO CONFUSA A COISA AI
 
QUAL A MENSAGEM QUE ELE MOSTRA DE ERRO?
 
O QUE VOCÊ QUER QUE ELE MOSTRE? ESTOQUE = 0?
 
ESPLIQUE UM POUQUINHO MELHOR POR FAVOR
 
ATÉ
   
®ogerVB
OSASCO
SP - BRASIL
ENUNCIADA !
Postada em 26/12/2007 21:13 hs            
Não deveria ser :
    If RS.Fields("mat_est") = 0 Then
        frmError.F.Cls
        frmError.F.Print "O produto, " & RS.Fields("mat_pro")
        frmError.F.Print "O não tem mais no estoque"
        frmError.Show vbModal
    End If
TÓPICO EDITADO
 
Edson479
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 27/12/2007 13:58 hs            

Desculpe, vamos lá na explicação.

campos

mat_min (material mínimo)

mat_est (material estoque)

 

eu fiz outro modelo assim

 

        If RS.Fields("mat_min") > RS.Fields("mat_est") Then ‘pra saber ser o mat_min e menor quer o mat_est

            If RS.Fields("mat_est") = 0 Then ‘ pra saber ser o mat_est esta com 0 no estoque

                frmError.F.Cls

                frmError.F.Print "O produto, " & RS.Fields("mat_pro")

                frmError.F.Print "Não tem mais no estoque"

                frmError.Show vbModal

                Picture1.Enabled = False

            Else

                frmError.F.Cls

                frmError.F.Print "O produto, " & RS.Fields("mat_pro")

                frmError.F.Print "O Estoque está no fim, so tem " & RS.Fields("mat_est")

                frmError.Show vbModal

                Picture1.Enabled = True

            End If

        Else

 

Mais não esta nada muito certo quanto o mat_est esta com 41.......49 ele esta trazendo a mensagem “O Estoque está no fim som tem” ele não deferia traze nem uma mensagem

 

O que eu quero e o seguinte

Quanto eu faço um venda no mat_est ele faz uma consulta no código a cima ele faz uma consulta ser ele tiver com o mat_min” no meu caso com 5” ser ele tiver menos que 5 ele deve trazer está mensagem .

                frmError.F.Cls

                frmError.F.Print "O produto, " & RS.Fields("mat_pro")

                frmError.F.Print "O Estoque está no fim, so tem " & RS.Fields("mat_est")

                frmError.Show vbModal

 

 

E quanto ele o mat_est esteve no 0 ele trazer esta mensagem.

                frmError.F.Cls

                frmError.F.Print "O produto, " & RS.Fields("mat_pro")

                frmError.F.Print "Não tem mais no estoque"

                frmError.Show vbModal

 

e quanto ele esteve acima do mat_min (5) ele não deveria trazer nem uma mesangem.

deu pra enteder agora.

   
Cardoso G
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
ENUNCIADA !
Postada em 27/12/2007 14:29 hs            
faz assim
 
 If RS.Fields("mat_min") > RS.Fields("mat_est") Then ‘pra saber ser o mat_min e menor quer o mat_est

            If RS.Fields("mat_est") = 0 Then ‘ pra saber ser o mat_est esta com 0 no estoque

                frmError.F.Cls

                frmError.F.Print "O produto, " & RS.Fields("mat_pro")

                frmError.F.Print "Não tem mais no estoque"

                frmError.Show vbModal

                Picture1.Enabled = False

           end if

Else

                frmError.F.Cls

                frmError.F.Print "O produto, " & RS.Fields("mat_pro")

                frmError.F.Print "O Estoque está no fim, so tem " & RS.Fields("mat_est")

                frmError.Show vbModal

                Picture1.Enabled = True

End If

 

   
Cardoso G
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
ENUNCIADA !
Postada em 27/12/2007 14:34 hs            

desculpe, fiz errado ai, agora que entendi o que vc quer, faz assim que nao tem erro.

If RS.Fields("mat_est") = 0 Then
                frmError.F.Cls
                frmError.F.Print "O produto, " & RS.Fields("mat_pro")
                frmError.F.Print "Não tem mais no estoque"
                frmError.Show vbModal
                Picture1.Enabled = False
                Exit Sub
End If

If RS.Fields("mat_min") < RS.Fields("mat_est") Then
                frmError.F.Cls
                frmError.F.Print "O produto, " & RS.Fields("mat_pro")
                frmError.F.Print "O Estoque está no fim, so tem " & RS.Fields("mat_est")
                frmError.Show vbModal
                Picture1.Enabled = True
End If

 

   
Página(s): 1/2      PRÓXIMA »

CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página