Access - Crear boton de busqueda

Private Sub boton_buscar ()

  'Declaramos las variables necesarias para la busqueda

  Dim busqueda as string

  Dim resultado as boolean

  'Realizamos la busqueda con un Imputbox

  busqueda = Imputbox ("Por favor ingrese el dato que esta buscando")

    Dlookup ["tabla1",'"campo1'"= busqueda"] 'Realizas la busqueda con un DLOOKUP

   If resultado = false then 'Si el resultado queda en nada entonces cerrar el formulario actual y abrir el que debes ingresar los nuevos datos

   Docmd.close

   Openform "Formulario1"

   End If

End sub

Private Sub Command5_Click()

  Dim busqueda As String

  Dim resultado As Boolean

  'Realizamos la busqueda con un Imputbox

  busqueda = InputBox("Por favor ingrese el dato que esta buscando")

    resultado = DLookup("Cedula", "Persona", "Cedula" = busqueda)

    'Realizas la busqueda con un DLOOKUP

   If resultado = False Then 'Si el resultado queda en nada entonces cerrar el formulario actual y abrir el que debes ingresar los nuevos datos

   DoCmd.Close

   DoCmd.OpenForm "F_ingreso"

   End If

End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'BUSQUEDA DE VALORES EN FORMULARIO POR MEDIO DE CODIGO

'Creado por: Edson Cruz

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''´

'Primero vamos asociar este codigo a un boton que llamaremos "Buscar" por ejemplo

Private Sub Command5_Click()

On Error Resume Next

    'Declaramos las viriables para esta funcion

    Dim busqueda As String

    Dim resultado As String

'---------------------------------------------------------------------------------

'USAREMOS UN CUADRO DE TEXTO DONDE INGRESAREMOS EL VALOR A BUSCAR EN EL FORMULARIO

'---------------------------------------------------------------------------------

    busqueda = Me.cuadro_de_busqueda.Value

        'En caso de que el usuario no agregue nada al cuadro de busqueda, se le dira que repita la busqueda

        If busqueda = "" Then

            MsgBox "Por favor, primero ingrese el valor a buscar", vbExclamation, "Error de busqueda"

                'Los mandamos a la salida

                GoTo salida

        Else

        'Le pedimos que busque el valor (que haga match con el ingresado) y que lo almacene en la variable "resultado"

        resultado = DLookup("[Nombre_de_valor_buscado]", "Nombre_de_la_tabla", "[Nombre_de_valor_buscado]='" & busqueda & " ' ")

        'Abrimos el formulario "F_ingreso" con el registro que hace match con el valor que ingresamos en el cuadro de busqueda

        'Ojo, con este punto, espero que comprendas que el valor a buscar debe de ser uno que sea sin duplicados, por que lo que

        'estamos haciendo es una busqueda no un filtro, entonces deberia de usarse algo irrepetible, por ejemplo tu numero de ID

        DoCmd.OpenForm "F_ingreso", , , "[Nombre_de_valor_buscado] = " & resultado, , acWindowNormal

        'Lo que hacemos aqui es cerrar el formulario donde estaba el cuadro de busqueda

        DoCmd.Close acForm, "Nombre_del_formulario1"

        End If

salida:

End Sub