Access - Modificar codigo de cuadro combinado de busqueda

 
Vista:

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.
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:Modificar codigo de cuadro combinado de busqued

Publicado por Enrique (1299 intervenciones) el 21/04/2008 19:57:16
Prueba de esta forma, Lucho:

Private Sub Form_Load()
Me.DataEntry = True
End Sub

Private Sub cboNroPro_AfterUpdate()
' Buscar el registro que coincida con el control.
Dim rs As Object
DataEntry = False
Set rs = Me.Recordset.Clone
rs.FindFirst "cNumero ='" & cboNroPro & "'"
If Not rs.NoMatch Then
Me.Bookmark = rs.Bookmark
Else
cboNroPro = Null
DataEntry = True
MsgBox "Registro no encontrado.", vbCritical, "Aviso"
End If
End Sub

Fíjate que he cambiado EOF por NoMatch y he añadido algunas cosillas más.

Un saludo
Enrique
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