Foros del web, para los que viven de bits

hola a todos sigo desarrollando mas aplicaciones en Visual , ahora tengo una duda con lo siguiente :

mi aplicacion es para prestamos y devoluciones , en una tabla Libros se guardan los numeros de Libros y en la otra los prestamos ambas estan relacionadas por el Numero de libro , entonces en el formulario de prestamo cuando se ingresa un numero de libro que no esta regstrado en la base de datos quero que me salga un mensaje que diga que el libro no existe , la verdad no se como hacerlo , y una cosa mas en la tabla Libros tengo un combobox que tiene 2 estados : disponible y no disponible , tambien este debe cambair cuando se realize el prestamos , les agradeceria que me aclararan estas dudas , desde ya gracias , aqui les dejo parte del codigo :


cnn1.Execute "INSERT INTO Prestamos " & "(NP,Nombre,NumeroDeLibro,FechaP) VALUES('" & _
Text2(0) & "','" & _
Text2(1) & "','" & _
Text2(2) & "','" & _
Format(Date, "dd/mm/yyyy") & "')"


esta e la de libros :


cnn.Execute "INSERT INTO Libros " & "(NumeroDelibro,Autor,Titulo,Estado,Fecha) VALUES('" & _
lblID & "','" & _
Text1(1) & "','" & _
Text1(2) & "','" & _
Cmbestado.ListIndex & "','" & _
Format(Date, "dd/mm/yyyy") & "')"

supuestamente eso lo haces al apretar un boton, bueno para validar si existe el libro haces
dim rstemp as new adodb.recordset ' este es 1 recordset temporal

sql="select * from libros where NumeroDeLibro=" & text2(2).text & ""
rstemp.open sql ,cn ' cn es el objeto conexion q usas
if rstemp.recordcount < 1 then
msgbox "El libro no existe"
goto sale:
end if
'y aca si existe validas el estado del libro es decir
estado=rstemp.fields("estado")
Cmbestado.enabled=estado

goto sale:

fijate y me avisas me dio alborotado pero a mi me funciona

Hola gracias por tu resuesta , pero mira tengo el form donde puse el Insert Into y todo eso , y un modulo donde tengo als conecciones , el codigo que me pones lo pongo en el modulo verdad?¿ porque al poner al Form me da muchos errores

El código que publicó fede_rosario debes colocar en la ventana. ¿Cuál es el error? Porque yo lo veo todo bien...

El problema es con el comboBox, no se actualiza su estado , tengo dos conecciones distintas una para cada una de las tablas :


Public cnn As New adodb.Connection
Public rs As New adodb.Recordset

Public cnn1 As New adodb.Connection
Public rs1 As New adodb.Recordset

cnn1.Execute "INSERT INTO Prestamos " & "(NP,Nombre,NumeroDeLibro,FechaP) VALUES('" & _
Text2(0) & "','" & _
Text2(1) & "','" & _
Text2(2) & "','" & _
Format(Date, "dd/mm/yyyy") & "')"



la primera es para libros y la otra para prestamos , ahora nos se como actualizar el estado del combobox que esta en "Disponible" a no disponible al hacer el prestamo , el combobox esta en la tabal libros y se llama Cmbestado. te ruego que me ayudes , desde ya gracias!!

Esa pregunta ya te la respondió fede_rosario:

Bueno me dice que estado no esta definido no se como defnirlo ya que esta en la tabla libros, y otra cosa que hago con el goto sale: , o acaso tengo que cerrar la conexion?¿


estado=rstemp.fields("estado")
Cmbestado.enabled=estado

El goto sale puedes quitarlo, no hace nada. Puedes definir estado como Boolean.

ok gracas una cosa mas , me muestra el mensaje de que no existe el libro , pero al querer ingresar otro numero de libro me dice que no se puede porque el objeto esta abierto

Antes de Abrir tu RecorSet utiliza esto

Con esto lo que se pretende es que si el RecorSet esta abierto lo cierra para despues abrirlo. espero te sirva.