MsgBox
Publicado por Alejandro (1 intervención) el 12/04/2010 02:51:26
Hola a todos, en el evento KeyPress de un TextBox tengo el siguiente codigo
e.Handled = Numeros(Me.TB_NroProvincia, e.KeyChar, False)
If Not Me.TB_NroProvincia.Text = "" And e.KeyChar = Chr(13) Then
ProvinciasBindingSource.Filter = "Codigo = " & Me.TB_NroProvincia.Text
Else
If Me.TB_NroProvincia.Text = "" And e.KeyChar = Chr(13) Then
Consultas.Show()
End If
End If
End Sub
Este codigo funciona perfectamente, cuando el TextBox esta vacío me abre el formulario Consultas 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 puedo 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 que anteriormente mencione.
Muchas gracias
e.Handled = Numeros(Me.TB_NroProvincia, e.KeyChar, False)
If Not Me.TB_NroProvincia.Text = "" And e.KeyChar = Chr(13) Then
ProvinciasBindingSource.Filter = "Codigo = " & Me.TB_NroProvincia.Text
Else
If Me.TB_NroProvincia.Text = "" And e.KeyChar = Chr(13) Then
Consultas.Show()
End If
End If
End Sub
Este codigo funciona perfectamente, cuando el TextBox esta vacío me abre el formulario Consultas 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 puedo 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 que anteriormente mencione.
Muchas gracias
Valora esta pregunta
0