Access - Error en busqueda

 
Vista:

Error en busqueda

Publicado por Cristal Vasquez (87 intervenciones) el 27/03/2006 22:34:05
Hola, tengo un pequeño formulario donde quiero que me digite un codigo para una busqueda y que en el evento clic de un botón que posee, me muestre la información correspondiente a ese codigo que digité en un otro formulario, no se si es que me estoy refririendo mal al formulario o que pero no me funciona.

El pequeño formulario es asi: Digite el codigo que desea modificar: (campo donde digital el codigo) y un BOTON DE BUSCAR. En el evento Clic de este boton tengo el siguiente codigo: (el otro formulario se llama MODIFICAR)

Private Sub btnbuscar_Click()

Dim codigoSer As String
Dim buscar As String



If IsNull(Form![Modificar]![txtbuscar]) Or (Form![Modificar]![txtbuscar]) = "" Then
MsgBox "Por favor digite el Nro. del Servicio que desea modificar ", vbOKOnly, "Ingreso de Nro. de Servicio!"
Form![Modificar]![txtbuscar].SetFocus
Exit Sub
End If

DoCmd.ShowAllRecords 'busca todos lo registros
DoCmd.GoToControl ("Form![Modificar]![txtservicionro]") ''va al control base de la busqueda
DoCmd.FindRecord Form![Modificar]![txtbuscar]


Form![Modificar]![txtservicionro].SetFocus
codigoSer = Form![Modificar]![txtservicionro].Text
Form![Modificar]![txtbuscar].SetFocus
buscar = Form![Modificar]![txtbuscar].Text


'pregunta si el codigo existe, si existe muestra toda la información referente a ese código
If codigoSer = buscar Then
Form![Modificar]![txtservicionro].SetFocus
Form![Modificar]![txtbuscar] = ""

'Si el codigo no existe saldrá un mensaje de error
Else
MsgBox "El Nro. del Servicio que digito no existe: " & strSearch & " - Por favor intentelo de nuevo.", _
, "Servicio Invalido!"
Form![Modificar]![txtbuscar].SetFocus
End If

End Sub
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