** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Ayuda error en código planning semanal
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoAyuda error en código planning semanal

 Responder Responder
Autor
Mensaje
VIDAL Ver desplegable
Nuevo
Nuevo


Unido: 02/Abril/2019
Localización: España
Estado: Sin conexión
Puntos: 10
Enlace directo a este mensaje Tema: Ayuda error en código planning semanal
    Enviado: 05/Abril/2019 a las 20:38
Se trata de un planning semanal,  Mi problema es el siguiente: en el evento al hacer clic en un botón, CmdAceptar_Click(), debería detectar que dos horas introducidas se solapan en la misma fecha y emitir un Msgbox indicando que "ya existe una fecha coincidente".Pero da error la parte del código señalada en negrita más abajo. Llevo sobre 20 horas tratando de solucionarlo pero no soy capaz se solucionarlo.  La base de datos se puede descargar desde esta página.

*****************************************************************
If Me.Contador = 0 Then
        If Nz(DLookup("Contador_age", "Agenda", "Fecha_age = #" & Format(Me.Fecha, "mm/dd/yy") & "# AND HoraInicio_age = " & Format((Me.HoraInicio), "hhmm")), 0) > 0 Then
            MsgBox "Ya existe una cita coincidente", vbInformation, Msg
            Me.Fecha.SetFocus
            
        End If
        '** averiguamos siguiente contador
        Me.Contador = Nz(DMax("Contador_age", "Agenda"), 0) + 1
        '** creamos el registro
        Set Mitabla = CurrentDb.OpenRecordset("Agenda")
        
                Mitabla.AddNew
                Mitabla!Contador_age = Me.Contador
                Mitabla!Fecha_age = Me.Fecha
                Mitabla!HoraInicio_age = Me.HoraInicio
                Mitabla!HoraFin_age = Me.HoraFin
                Mitabla!Descripcion_age = Me.Descripcion
                Mitabla!Tarea_age = Me.Tarea
                Mitabla.Update ' DA ERROR
                Mitabla.Close   ' DA ERROR

*****************************************************************
Un saludo y gracias
Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: Sin conexión
Puntos: 5094
Enlace directo a este mensaje Enviado: 05/Abril/2019 a las 20:55
Hola!

Mírate esto en la página del autor el maestro Mihura:

http://www.accessaplicaciones.com/ejemplos.html#m11

En este hilo salió algo parecido:

http://www.mvp-access.com/foro/consulta-de-fecha-y-disponibilidad_topic83873_page1.html

Editado por mounir - 05/Abril/2019 a las 20:55
Un Saludo.
Arriba
VIDAL Ver desplegable
Nuevo
Nuevo


Unido: 02/Abril/2019
Localización: España
Estado: Sin conexión
Puntos: 10
Enlace directo a este mensaje Enviado: 06/Abril/2019 a las 10:29
Hola, Muchas gracias por tu tiempo y por tu ayuda. Ya estuve mirando la indicación del maestro Mihura, pero, aunque pongo mucho interés, pero debido a mi bajo nivel el VBA, no sé como crear las rutinas que indica Mihura en su instrucción: 
Las rutinas RT_FechaSQL (me pone una fecha en formato americano con sus separadores) y RT_HoraSQL (idem con la hora).
Que están en enlace:

Repito muchas gracias y seguiré intentando por ensayo y error.



Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 10839
Enlace directo a este mensaje Enviado: 06/Abril/2019 a las 11:41
Pues en la misma página tienes las dos rutinas ... aunque lo único que hacen es formatear la fecha/hora para que lo entienda una SQL. Wink
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
VIDAL Ver desplegable
Nuevo
Nuevo


Unido: 02/Abril/2019
Localización: España
Estado: Sin conexión
Puntos: 10
Enlace directo a este mensaje Enviado: 06/Abril/2019 a las 12:05
Hola, en primer lugar agradecer tu magnifico trabajo y pedir disculpas por la petición de ayuda, teniendo en cuenta mi bajo nivel en VBA.

El código lo he puesto de la siguiente forma :

 If Me.Contador = 0 Then
    Set Mitabla = CurrentDb.OpenRecordset("SELECT * FROM agenda WHERE Fecha_age = " & RT_FechaSQL(Me.Fecha) & _
     " AND ((" & RT_HoraSQL(Me.HoraInicio) & "<= HoraFin) AND (" & RT_HoraSQL(Me.HoraFin) & " >= HoraInicio))")
    If Mitabla.RecordCount <> 0 Then
     Mitabla.Close
     MsgBox "Esta cita entra en conflicto con otra", vbCritical, Me.Caption
     Exit Sub
   Else
     Mitabla.AddNew
     Mitabla.Update
     Mitabla.Close

y me aparece error de compilación: "no se ha definido sub o function"  marcando RT_FechaSQL

Un Saludo y gracias por tu contestación.


Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 10839
Enlace directo a este mensaje Enviado: 06/Abril/2019 a las 13:13
¿Y ya has creado las rutinas en tu aplicación?
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
VIDAL Ver desplegable
Nuevo
Nuevo


Unido: 02/Abril/2019
Localización: España
Estado: Sin conexión
Puntos: 10
Enlace directo a este mensaje Enviado: 06/Abril/2019 a las 13:18
No sé como declarar esas rutinas. Supongo que será algo así como realizar una función, pero no sé como hacerlo.   

Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 10839
Enlace directo a este mensaje Enviado: 06/Abril/2019 a las 14:21
Entonces, antes de intentar pelearte con programas que tienen mucho código, te recomiendo que te hagas el curso de Eduardo Olaz , avanzarás mucho en todas estas dudas que tienes.



Editado por Mihura - 06/Abril/2019 a las 14:24
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
VIDAL Ver desplegable
Nuevo
Nuevo


Unido: 02/Abril/2019
Localización: España
Estado: Sin conexión
Puntos: 10
Enlace directo a este mensaje Enviado: 06/Abril/2019 a las 15:55
Creo que tienes razón, no se puede empezar la casa por el tejado. Seguiré tu sabio consejo.
Muchas gracias por todo.

Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 10839
Enlace directo a este mensaje Enviado: 06/Abril/2019 a las 16:41
A ti, para las dudas y problemas que se te planteen aquí estamos.

Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable