Ayuda base de datos

[lokoman]

Hola!!
A ver...
1) Cuando vas a guardar los datos, debes de consultar en la BD si el registro ya existe, si no se encuentra, lo guardas. Crea un recordset con este query:
(Select ID from DATOS where ID_DATOS=" & txtIdDatos ) 'Adapta el query
2) Se puede hacer de varias formas... en el mismo boton de guardar, debes verificar que todos los campos esten llenos.
Private Caja As Control
Private Sub Command1_Click()
For Each Caja In Me.Controls
If Caja.Tag = "txt" Then
If Caja.Text = Empty Then
MsgBox "Existen campos vacios!!", vbInformation
Exit sub
End if
End If
Next Caja
End Sub
3) Carga el listbox con un recordset
List1.clear
Do while not rsData.EOF
List1.additem rsData!CAMPO
rsData.movenext
LOOP
4) Hay varias formas de hacer esa validacion... puedes haceer un modulo de libros prestamos y en ese modulo en el load, consulta los libros que tienen mas de 3 dias (debes tener un campo en la BD con la fecha de prestamo). Utiliza la formula:
DIAS_PRESTADOS= DATEVALUE(fecha actual) -DATEVALUE(fecha)
Si el resultado es mayor a 3, entonces le pones una multa.
5) Multiples formas de hacerlo... si usas un listview, primero realizas los querys para obtener los datos que desees y luego se los asignas al listview...
listview1.listitems.clear
Orden=1
do while not rsData.EOF
Set lsv = lsvData.ListItems.Add(, , (Orden))
lsv.SubItems(1) = rsData!CodLibro
lsv.SubItems(2) = rsData!NombreLibro
lsv.SubItems(3) = rsData!CodEstudiente
lsv.SubItems(4) = rsData!NombreEstudiante
Orden=Orden+1
rsData.movenext
loop