Filtros
Publicado por Ramiro (1 intervención) el 07/04/2010 02:10:38
Hola Buenas para todos, tengo el sig. codigo para realizar un filtro en un formulario detalle.
If e.KeyChar = Chr(13) Then
ProvinciasBindingSource.Filter = "Codigo = " & Me.TB_NroProvincia.Text
End If
Con esto digo que luego de colocar un valor numerico al dar Enter me filtra el formulario.
Ahora a este codigo necesito arreglarlo para que cuando doy un ENTER y el TextBox esta vacio me abra el Form2, si no esta vacio y se coloco un numero y luego damos ENTER me lo filtre, pero si con ese numero no existe ningun registro me lo informe mediante un MsgBox.
Antes que nada les comento que el TextBox tiene una funcion para que se pueda ingresar solo numeros.
Muchas gracias de antemano
If e.KeyChar = Chr(13) Then
ProvinciasBindingSource.Filter = "Codigo = " & Me.TB_NroProvincia.Text
End If
Con esto digo que luego de colocar un valor numerico al dar Enter me filtra el formulario.
Ahora a este codigo necesito arreglarlo para que cuando doy un ENTER y el TextBox esta vacio me abra el Form2, si no esta vacio y se coloco un numero y luego damos ENTER me lo filtre, pero si con ese numero no existe ningun registro me lo informe mediante un MsgBox.
Antes que nada les comento que el TextBox tiene una funcion para que se pueda ingresar solo numeros.
Muchas gracias de antemano
Valora esta pregunta


0