Visual Basic - Boton de BUSCAR

Private Sub btmBuscar_Click()

AQUI FALTA MI CODIGO

End Sub

Private Sub btmSalir1_Click()

End

End Sub

Private Sub Command1_Click()

Data1.UpdateRecord

Data1.Refresh

MsgBox "El Registro ha sido Guardado en la Base de Datos", vbExclamation, "Aviso Importante"

End Sub

Private Sub Command3_Click()

If MsgBox("¿Quieres Eliminar la IP Número: " & Text1 & "?", 16 + 4) = 6 Then

Data1.Recordset.Delete

Data1.Refresh

Text1.SetFocus

MsgBox "Se Eliminó la IP", vbCritical, "Aviso Importante"

Else

MsgBox "No se Eliminó la IP Número: " & Text1, vbExclamation, "Aviso Importante"

End If

End Sub

Private Sub Command4_Click()

Data1.Recordset.AddNew

End Sub

Private sub BUSCAR()

on local error goto et 'Mecanismo para controlar errores

DIM PCIP as string, tmp as string, ID_ACTUAL as integer

PCIP = imputbox("Ingrese la IP de la PC a buscar")

'1- Comprobar que se han ingresado datos

if len(PCIP) =0 then

msgbox"Operación Cancelada: No se ha ingresado ninguna IP para buscar", vbcritical

exit sub

end if

'2- Crear la cadena a buscar

tmp = "IP = '" & PCIP & "'"

'3- Mecanismo de busqueda

ID_actual = data1.bookmark

data1.recordset.FindFirst tmp

exit sub

et: 'Usualmente se produce un error si no encuentra el dato

err.clear

data1.recordset.move ID_actual ' Regresar al registro anterior a que se produjera un error

msgbox"La IP " & PCIP & " no se encuentra registrada en sus sistema".

end sub

Private Sub btmBuscar_Click()

Call BUSCAR

End Sub