Erro na validação

[hypz]

Bons dias, está a dar o mesmo erro da outra vez, se eu tirar a validação do errorprovider eu consigo eliminar e guardar, mas se deixar as validações ele não grava o que elimina.

Private Sub UtilizadorBindingNavigatorSaveItem_Click(sender As System.Object, e As System.EventArgs) Handles UtilizadorBindingNavigatorSaveItem.Click
	Me.Validate()
	If (Cod_CartaoTextBox.Text.Trim().Length = 0) Then
		ErrorProvider1.SetError(Cod_CartaoTextBox, "Insira o Código do Cliente.")
		Exit Sub
	Else
		ErrorProvider1.SetError(Cod_CartaoTextBox, "")
	End If

	If (Nick_UtilizadorTextBox.Text.Trim().Length = 0) Then
		ErrorProvider1.SetError(Nick_UtilizadorTextBox, "Insira o Nickname do Cliente.")
		Exit Sub
	Else
		ErrorProvider1.SetError(Nick_UtilizadorTextBox, "")
	End If

	If (Nome_UtilizadorTextBox.Text.Trim().Length = 0) Then
		ErrorProvider1.SetError(Nome_UtilizadorTextBox, "Insira o Nome do Cliente.")
		Exit Sub
	Else
		ErrorProvider1.SetError(Nome_UtilizadorTextBox, "")
	End If

	If (BITextBox.Text.Trim().Length = 0) Then
		ErrorProvider1.SetError(BITextBox, "Insira o Bilhete de Identidade do Cliente.")
		Exit Sub
	Else
		ErrorProvider1.SetError(BITextBox, "")
	End If

	If (Numero_ContribuinteTextBox.Text.Trim().Length = 0) Then
		ErrorProvider1.SetError(Numero_ContribuinteTextBox, "Insira o Número de Contribuinte do Cliente.")
		Exit Sub
	Else
		ErrorProvider1.SetError(Numero_ContribuinteTextBox, "")
	End If

	If (MoradaTextBox.Text.Trim().Length = 0) Then
		ErrorProvider1.SetError(MoradaTextBox, "Insira a Morada do Cliente.")
		Exit Sub
	Else
		ErrorProvider1.SetError(MoradaTextBox, "")
	End If

	If (Cod_PostalTextBox.Text.Trim().Length = 0) Then
		ErrorProvider1.SetError(Cod_PostalTextBox, "Insira o Código Postal do Cliente.")
		Exit Sub
	Else
		ErrorProvider1.SetError(Cod_PostalTextBox, "")
	End If

	If (Cod_TipoCartaoTextBox.Text.Trim().Length = 0) Then
		ErrorProvider1.SetError(Cod_TipoCartaoTextBox, "Insira o Tipo de Cartão do Cliente.")
		Exit Sub
	Else
		ErrorProvider1.SetError(Cod_TipoCartaoTextBox, "")
	End If

	If (Montante_DisponivelTextBox.Text.Trim().Length = 0) Then
		ErrorProvider1.SetError(Montante_DisponivelTextBox, "Insira o Montante do Cliente.")
		Exit Sub
	Else
		ErrorProvider1.SetError(Montante_DisponivelTextBox, "")
	End If

	If (LoginTextBox.Text.Trim().Length = 0) Then
		ErrorProvider1.SetError(LoginTextBox, "Insira o Login do Cliente.")
		Exit Sub
	Else
		ErrorProvider1.SetError(LoginTextBox, "")
	End If

	If (PasswordTextBox.Text.Trim().Length = 0) Then
		ErrorProvider1.SetError(PasswordTextBox, "Insira a Password do Cliente.")
		Exit Sub
	Else
		ErrorProvider1.SetError(PasswordTextBox, "")
	End If

	If (EmailTextBox.Text.Trim().Length = 0) Then
		ErrorProvider1.SetError(EmailTextBox, "Insira o Email do Cliente.")
		Exit Sub
	Else
		ErrorProvider1.SetError(EmailTextBox, "")
	End If
	ErrorProvider1.Clear()
	Me.UtilizadorBindingSource.EndEdit()
	Me.TableAdapterManager.UpdateAll(Me.PapBDDataSet)

