Msgbox No se encuentra ese registro

Tengo una base de datos en access 2010. Tabla(código Libro) Campo (Codigolibro)

Hice un formulario a través de una consulta

El formularia tengo un texbox (codigolibro) que al introducir el código del libro muestra en el nombre del libro, pero quiero que si el usuario ingresa un numero que no este en la tabla salga un msgbox que diga que ese registro no existe

Probé con este código pero no me funciona no se que estoy haciendo mal

Private Sub Codigolibro_LostFocus()

If IsNull(DLookup("[Codigolibro]", "[Código de libro]", "[Codigolibro]=Form!CodigoLibro.value")) = True Then
MsgBox ("No se encuentra el registro en la Base de Datos.")
Else
DoCmd.OpenForm stDocName,,,[","[Codigolibro]=Form!CodigoLibro.value"
End If
End Sub

Respuesta
1

Así en principio, el DLookup devuelve el valor que coincida con el criterio en caso de encontrarlo, en caso contrario devuelve "null".

Por eso, y sin probarlo, cambia a lo siguiente:

If IsNull(DLookup("[Codigolibro]", "[Código de libro]", "[Codigolibro]=Form!CodigoLibro.value")) then ....

o

If (DLookup("[Codigolibro]", "[Código de libro]", "[Codigolibro]=Form!CodigoLibro.value"))= null

Mira a ver y comentas.

Un saludo y no olvides visitar EL FORO

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Dudas sobre formularios y msgbox al hacer consulta en una base de datos de Microsoft Access

Tengo un formulario y quiero que si busco un campo y no se encuentra me aparezca un msgbox en que diga que no se encuentra el registro. El código que he puesto es este: Dim stDocName As String Dim stLinkCriteria As String stDocName = "LICENCIAS" If...
1 respuesta

Aplicación en access 2007 para el control de usuarios

Este es el código que utilizo para validar el ingreso de los usuarios, a la hora de ingresar necesito que me abra un formulario por cada usuario que tenga registrado en base de datos, ya que cuento con 30 usuarios y un administrador del sistema. Dim...
1 respuesta

Msgbox ségún característica de registros anteriores

Fueron excelentes sugerencias. Como sabes tengo un formulario de facturación para el alquiler de disfraces. Quisiera saber cómo sería un código para que una vez llenado un campo llamado Teléfono, la base de datos me informe si un cliente con el mismo...
1 respuesta

Usuarios e identificación de registros

Nuevamente Tony, recientemente me ayudaste mucho con una pregunta llamada "uso de tablas vinculadas" ( http://bit.ly/hPCTXm ). Comenzaré a utilizar la seguridad por usuarios, ¿Es posible utilizar esta identificación para la actualización de un campo?...
1 respuesta

Como entrar a siguiente formulario filtrando

Después de entrar el usuario y pass, que puedo hacer para que cuando le pique a botón de entrar coja el nombre de usuario "TxtUsuario" y filtre de la tabla "base datos" y el resultado del filtrado me lo presente el el siguiente formulario "base...
1 respuesta

Hola nuevamente, ojalá me puedas ayudar con un error en un código VB en access

El problema es que no me respetando el total de intentos al ingresar una contraseña errónea, automáticamente me saca a la primera, cuando lo debería hacer al tercer intento, aquí va el código y gracias: Option Compare Database Option Explicit Dim...
2 respuestas

Abrir formulario según condición

Tengo un combobox (IdEmpleadoBox) que uso para elegir a los empleados. Toma los valores de una tabla "ListadoEmpleados" y recoge el valor del campo [REG]. Tengo otra tabla "Empleados" donde recojo las entradas y salidas de los empleados. He creado un...
1 respuesta

Bases de datos en Access para introducir, modificar y buscar registros

Tengo un problema que no he podido resolver. Estoy desarrollando una base de datos en access, que principalmente cumpla con 3 funciones: 1) Ingresar nuevos registros 2) Modificar registros existentes 3) Búsqueda de registros (solo de lectura) son 33...
1 respuesta

Acceso por usuario

Estoy creando una base de datos en Access que no va a ser usada en red, mi pregunta es si es posible que la BD solicite usuario y contraseña en este caso cuando se quiera acceder a ella. Gracias,
1 respuesta

Accesos usuarios

Tengo una rutina de accesos de usuarios, pero se concetarla con el formulario del menu de inicio. De envío la rutina completa. Option Compare Database Option Explicit Dim NumIntentos As Integer Private Sub CmdAcceder_Click() Dim auxContraseña As...
2 respuestas