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
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
0