none
MsgBox.show - mensagens aviso/erro RRS feed

  • Pergunta

  • O que fiz: Para evitar que seja cadastrado mais de uma vez o mesmo item, no primeiro campo a ser preenchido (nome do produto) se já existir um igual cadastrado é exibida uma mensagem de aviso.
    O que pergunto: É possível colocar dentro dessa mensagem também o local e a pasta onde se encontra esse item que já foi cadastrado? Existem 4 locais e 5 pastas diferentes, então seria necessário que essas informações fossem buscadas automaticamente pelo vb, da mesma forma que ele faz a busca para ver se o item já existe ou não no bd (Access)

    If txtProduto.Text <> " " Then
        consulta(Me.txtProduto.Text)
        If dr.Read Then
            txtProduto.Text = dr(0).ToString
            MsgBox.Show("Esse item já está cadastrado!" , "ATENÇÃO!" , MsgBoxButtons.OK, MsgBoxIcon.Error)
            txtProduto.Text = " "
            txtProduto.Focus()
        End if
        dr.Close()
    End if

    A ideia é que a mensagem aparecesse assim:

    MsgBox.Show("Esse item já está cadastrado!", "local x" , "pasta y", "ATENÇÃO!" , MsgBoxButtons.OK, MsgBoxIcon.Error)

    Sendo que "local x" e "pasta y" refere-se ao local exato onde está cadastrado o item; apenas o 'x' e o 'y' mudariam conforme a busca feita pelo vb que os preencheria automaticamente conforme o local onde está o item.

    Há como fazer isso?

    quinta-feira, 28 de julho de 2016 01:57

Respostas

Todas as Respostas

  • Bom dia,

    Obrigado por sua participação no Fórum MSDN.

    Como esse item foi salvo neste local anteriormente? Talvez você possa usar a forma como o item anterior foi salvo para mostra o local na messagebox.

    MessageBox.Show("O item já existe em " + local)
    Atenciosamente,


    Robson William Silva

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    quinta-feira, 28 de julho de 2016 13:19
    Moderador
  • Boa tarde,

    Então, seria o local onde foi feito o Insert? 

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    
     conecta()
     Me.Tabela1TableAdapter.Fill(Me.DataSetProdutos.Tabela1)
     Me.BindingSource1.AddNew()
    
    End sub
    
    Private Sub btnSalvar_Click(sender As Object, e As EventArgs) Handles btnSalvar.Click 
    
    If txtNome.Text = "" Then
    
     MsgBox.Show("Digite o nome do Produto!", "ATENÇÃO!", MessageBoxButtons.OK, MessageBoxIcon.Error) 
     txtNome.Focus()
    
     Return 
    
    End If
    
    ...
    try
    
     Me.Tabela1TableAdapter.Insert(txtNome.Text, txtCodigo.Text, txtLocal.Text, txtPasta.Text)
     Me.Tabela1TableAdapter.Update(DataSetProdutos.Tabela1)
     Me.Tabela1TableAdapter.Fill(Me.DataSetProdutos.Tabela1)
     txtNome.Text = ""
     txtCodigo.Text = ""
    
     ....
    Catch ex As Exception
    
     Me.Tabela1TableAdapter.Fill(Me.DataSetProdutos.Tabela1)
     txtNome.Focus()
    
    End Try
    dr.Close()
    
    End Sub

    Att

    quinta-feira, 28 de julho de 2016 19:46
  • Bom dia,

    Tente utilizar a propriedade FolderBrowserDialog.SelectedPath

    Atenciosamente,


    Robson William Silva

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    sexta-feira, 29 de julho de 2016 12:50
    Moderador
  • Boa noite,

    Desculpe mas sou noob, não faço ideia do que você está falando! Desenvolvi o programa apenas observando tutoriais. :(

    Se puder exemplificar utilizando o trecho do código que enviei agradeço, pois não encontrei nada a respeito.

    Att

    sexta-feira, 29 de julho de 2016 23:47