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?

Welington

Curtir t�pico + 0

Responder

Post mais votado

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

Gostei + 1