Jump to content
williamjda

Mensagem de Produto não cadastrado

Recommended Posts

williamjda

Amigos boa tarde;

Tenho uma duvida, no meu aplicativo tenho dentro do vb uma dictionary com uma lista de Produtos.

Na textbox Código do produto eu digito o código e o produto aparece na textbox descrição do produto. Porem quero que quando eu digitar um código errado ele me de uma mensagem de Código de Produto não cadastrado. Tenho um código porem ele não esta funcionando.

Como posso consertar isso?

 Private Sub CódigoProdutoTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CódigoProdutoTextBox.TextChanged
        Dim achou As Boolean
        CarregaDados()
        If Len(CódigoProdutoTextBox.Text) >= 5 Then
            DescriçãoProdutoTextBox.Text = produtos.Item(CódigoProdutoTextBox.Text)
            achou = True
        End If

        If achou = False Then
            MsgBox("Código do Produto não Cadastrado", MsgBoxStyle.OkOnly, "INFORMAÇÃO")
        End If
    End Sub

Share this post


Link to post
Share on other sites
Andrepereira9

O que tu estas a fazer é ver se o código digitado tem mais de 5 dígitos.

If Len(CódigoProdutoTextBox.Text) >= 5 Then

Ou seja, ele só te apresenta uma mensagem se introduzires um código com menos de 5 dígitos. Se Tiver mais de 5 dígitos, ele não te diz nada, mesmo que esse código não exista em nenhum lado


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
williamjda

Fiz este código.

Porem mesmo que eu digite o código do meu produto corretamente ele da a mensagem de item não encontrado.

O que esta errado?

Dim achou As Boolean
        If Len(CódigoProdutoTextBox.Text) >= 5 Then
            For t = 1 To 20
                If codigo(t) = CódigoProdutoTextBox.Text Then
                    DescriçãoProdutoTextBox.Text = produtos.Item(CódigoProdutoTextBox.Text)
                    achou = True
                End If
            Next t
            If achou = False Then
                MsgBox("Item não Encontrado", MsgBoxStyle.OkOnly, "INFORMAÇÃO")
            End If
            CódigoProdutoTextBox.Text = ""
        End If

Share this post


Link to post
Share on other sites
williamjda

Amigo consegui fazer o código, masmo assim obrigado pela atenção e pela ajuda;

Segue abaixo o código.

    Private Sub CódigoProdutoTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CódigoProdutoTextBox.TextChanged
        CarregaDados()
        If Len(CódigoProdutoTextBox.Text) = 5 Then
            Try
                DescriçãoProdutoTextBox.Text = produtos.Item(CódigoProdutoTextBox.Text)
            Catch ex As Exception
                MsgBox("Codigo Incorreto, Digite um código Valido!!!")
                CódigoProdutoTextBox.Text = ""
            End Try
        End If
    End Sub

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.