¿Mensaje de error si no existe el registro en la Base?

Tengo un formulario donde ingreso datos. Y en otro formulario consulto a travez de un TextBox1 los datos que ingrese

Lo que necesito es que cuando ingrese el dato en el texBoxt1 y no exista me diga que el datro no existe en la base. Y si si pues que haga la consulta

1 respuesta

Respuesta

[Hola 

prueba así

Private Sub CommandButton1_Click()
'
    col = "A" ' columna a buscar
    Set r = Columns(col)
    Set b = r.Find(TextBox1, lookat:=xlWhole)
    If Not b Is Nothing Then
        'encuentra los datos
        f = b.Row
        TextBox2 = Cells(f, "B")
    Else
    MsgBox "No existe en la base de datos"
    End If
End Sub

'Aquí especificamos que si aprietan el botón y no hay nada deben ingresar algo en el textBox
If Me.txt_Buscar.Value = Empty Then
MsgBox "Escriba un id para buscar"
Me.ListBox1.Clear
Me.txt_Buscar.SetFocus
Exit Sub
End If

Quería modificar este código, de manera que si ingreso un dato de consulta y no esta en mi base me diga que no esta y no que me diga que esta mal mi código

Tu código está bien para validar solo textbox, sería bueno que pongas el código de búsqueda adaptarlo a tu necesidad

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Tengo una base de datos en access para cobrar cuotas

En la cual genere formulario que muestra un resumen de las cuotas pagadas ¿Cómo puedo enviar cada formulario por mail?
2 respuestas

Tengo una duda access 2010 Reporte vba

Tengo la siguiente sintaxis para filtrar un reporte pero no se filtra no se que tenga mal. DoCmd.OpenReport "ALLM2CONTEDOR", acViewPreview, "FECHA = #" & Format(Me.FECHAOK, "mm-dd-yyyy") & " # AND CONTENEDOR= " & Me.NUMEROCONTENEDOR.Column(1) & ""...
2 respuestas

No encuentro como usar bien la función sumar.si

He probado con el sumar. Si, y no encuentro la fórmula para que, en D1, me de la suma de B7:B18, sumada a la D7:D18, mientras que el mes de las celdas A7:A18 sea igual a Marzo. Y que en D2 hiciera lo mismo, pero para el mes de abril. Muchas gracias
1 respuesta

Buscar un valor que coincida con dos nombres y en diferentes tablas

Necesito buscar un valor que proviene de una tabla dinámica que se va actualizando por mes y tiene dos características y buscar el valor en diferentes tablas.
Sin respuestas

Buscar un valor en un rango que coincida con dos nombres y en diferentes tablas

Necesito buscar un valor que viene de una tabla dinámica con dos características y hay que buscarlo dentro de un rango en diferentes tablas que coincidan con el nombre.
Sin respuestas

Como hacer que un campo de fecha sea numero

Una pregunta tengo un problemita tengo un campo fecha que al exportarlo a excel la fecha de quedar como numero les doy el ejemplo para ver si es posible y como se hace mientras gracias por su atención aquí en ejemplo esta es la fecha que se escribe...
2 respuestas

Buscar valor dentro de un rango inicio y fin Excel

Tengo que obtener el valor en función al nombre y rango. Tengo que buscar primero por nombre, si coincide, ahora tengo que validar si el importe esta dentro de uno de esos rangos, y si lo encuentra me debe traer el VALOR.
2 respuestas

Sumar días laborables a una fecha en excel

Si en la columna B tengo fechas con formato dd/mm/aaa y quiero que en la columna F me salga el resultado de sumar a la fecha de la columna B, 12 días laborables, ¿Qué fórmula debo utilizar? (si es que la hay). Ejemplo: Columna B = 05/02/2024 en la...
2 respuestas

Forma de ampliar datos en excel

En un excel, tengo una columna con varios rangos de años, pero quiero ver de qué forma la puedo "ampliar", lo pongo entre comillas porque ahora lo quiero explicar: En mi columna 1, tengo un rango de años, lo que quiero es que en lugar de que aparezca...
2 respuestas

¿Cómo se puede añadir subformularios a Access?

He creado a través del asistente de formularios de Access un formulario principal con dos subformularios, Pero requiero añadir más subformulario y el asistente no lo permite, he intentado añadirlo pero el problema es que no funcionan de la misma...
4 respuestas