Ejecutar macro repetidamente más de 20 veces

Tengo un programilla hecho para llevar la planificación de un hotel. Para que lo entendáis rápidamente a partir de "n" reservas se asigna automáticamente una habitación en función de unas prioridades.
Bien, la pregunta es, para hacer esto ejecuto la macro hasta que no quedan reservas o hasta que no quedan habitaciones. Esto puede ocurrir muy tarde, es decir que pueda que necesite ejecutar la macro 100 veces. Pregunta: ¿Cómo lo hago? ¿Por lo que veo sólo la puedo ejecutar hasta 20 veces pero más no?

1 respuesta

Respuesta
1
¿Por qué dices que solo la pues ejecutar 20 veces?, alucinante.
Buenas,
porque es así lo dice. Cuando la ejecuto, poniendo una condición que un determinado valor sea nulo en un informe, a la que llega a la ejecución 20 da errores y aparece un cuadro de diálogo diciendo que una macro puede llamase a sí misma un máximo de 20 veces!
¿Cómo lo ves? ¿Tienes alguna pista?
Gracias
Puedes pegar el código que usas para ejecutar la macro y pasa el código de la macro, para ello pincha con el botón derecho sobre la macro y le dices 'gurdar como: módulo' abres el módulo y pegas el código.
Si utilizas el docmd. Runmacro "macro", 100 funciona perfectamente.
OK,
te lo adjunto!
__________________________________
Function Proc__PLANNING()
On Error GoTo Proc__PLANNING_Err
DoCmd. Close acForm, "planning_dates"
DoCmd. Close acReport, "apartaments_assignacio0"
DoCmd. DeleteObject acTable, "apartaments_assignacio0"
DoCmd.OpenQuery "aparts_disponibles0", acViewNormal, acEdit
DoCmd.DeleteObject acTable, "apartaments_assignacio00"
DoCmd.OpenQuery "aparts_disponibles001", acViewNormal, acEdit
DoCmd.DeleteObject acTable, "apartaments_assignacio000"
DoCmd.OpenQuery "aparts_disponibles001b", acViewNormal, acEdit
DoCmd.OpenQuery "aparts_disponibles001c", acViewNormal, acEdit
DoCmd.DeleteObject acTable, "apartaments_assignacio"
DoCmd.OpenQuery "aparts_disponibles001d", acViewNormal, acEdit
DoCmd.DeleteObject acTable, "apartaments_assignacio001"
DoCmd.OpenQuery "aparts_disponibles002", acViewNormal, acEdit
DoCmd.OpenQuery "aparts_disponibles003", acViewNormal, acEdit
DoCmd.OpenQuery "pre 001 tancar aparts", acViewNormal, acEdit
DoCmd.OpenQuery "pre 002 a graella", acViewNormal, acEdit
DoCmd.OpenQuery "pre 003 a graella - neteja", acViewNormal, acEdit
DoCmd.OpenReport "apartaments_assignacio0", acViewPreview, "", "", acHidden
DoCmd.RunMacro "0 planning", , "[Reports]![apartaments_assignacio0]![detall]<>''"
Beep
MsgBox "finalitzat", vbInformation, ""
DoCmd.OpenForm "planning_dates", acNormal, "", "", , acNormal
DoCmd.OpenReport "reserves assignades", acViewPreview, "", "", acNormal
Proc__PLANNING_Exit:
Exit Function
Proc__PLANNING_Err:
MsgBox Error$
Resume Proc__PLANNING_Exit
End Function
Si defines una nueva macro (MacroX) así:
----
DoCmd. DeleteObject acTable, "apartaments_assignacio0"
DoCmd. OpenQuery "aparts_disponibles0", acViewNormal, acEdit
DoCmd.DeleteObject acTable, "apartaments_assignacio00"
DoCmd. OpenQuery "aparts_disponibles001", acViewNormal, acEdit
DoCmd.DeleteObject acTable, "apartaments_assignacio000"
DoCmd. OpenQuery "aparts_disponibles001b", acViewNormal, acEdit
DoCmd. OpenQuery "aparts_disponibles001c", acViewNormal, acEdit
DoCmd.DeleteObject acTable, "apartaments_assignacio"
DoCmd. OpenQuery "aparts_disponibles001d", acViewNormal, acEdit
DoCmd.DeleteObject acTable, "apartaments_assignacio001"
DoCmd. OpenQuery "aparts_disponibles002", acViewNormal, acEdit
DoCmd. OpenQuery "aparts_disponibles003", acViewNormal, acEdit
DoCmd. OpenQuery "pre 001 tancar aparts", acViewNormal, acEdit
DoCmd. OpenQuery "pre 002 a graella", acViewNormal, acEdit
DoCmd. OpenQuery "pre 003 a graella - neteja", acViewNormal, acEdit
----
Creas un botón y en el código de 'al hacer click' pones: A esta macro la llamamos macrox, después tienes campo [Reports]! [apartaments_assignacio0]![detall], prueba algo así dentro del código del botón:
Dim i as integer
Bucle:
i=i+1
docmd.runmacro "macrox"
if i>200 then 'en lugar de 200 pon lo que quieras, es pora que no se meta en un bucle infinito
Msgbox "la macro se ha ejecutado 200 veces"
exit sub
endif
if dcount("detall","apartaments_assignacio0","detall>''")> then goto bucle.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Necesito una rutina para copiar registros en ACCESS VB

