Access - Formulario apertura desde otro formulario

   
Vista:

Formulario apertura desde otro formulario

Publicado por José Ant. Pinín jantpv@gmail.com (42 intervenciones) el 24/03/2016 18:51:52
Buenas tardes.

Intentare explicarme sobre un problema que tengo:

Tengo un fichero de clientes. Sobre este abro un formulario con el Numero de cliente, en este formulario tengo un BOTÓN que abre otro formulario. Pero mi problema es como puedo hacer que al abrirse este segundo formulario se abra con el mismo numero de cliente que tengo seleccionado en el primer formulario.

Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Formulario apertura desde otro formulario

Publicado por Kaiser (2 intervenciones) el 31/03/2016 04:12:46
Hola, alguien muy amable me ayudó con lo mismo un día, desde el formulario que tienes abierto
con un botón al hacer clic

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub CmdAbrir_Click()
Dim strForm As String
Dim strField1   As String
Dim strField2   As String
 
' Los valores de las variables los puedes tomar de tus cajas de texto
' y concatenarlos directamente sin pasarlos a variables...
 
strForm = "F_SALIDAS"    ' El nombre del formulario que vas a abrir
strField1 = "id_Usuario"              ' Variable con la que vas a llenar un control
strField2 = "Numdoc"           ' Variable con la que vas a llenar otro control
 
' Fíjate como concateno los valores de las variables para pasarlos al otro formulario:
' strField1 & "|" & strField2
' Podría haber utilizado cualquier otro separador diferente a "|"...
DoCmd.OpenForm strForm, , , , , , Id_Usuario & "|" & Numdoc
 
End Sub



Ahora en el formulario que recibes o abres con el botón, en el evento al cargar
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Load()
Dim aOpenArgs ' Esto va a ser un array de tipo variant
 
    If Not IsNull(Me.openArgs) Then
        ' Partimos la cadena que pasamos con el argumento OpenArgs usando
        ' el separador que elegimos, en este caso "|"
        aOpenArgs = Split(Me.openArgs, "|")
        ' A la primera caja de texto le pasamos el primer valor del array
        Me.Id_Usuario = aOpenArgs(0)
        ' A la segunda caja de texto le pasamos el segundo valor del array
 
    End If
 
End Sub


Te lo paso tal cual, a mi me funciona, debes colocar en las propiedades del formulario que recibe, en la pestaña Datos, entrada de datos en Sí.

Espero te funcione
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar