SoloCodigo

Buenas Dario

Prueba con la función DateDiff, a ver si hay suerte.
DateDiff(intervalo, fecha1, fecha2)
?datediff("d", #01/01/2007#, #01/31/2007#)
 30
diferencia en dias
?datediff("h", #01/01/2007#, #01/31/2007#)
 720
diferencia en horas
Saludos

Buenas asi a priemra vista tienes bastantes errores en el codigo que has colgado en esta pagina.
Primero mira si teiens una referencia a la biblioteca DAO 3.6, y define DAO.Database, y DAO.RecordSet.
Despues si quieres saber el valor de un cuadro combinado no uses la propiedad Value sino que debes usar la propiedad Column(n) donde n es el numero de la columna del cuadro combinado que contenga el valor a buscar.
Tambien debes declarar todas las variables, ejemplo rs3 no esta ni declarado ni instanciado, y tambien debes cerrar y eliminar de la memoria todas las variables set declaradas.
En fin revisa tu codigo, y seguimos
Un saludo desde Barna
Sk@keo

Prueba esta funcion, seguro que te servira:

Public Function ExtraerCaracteres(ByVal strCadena As String) As String
    Dim intMaxCar As Integer
    Dim intCont As Integer
    Dim strCaracteres As String
    Dim strNum As String
    Dim intNum2 As Integer
    intMaxCar = Len(strCadena)
    For intCont = 1 To intMaxCar
        If IsNumeric(Left(strCadena, intCont)) Then
            strNum = Left(strCadena, intCont)
        Else
            intNum2 = intMaxCar - Len(strNum)
            strCaracteres = Right(strCadena, intNum2)
        End If
    Next
    ExtraerCaracteres = strCaracteres
End Function

Un saludo
Sk@keo
     

Me puedes mandar un ejemplo de lo que tu estas haciendo me lo miro  y te digo algo. Solo unos cuantos datos para que lo pueda probar. Intenta antes de comprimirlo de compactar la base de datos menu Herramientas/Utilidades de la base de datos/Compactar y reparar base de datos, luego lo comprimes y me lo mandas a mi email: jpijuan_beta@hotmail.com,
Si quieres eh?
Un saludo
Skakeo®    

Mirate este ejemplo si extraes las funciones  conseguiras lo que buscas
Un saludo
Skakeo®
           

Si dieras mas datos, desde donde lo abres? porque necesitas crear un currentproject.allreports para abrir un informe?
No es el metodo mas adecuado si lo haces desde access.
Un saludo
Skakeo®    

Haber primero antes de nada abre la base de datos y busca en el menu Herramientas-Utilidades de la base de datos- Compactar y reparar base de datos
Luego si puedes la comprimes con winzip, o mejor winrar da igual. Y mira lo que te ocupa.
Mi direccion jorditransoria@telefonica.net
Un saludo
Skakeo®  

Deberias crearte una funcion para controlar la fecha de salida de la habitacion, luego que lo compare con el dia de entrada nuevo.
Sin la estructura de las tablas  o mas detalles no puedo responderte nada mas.
Si dieras más detalles, te podria ayudar.
Un saludo
Skakeo®

Te envio un pequeño ejemplo, hay un formulario con un combo y una lista, miratelo
Un saludo
Skakeo®

Podrias mirarte la ayuda de visual en access por ejemplo
Asi de primeras si declaras accObj as new y luego pones set accObj
lo estas instanciando dos veces.
y la cadena que va dentro del parantesis va entrecomillada.
Despues creo que mejor podrias usar :
docmd.copyobject
miratelo tambien en la ayuda
Un saludo
Skakeo®

Lo has ejecutado paso a paso para ver donde falla, asi a primera vista el código esta bien... por cierto te falta cerrar el end if.
Pon un punto de interrupcion al principio y luego haz las instrucciones paso a paso.
Si me mandas una copia de las tablas me lo miro, con datos de ejemplo...pocos para que no abulte mucho.
Un saludo
Skakeo®

Si puedes hacer lo que estas diciendo pero debes darle un nombre a la sequencia el punto no .
CREATE SEQUENCE <nombre> INCREMENT BY 1 START WITH NumComienzo;

Un saludo Arantxa
Skakeo

Yo lo he solucionado, si aun te interesa mandame un email.