Necesito una pequeña rutina donde pueda copiar, sin runsql, los registros de una tabla a otra que es exactamente igual, en realidad la estoy copiando de un entorno remoto a mi entorno local. Para ello estoy utilizando los módulos ' Esta parte me...
1 respuesta

Access 2003 - Ejecutar varias consultas de actualización a la vez

Necesito ejecutar varias consultas de actualización, ¿Es posible realizarlo desde un botón de un formulari?o. Hasta ahora solo he conseguido poder aplicar una consulta de actualización asociada al botón, por cada consulta tengo que realizar un botón,...
1 respuesta

Ayuda para cargar txt en access. Urgente!

Ojalá me puedan ayudar ya que es urgente. Cualquier aporte por más básico que sea, será beneficioso. Necesito cargar distintos txt en access pero permitiéndole al usuario insertar el path o ruta del archivo, puede ser mediante un inputbox, de manera...
1 respuesta

Multiplicar por valor todos los registros de un campo

Me gustaría saber cómo puedo multiplicar el valor de todos los registros de un campo de una tabla por un número diferente cada vez. Lo estaba haciendo mediante una macro con la acción establecer valor así: Argumento expresión de EstablecerValor:...
1 respuesta

Insertar imagen

Hace tiempo escribí el código que te paso a continuación: Me. Refresh DoCmd.SetWarnings False DoCmd. OpenQuery "CnsInformesRecercaTemporalEliminarBis", acViewNormal DoCmd. OpenQuery "CnsInformesRecercaTemporalBis", acViewNormal 'DoCmd. RunMacro...
1 respuesta

Importar Archivo de Texto a Access

Primeramente gracia por la ayuda que me puedas prestar y espero entiendas lo que quiero hacer en access ya que estoy empezando en este mundo de programar y tal vez me explique de una forma ambigua. Como puedo lograr importar un archivo de texto por...
2 respuestas

Duda con formulario access con login y contraseña

En una BD tengo el siguiente código: Option Compare Database Private Sub Iniciar_Sesión_Click() On Error GoTo Err_Iniciar_Sesión_Click 'Esta línea pregunta si ha seleccionado un usuario desde la lista If IsNull(Usuario) Then MsgBox "No ha indicado un...
1 respuesta

Tabla Excel Vinculada

He creado una BD con una tabla vinculada en Excel, cuando dos usuarios intentan consultarla a uno de ellos les aparece la siguiente leyenda "El motor de base de datos Microsoft Access no puede abrir el archivo, otro usuario ya lo ha abierto de forma...
3 respuestas

Numero de copias de un informe

A quién me pueda ayudar: ¿De qué forma sin utilizar una macro, puedo indicar el número de copias que quiero imprimir de cada informe que tenga preparado en una aplicación?
1 respuesta

¿Cómo insertar fecha sin que se actualice al día siguiente?

Necesito insertar la fecha en una columna usando como referencia otra columna, Por ej. Si E4="OK", que automáticamente se inserte la fecha en G4, Pero que al día siguiente no se actualice dicha fecha, es decir, necesito mantener en la columna G la...
1 respuesta