Visual Basic.NET - Arreglar codigo

 
Vista:

Arreglar codigo

Publicado por Ramiro (2 intervenciones) el 15/04/2010 01:32:49
Hola a todos, en el evento KeyPress de un TextBox tengo el siguiente codigo

e.Handled = Numeros(Me.TB_ID.Text, e.KeyChar, False) 'Funcion que valida solo números enteros

If Not Me.TB_ID.Text = "" And e.KeyChar = Chr(13) Then
IdBindingSource.Filter = "ID = " & Me.TB_ID.Text
Else
If Me.TB_ID.Text = "" And e.KeyChar = Chr(13) Then
Tablas.Show()
End If
End If
End Sub

Este codigo funciona perfectamente, cuando el TextBox esta vacío me abre el formulario Tablas y cuando coloco un valor numerico me filtra todo el formulario, hasta aca todo perfecto. Ahora lo que necesito es que me tire un MsgBox para que cuando no se encuentre ningun registro con el número ingresado (No se puede filtrar el formulario) me devuelva el MsgBox con el aviso, pero no se como adaptarlo al codigo que les pase. Necesitaría que alguien me lo pueda adaptar de tal manera que siga funcionando todo lo anterior.
Muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Arreglar codigo

Publicado por Llaverin (22 intervenciones) el 15/04/2010 13:20:28
Hola Ramiro,
No se si te refieres a esto
If Not Me.TB_ID.Text = "" And e.KeyChar = Chr(13) Then
IdBindingSource.Filter = "ID = " & Me.TB_ID.Text
ElseIf Me.TB_ID.Text = "" And e.KeyChar = Chr(13) Then
Tablas.Show()
Else
Msgbox "El aviso que quieras poner"
End If

No se si es lo que estas buscando

Saludos
Llaverin
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Arreglar codigo Para Llaverin

Publicado por Ramiro (2 intervenciones) el 16/04/2010 02:04:11
Hola Llaverin, el codigo que me pasaste no me funciono, lo que necesito es esto

Si doy ENTER y el TextBox esta vacio entonces que se abra el formulario Tablas
Si doy ENTER y el TextBox no esta vacio, es decir coloque un número que se filtre el formulario de esta manera con esta linea de codigo

IdBindingSource.Filter = "ID = " & Me.TB_ID.Text

Ahora supongamos que coloco un número que no existe, es decir en la tabla no existe un registro con el nro ingresado, entonces no se va a filtrar, que me lo informe con un MsgBox.

Espero tu ayuda
Muchas gracias por todo
Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar