Insertar eventos periódicos en access

Hola y gracias de antemano
Lo que deseo hacer es, mediante un procedimiento de evento en access2000 generar varios registros en una tabla que hace de calendario, indicándole la periodicidad entre dos fechas.
Por ejemplo, en evento reunión, se produce los lunes de 10:00 a 12:00 todos los lunes entre la fecha inicial y la final.
Mediante el formulario, mediante un botón generado con el asistente, me inserta solo el primero, pero luego me indica que no encuentra el registro y me da error, aunque le pongo un bucle con la condición entre fechas.
Las fechas tienen el formato de fecha corta 'dd/mm/yyyy' y no se si se salta el bucle, o lo utilizo mal al tratarse de fechas.
La tabla destino tiene los campos Id, evento, fecha, hora inicio, hora fin.
Todo un reto.

1 Respuesta

Respuesta
1
Para poder ayudarte me gustaría ver la función que estas utilizando y como estas hacinedo el bluque...
Este es el código del botón 'generar eventos' en el formulario, donde indico el evento que se repite, el día de la semana, así como la fecha y hora de inicio y final.
Private Sub bt_generar_dias_Click()
On Error GoTo Err_bt_generar_dias_Click
Dim datInicial, datFinal, datDia As Date
Dim srtdiasemana As String
        'Establezco el dia de la semana
If Me.diasemana = "Lunes" Then
srtdiasemana = 1
If Me.diasemana = "Martes" Then
srtdiasemana = 2
If Me.diasemana = "Miercoles" Then
srtdiasemana = 3
End If
If Me.diasemana = "Jueves" Then
srtdiasemana = 4
End If
If Me.diasemana = "Miercoles" Then
srtdiasemana = 5
End If
If Me.diasemana = "Viernes" Then
srtdiasemana = 6
End If
If Me.diasemana = "Sabado" Then
srtdiasemana = 7
End If
        'Establezco el bucle entre la fecha inicial y final
datInicial = Me.Fechaini
datFinal = Me.Fechafin
datDia = datInicial
Do While datDia < datFinal
        ' Compruebo que la fecha corresponda al día de la semana, y si es así escribo un nuevo registro (es id es un autoincrementable)
    If Weekday(datDia, strdiasemana) Then
        Me.Dia = datDia
        DoCmd.GoToRecord , , acNewRec
        datDia = datDia + 1
    Else
        datDia = datDia + 1
    End If
Loop
Exit_bt_generar_dias_Click:
    Exit Sub
Err_bt_generar_dias_Click:
    MsgBox Err.Description
    Resume Exit_bt_generar_dias_Click
End Sub
Presupongo que es un pequeño desastre.
Disculpa hay un error en la asignación del día de la semana. Lo coorecto es:
If Me.diasemana = "Lunes" Then
srtdiasemana = 1
If Me.diasemana = "Martes" Then
srtdiasemana = 2
If Me.diasemana = "Miercoles" Then
srtdiasemana = 3
End If
If Me.diasemana = "Jueves" Then
srtdiasemana = 4
End If
If Me.diasemana = "Viernes" Then
srtdiasemana = 5
End If
If Me.diasemana = "Sabado" Then
srtdiasemana = 6
End If
If Me.diasemana = "Domingo" Then
srtdiasemana = 7
End If
Pero no obstante lo importante es saber si he de utilizar esa función u otra, y utilizarla bien.
Para que tu código funcione solo le hace falta unos arreguitos, grabar el registro y un error en el if y tal vez podrías hacerlo más eficiente con otra variable auxiliar
k=1 '''la variable auxiliar
Do While datDia < datFinal
    If Weekday(datDia, strdiasemana) Then
       DoCmd.GoToRecord , , acNewRec
       Me.Dia = datDia 
       DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
       k=7
    End if
    datDia = datDia + k  
Loop

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Base de datos Access se bloquea al trabajar en simultaneo

En contexto tengo una base de datos donde se ingresan datos en un formulario y este a su vez tiene un subformulario. Al inicio solo era utilizada por un usuario. Pero ahora es usada por 4 usuarios más. Tengo una computadora principal donde tengo la...
2 respuestas

Añadir búsqueda al azar en formularios de Access

Tengo un archivo de Access que quiero modificar y actualizar para añadir nuevas preguntas a una base de datos. He visto que en el formulario hay una casilla como de verificación para seleccionar al azar las preguntas de toda la base de datos pero...
2 respuestas

Como puedo añadir registros desde un formulario de búsqueda a un subformulario de otro formulario de registros de artículos

Tengo un formulario [Entrada_almacen] con un subformulario [Subformulario entradas almacen] en el que quiero que se vallan añadiendo los registros; Código (es un campo calculado), Artículo (combobox, porque también lo puedo seleccionar y si lo hago...
2 respuestas

Suma continua aparece en todos los demás registros

Tengo 2 tablas relacionadas,,,,, la tabla 1 la uso con el formulario principal,,,, la segunda para un subformulario,,,,,, y tango una consulta basada en la tabla 2 Con consulta contiene los campos entrada salida saldo (saldo ya esta con su fórmula...
2 respuestas

Cantidad mayor y menor en campos calculados

Tengo un formulario principal con tres subformularios y cada uno con una serie de campos de tipo numero sin decimales, Campo 1, Campo 2, Campo 3... Todos tienen 1 campo calculado del totales, basado en la suma de todos los campos de cada formulario,...
2 respuestas

Botón búsqueda en formulario Access

Tengo diseñado un formulario sencillo para hacer registro de datos, al dar el botón guardar esta información se va a una tabla, hasta hay normal, pero 1. Esta información no se llena de una vez por ejemplo Se llena del orden de arriba hacia abajo...
5 respuestas

Intentando sumar campos moneda de totales en informe de Access.

Estoy tratando de sumar dos campos de sumas totales en un informe de Access y no lo logro. Creo que he agotado todas las variantes. La situación es la siguiente: El informe es para emitir una factura al cliente. A un cliente se les puede hacer mas de...
1 respuesta

Outlook ya no envía mis correos desde Access, no reconoce la contraseña

Desde access envío un correo electrónico al cliente con el PDF de una factura a través de outlook, pero recientemente con la seguridad actual (oAuth) ya no me deja, utilizo outlook 2016 ¿Alguien sabe como resolverlo?
1 respuesta

En una tabla hacer una Suma acumulada

Tengo una tabla con 5 columnas id, código, fecha, cantidad, cantidadacumulada, donde la cantidad acumulada es el resultado de sumar acumulado todos los códigos iguales dado por los números de la casilla cantidad, el tema que en visual basic lo logro...
3 respuestas

Usuarios múltiples para un crm

Necesito q al CRM q he creado puedan acceder al mismo tiempo dos o más usuarios para registrar info, de ser posible la base de datos deberia estar guardada en Dropbox.
5 respuestas