Array
(
    [0] => stdClass Object
        (
            [Votos_Balanceados] => 1
            [id] => 560158
            [titulo] => MessageBox.Show - mensagens de erro/avisos
            [dataCadastro] => DateTime Object
                (
                    [date] => 2016-08-10 22:58:29
                    [timezone_type] => 3
                    [timezone] => America/Sao_Paulo
                )

            [isFirstPost] => -1
            [idUsuario] => 377794
            [status] => A
            [isExample] => 
            [NomeUsuario] => Anderson Clavico Moreira
            [Apelido] => 
            [Foto] => 
            [Conteudo] => 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;.

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

MessageBox.Show - mensagens de erro/avisos

Welington
   - 26 jul 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)
#Código

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:
#Código
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?

Post mais votado

Anderson Moreira
|
MVP
Pontos: 205
    10 ago 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;.

#Código

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