Abrir formulario dos veces

21/10/2003 - 09:32 por Pako | Informe spam
Hola a todos!
Una pregunta, puedo abrir un formulario dos veces y poder
trabajar entre ellos.
Es decir, tengo un formulario general desde el que abro un
formulario con un criterio,se podria volver abrir este
formulario con otro criterio, para poder trabajar entre
ellos.
Gracias
Pako

Preguntas similare

Leer las respuestas

#1 carlos
21/10/2003 - 11:41 | Informe spam
dos formularios con el mismo diseño pero con distinto
origen de datos son dos formularios distintos, de hecho
deben de tener nombres distintos pero no sé si es a eso a
lo que te refieres. al hablar de origen de datos distinto
me refiero a que cambie solamente un WHERE, ORDER BY, o lo
que a ti se te ocurra. lo de trabajar entre ellos se debe
de poder hacer puesto que la tabla o tablas que modifiques
con un formulario son las mismas que en el otro.
Hola a todos!
Una pregunta, puedo abrir un formulario dos veces y poder
trabajar entre ellos.
Es decir, tengo un formulario general desde el que abro


un
formulario con un criterio,se podria volver abrir este
formulario con otro criterio, para poder trabajar entre
ellos.
Gracias
Pako
.

Respuesta Responder a este mensaje
#2 Búho
21/10/2003 - 12:36 | Informe spam
Yo creo que sí que se podría hacer. Y digo que «creo» por que lo que yo he
hecho ha sido otra cosa,parecida, perono igual. Con Formulario1 abierto y
desde ese mismo formulario, lanzar otra instancia de Formulario1. En este
codigo que te pego aqui, lo que hago es abrir una nueva instancia del mismo
formulario, en otro registro disitino.
Option Compare Database
Option Explicit
Private frmChild As Form_NombreFormularioADuplicar


Private Sub Comando27_Click()
On Error GoTo Err_Comando0_Click
Set frmChild = New Form_NombreFormularioADuplicar
With frmChild
.Caption = "Nueva Copia:Abierta en el ID=4"
.Visible = True
.CierraForm.SetFocus
.Comando27.Enabled = False
.RecordSource = "select * from Tabla1 Where ID=4"
.Etiqueta2.Caption = "Esta es la nueva copia del formulario. Se ha creado
en tiempo de ejecución. Puede cerrarla si lo desea..."
End With

Exit_Comando0_Click:
Exit Sub

Err_Comando0_Click:
Errores Err.Number, " " & Me.Caption & "...[" & Me.Name & "]"
Resume Exit_Comando0_Click
End Sub


yo creo que los tiros pueden ir por ahíojala te sirva de orientación


Saludos desde Valladolid
Francisco Javier García Aguado

http://www.buho.tk
http://www.clikear.com/webs/accessbhuo/
http://groups.msn.com/Access2000VisualBasic/
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida