CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Necesito arrelar este codigo

(1/1)

PRT147:
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

Shiquilla:
Lo único que se me ocurre es que en vez de mostrar el formulario con el método Show, hicieras lo siguiente en el formulario que muestras:


--- Código: vb.net ---Private msError as String Public sub EditarPropiedades(Byref lsError as String)    msError=""    Me.Show    lsError = msError        Me.DisposeEnd Sub 'En algún evento del formulario, ya sea en el evento Load compruebes si la tabla está vacía, si es así, poner msError = "al Error" y llamar a Me.Close 
Y luego en el código, cambiar tu código por éste:

--- Código: vb.net ---If Not Me.TB_ID.Text = "" And e.KeyChar = Chr(13) Then    IdBindingSource.Filter = "ID = " & Me.TB_ID.TextElse    If Me.TB_ID.Text = "" And e.KeyChar = Chr(13) Then        Dim lsError as String        Tablas.EditarPropiedades(lsError)        If Trim(lsError) <> "" then msgbox(blablalbla)    End IfEnd If 
Lo que no sé es si necesitas que se abra el formulario en modal ... (me da a mi que si)

Espero que te sirva de ayuda. Un saludo

nikitocba:
si te filtra todo el formulario, fijate q puede ser que le estas haciendo binding al formulario completo no al control q vos queres...

Navegación

[0] Índice de Mensajes