Modificar codigo de cuadro combinado de busqueda
Publicado por Lucho (4 intervenciones) el 20/04/2008 18:46:49
Ante todo muchas gracias. Soy novato en visual basic y cree un cuadro form de consulta sobre productos con origen de registro, una consulta. En este form agregué un cuadro combinado con la ayuda del asistente el cual me creo el siguiente código:
Private Sub cboNroPro_AfterUpdate()
' Buscar el registro que coincida con el control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[cNumero] = '" & Me![cboNroPro] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
La busqueda funciona muy bien y hace lo que yo esperaba lo que sí que me gustaría que cambien dos cosas: 1) Que al abrir el form, todos los campos me muestren en blanco y no con el contenido del primer registro de mi consulta. 2) Qué si la busqueda con coincide con el control me muestre un mensaje informando. Respecto a este ultimo punto si la busqueda no coincide no muestra nada salta al próximo foco y como pasa lo que apunto en el punto anterior parece como que son los datos de ese registro.
Espero haberme explicado y que me puedan ayudar. Gracias.
Private Sub cboNroPro_AfterUpdate()
' Buscar el registro que coincida con el control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[cNumero] = '" & Me![cboNroPro] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
La busqueda funciona muy bien y hace lo que yo esperaba lo que sí que me gustaría que cambien dos cosas: 1) Que al abrir el form, todos los campos me muestren en blanco y no con el contenido del primer registro de mi consulta. 2) Qué si la busqueda con coincide con el control me muestre un mensaje informando. Respecto a este ultimo punto si la busqueda no coincide no muestra nada salta al próximo foco y como pasa lo que apunto en el punto anterior parece como que son los datos de ese registro.
Espero haberme explicado y que me puedan ayudar. Gracias.
Valora esta pregunta


0