Home > Foro de Access >

Debates de Access > Abrir el mismo form de 2 formas diferentes

Abrir el mismo form de 2 formas diferentes

Escrito por Isaias Jesus Garcia Galvan el 5 de Noviembre

Hola Juan, que tal, espero que bien. A ver si me explico bien:

Tengo un form continuo COMPRAS T, con los datos de todas las compras. Ok

a) Tiene 1 icono para abrir (icono_compras_c) un form COMPRAS F (Continuas).

Esta es la macro:

. ABRIR FORMULARIO: modo de datos nada

. IR A REGISTRO: registro nuevo

. REPINTAR OBJETO: Formulario COMPRAS T;


* Este form lo utilizo para compras continuas y tiene activada las propiedad botones de desplazamiento= Sí, por lo que siempre me aparece el numero total de registros mas 1, es decir que se tengo 17 reg. Guardados en COMPRAS T, se posiciona en el 18 que es el nuevo.

b) Tiene un 2 icono para abrir (icono_compras_m) un form COMPRAS F , tambien lo abro haciendo doble click en el campo [ID-COMPRA].

* Este form lo utilizo para modificar un registro especifico y es una copia exacta del form COMPRAS F (Continuas) salvo que la propiedad botones de desplazamiento=No, por lo que no me aparecen las flechitas ni el nº de registros.

Esta es la macro:

. ABRIR FORMULARIO: COMPRAS F

. CONDICION WHERE: [ID-COMPRA]=[Formularios]! [COMPRAS T]! [ID-COMPRA];

. MODO DE DATOS: Modificar

. MODOS DE LA VENTA: Normal.

Se que es un error tener 2 formularios practicamente iguales y mi intencion es dejar solo uno. Con las 2 macros y un mismo form me podria haber valido pero el problema es que la propiedad botones de desplazamiento cambia de uno u otro form.

Ya que mi VBA es pesimo puedes indicarme el codigo que necesitaria para cada icono y con las mismas caracteristicas de las macros.

Gracias de antemano


Citar  |  
Ver mensaje      

Juan Cots Santiago
Valencia, España
Escrito por Juan Cots Santiago el 6 de Noviembre

Hola Isaías.

Haz una cosa, te pones encima de la macro, le dices guardar como... Y despliegas la ventanita para indicarle como módulo.

Te creará un nuevo módulo con el código que realiza la misma acción de la macro.

Si no sabes como aplicarlo después, pega aquíel código que te genere y yo te indicaré como

Un saludo


Citar  |  
Ver mensaje     

Isaias Jesus Garcia Galvan
Ciudad Real, España
Escrito por Isaias Jesus Garcia Galvan el 8 de Noviembre

Hola Juan, perdona mi demora, y gracacias por tu interes. Este es el codigo segun módulo de las 2 macros que utilizo.

Te vuelvo a repetir: los 2 form [COMPRAS F (Continuas)] como [COMPRAS F] son iguales salvo que a este ultimo le tengo la propiedad botones de desplazamiento = No. Por lo tanto esta propiedad habra que programarla con código, lo cual yo no se.


'------------------------------------------------------------
' COMPRAS_CONTINUAS_COMPRAS
' ESTA ES LA MACRO QUE UTILIZO PARA AGREGAR COMPRAS
'------------------------------------------------------------
Function COMPRAS_CONTINUAS_COMPRAS()
On Error GoTo COMPRAS_CONTINUAS_COMPRAS_Err

DoCmd. OpenForm "COMPRAS F (Continuas)", acNormal, "", "", , acNormal
DoCmd. GoToControl "idcompra"
DoCmd. GoToRecord , "", acNewRec
DoCmd. GoToControl "idcompra"
DoCmd. RepaintObject acForm, "COMPRAS T"


COMPRAS_CONTINUAS_COMPRAS_Exit:
Exit Function

COMPRAS_CONTINUAS_COMPRAS_Err:
MsgBox Error$
Resume COMPRAS_CONTINUAS_COMPRAS_Exit

End Function


'------------------------------------------------------------
' COMPRAS_CONTINUAS_IR_A_COMPRA
' ESTA ES LA MACRO PARA MODIFICAR UN REGISTRO
'------------------------------------------------------------
Function COMPRAS_CONTINUAS_IR_A_COMPRA()
On Error GoTo COMPRAS_CONTINUAS_IR_A_COMPRA_Err

' ** SUPONGO QUE EN LA SIGUIENTE LINEA DONDE SE ABRE EL FORM HABRIA

' ** QUE PONER CON CODIGO LA PROPIEDAD DEL FORM

' ** BOTONES DESPLAZAMINETO = NO

DoCmd. OpenForm "COMPRAS F", acNormal, "", "[ID-COMPRA]=[Forms]! [COMPRAS T]! [ID-COMPRA]", acEdit, acNormal


COMPRAS_CONTINUAS_IR_A_COMPRA_Exit:
Exit Function

COMPRAS_CONTINUAS_IR_A_COMPRA_Err:
MsgBox Error$
Resume COMPRAS_CONTINUAS_IR_A_COMPRA_Exit

End Function

Si necesitas algo mas comentamelo, un saludo


Citar  |  
Ver mensaje     

Isaias Jesus Garcia Galvan
Ciudad Real, España
Escrito por Isaias Jesus Garcia Galvan el 8 de Noviembre

Hola Juan de nuevo, he subido 2 imagenes de los 2 form para que veas que solo hay de diferencia los botones de desplazamiento en el form COMPRAS F (Continuas).


Saludos


Citar  |  
Ver mensaje     

Isaias Jesus Garcia Galvan
Ciudad Real, España
Escrito por Isaias Jesus Garcia Galvan el 10 de Noviembre

Hola Juan. Ya lo he solucionado, en el boton de modificar he puesto el siguiente código:

DoCmd. OpenForm "COMPRAS F (Continuas)", acNormal, "", "[ID-COMPRA]=[Forms]! [COMPRAS T]! [ID-COMPRA]", acEdit, acNormal

' La siguiente linea es la que nencesitava
Forms("COMPRAS F (Continuas)"). NavigationButtons = false

Espero que le sirva a alguien este código.

Gracias por tu interes y hasta la proxima, un saludo


Citar  |  
Ver mensaje     

Juan Cots Santiago
Valencia, España
Escrito por Juan Cots Santiago el 10 de Noviembre

Hola Isaias, gracias por compartir la solución a este tema
Un saludo


Citar  |  
Ver mensaje     


Responder


Quiero recibir alertas por email cuando haya mensajes nuevos en este debate

Al escribir en el debate:
  1. Repasa la ortografía y no escribas en formato SMS.
  2. Lee el texto dos veces antes de publicar.
  3. No escribas todo en mayúsculas o negritas.
 
Páginas internacionales: España  |  Italia  |  Francia  |  México  |  Alemania  |  Reino Unido  |  Argentina  |  Chile  |  Colombia  |  USA

Búsquedas frecuentes: revista patrones como hacer un triptico carta de cobro formula si excel guion teatral

Emagister cumple la Ley Orgánica 15/1999 de 13 de diciembre, de Protección de datos de Carácter Personal, y posee el código de inscripción nº 2002010053 del Registro General de la Agencia de Protección de Datos. Copyright © 1999/2000 - Grupo Intercom - Todos los derechos