Validar registro
En una base de datos en Access llamada Biblioteca tengo una tabla llamada LIBROS (con datos correspondientes al libro), otra tabla llamada PRÉSTAMO para registrar los libros prestados con los siguientes campos: CodLibro, fecha de préstamo, devolución (si/no).
Las dos tablas están relacionadas por CodLibro.
El caso es que cuando registro un préstamo en la tabla PRÉSTAMO (desde un formulario) después de actualizar CodLibro me debería dar un mensaje de que el libro ya se encuentra prestado y que no ha sido devuelta, eso por que dicho libro ya esta registrado en PRÉSTAMO y el campo devolución esta en NO.
Como válido eso. Por favor ayudame con ese problemita
Las dos tablas están relacionadas por CodLibro.
El caso es que cuando registro un préstamo en la tabla PRÉSTAMO (desde un formulario) después de actualizar CodLibro me debería dar un mensaje de que el libro ya se encuentra prestado y que no ha sido devuelta, eso por que dicho libro ya esta registrado en PRÉSTAMO y el campo devolución esta en NO.
Como válido eso. Por favor ayudame con ese problemita
1 Respuesta
Respuesta de selu123
1
Creo que deberías mostrar el mensaje tanto si se selecciona un libro ya prestado como si finalmente el usuario trata de registrar el préstamo, porque podría llegar a hacerlo aunque ya se lo hayas advertido.
En este sentido, en el campo CodLibro del formulario deberás meterle un código que se ejecute después de actualizarse su contenido (mira en propiedades, Eventos). Asimismo, deberás meterlo como una comprabación en el botón de "registrar préstamo". Puedes emplear este código:
Dim ref As Recordset
Dim i As Integer
Set ref = CurrentDb.OpenRecordset("select * from PRESTAMO where codlibro='" & CodLibro.Value & "' AND devolucion='no'")
i = ref.RecordCount 'Ccuento cuantos registros me ha devuelto la anterior consulta
If i > 0 Then 'si es mas de 0 es porque ese libro está prestado
MsgBox "El libro seleccionado ya está prestado"
End If
En este sentido, en el campo CodLibro del formulario deberás meterle un código que se ejecute después de actualizarse su contenido (mira en propiedades, Eventos). Asimismo, deberás meterlo como una comprabación en el botón de "registrar préstamo". Puedes emplear este código:
Dim ref As Recordset
Dim i As Integer
Set ref = CurrentDb.OpenRecordset("select * from PRESTAMO where codlibro='" & CodLibro.Value & "' AND devolucion='no'")
i = ref.RecordCount 'Ccuento cuantos registros me ha devuelto la anterior consulta
If i > 0 Then 'si es mas de 0 es porque ese libro está prestado
MsgBox "El libro seleccionado ya está prestado"
End If