Está aqui o código, sinceramente não sei o que está mal..

Edited May 31, 2012 at 10:13 AM by Caça
GeSHi

[Caça]

Mas está a dar algum erro?

[hypz]

Agora nem sequer está a gravar o que eu adiciono, já não percebo nada disto..

Não dá erros, mas não grava o que eu faço ..

Sempre que mudo a imagem do icone ele para de gravar as eliminações, porque ?

Edited May 31, 2012 at 10:28 AM by hypz

[Caça]

Mas está a passar em todas as validações?

[hypz]

Sim, estou .. Ele quando mudo a imagem do icone de gravar é que para de gravar as eliminações que faço..

Será que tenho que por isto ?

Cod_CartaoTextBox.ReadOnly = False
	Nome_UtilizadorTextBox.ReadOnly = False
	Nick_UtilizadorTextBox.ReadOnly = False
	EmailTextBox.ReadOnly = False
	Cod_TipoCartaoTextBox.ReadOnly = False
	Montante_DisponivelTextBox.ReadOnly = False
	LoginTextBox.ReadOnly = False
	PasswordTextBox.ReadOnly = False
	BITextBox.ReadOnly = False
	Numero_ContribuinteTextBox.ReadOnly = False
	Cod_PostalTextBox.ReadOnly = False
	MoradaTextBox.ReadOnly = False

Eu tenho isto no botão adicionar mas também tenho que por no gravar ?

Edited May 31, 2012 at 10:37 AM by Caça
GeSHi

[Caça]

Então o problema não está nas validações, mas sim na imagem..

[hypz]

Acabei de mudar a imagem e funciona perfeitamente, eu criei uma form nova e voltei a arrastar os campos todos e já grava o que elimino mesmo com o readonly .. Não sei porque na outra form não funciona ..

Será por ter tudo em tab control ?

Acho que é esse o problema, eu quando ponho os campos num tab control ele para de gravar o que elimina..

Edited May 31, 2012 at 10:36 AM by hypz

[Caça]

Não.

[hypz]

Olha que eu acho que é, eu tirei tudo da tab control e agora já consigo gravar o que elimino, porque ? :S

[Caça]

Se continuar tudo bem configurado tem que funcionar, a não ser que ao mudares de container ele perca algumas configurações...

[hypz]

Não sei, sei que tirei as coisas do tab control e e ele agora grava o que elimino, não faço mesmo ideia do que seja..

[Caça]

Não te sei dizer porquê, eu nuca usei muito isso..

Utilizo Bindings nos objectos para preencher as propriedades das classes por ser mais rápido mas tudo configurado por mim..

[hypz]

Não sei o que é isso , já te disse que sou fraquinho na programação porque ainda só dou visual basic há 1 ano e meio e só agora é que estou a aprender a aprofundar e é no estágio.

Eu como estou a fazer formulários estava a utilizar tab control para separar a informação para não ficar uma form muito grande mas agora que tirei ele já grava tudo que faço. Não sabes o que devo usar para fazer um formulário para não ficar uma form muito grande de informação ?

Mandei-te a imagem por pm para que não haja possibilidades de andar a dar ideias a outros 🙂

Já que tens mais experiencia gostava da tua opinião para a criação de formulários com um bom lay out

Edited May 31, 2012 at 10:57 AM by hypz

[Caça]

Tenta arrastar os campos directamente para o respectivo Tab.

[hypz]

Isso é o que eu faço, eu vou arrastando campo a campo ..

Está dividido em três tabs , e eu arrasto campo a campo para os respectivos ..

Edited May 31, 2012 at 11:01 AM by hypz