fazer If.. else..end if- 2 false e 1 verdadeiro


	Fórum
	Visual Basic

Responder

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

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

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

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 »