MessageBox.Show - mensagens de erro/avisos

26/07/2016

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
		MessageBox.Show("Esse item já está cadastrado!" , "ATENÇÃO!" , MessageBoxButtons.OK, MessageBoxIcon.Error)
		txtProduto.Text = " "
		txtProduto.Focus()
	End if
	dr.Close()
End if


A ideia é que a mensagem aparecesse assim:

MessageBox.Show("Esse item já está cadastrado!", "local x" , "pasta y", "ATENÇÃO!" , MessageBoxButtons.OK, MessageBoxIcon.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.

Tem como fazer isso?

Melhor resposta

10/08/2016

Boa noite,
Acredito que vc saiba como verificar se ja foi cadastrado, basta nessa verificação vc retornar o local para uma variavel caso exista e concatenar na msg. EX;.

Dim localx as String
localx = "caminho"
MessageBox.Show("Esse item já está cadastrado!" & vbnewline & localx , "ATENÇÃO!" , MessageBoxButtons.OK, MessageBoxIcon.Error)

Anderson Moreira

Responder Citar