abir un formulario en concreto de una base de datos desde otra distinta
Publicado por ANTONIO (81 intervenciones) el 06/01/2014 22:49:26
Buenas noches a todos,
He decidido, siguiendo los consejos de un amigo del foro, empezar a dividir la base de datos.
Ahora quiero que a través de un cmd abrir la otra base de datos y en concreto en un formulario específico,FMENU.
He puesto el siguiente código, pero sólo muestra un cuadro de dialogo.
Gracias por vuestra ayuda!
He decidido, siguiendo los consejos de un amigo del foro, empezar a dividir la base de datos.
Ahora quiero que a través de un cmd abrir la otra base de datos y en concreto en un formulario específico,FMENU.
He puesto el siguiente código, pero sólo muestra un cuadro de dialogo.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub cmdPersonal_Click()
' Ejemplo de automatización
Dim DbPath As String
Dim oApp As Access.ApplicationDim vid As String
Dim vnom As String
vid = Me.TXTNOMBRE.Value
vnom = Me.txtnom.Value
'vidd = Me.txtid.Value
DbPath = "C:\Users\xx\Desktop"
' instanciamos una nueva ventana de Access
Set oApp = New Access.Application
With oApp
' la hacemos visible
.Visible = True
' abrimos la base de datos
.OpenCurrentDatabase DbPath ' abrimos un formulario de esa base de datos
.DoCmd.OpenForm "FMENU"
With Forms!FMENU.idp.Value = 1
' .[cboUser].Value = vid
.[cbopersonas].Value = vidd
.[cboperson].Value = vnom
End With
Set oApp = NothingEnd Sub
Gracias por vuestra ayuda!
Valora esta pregunta
0
