Haz tu Pregunta

Revision history [regresar]

click to hide/show revision 1
versión inicial

Suponiendo que el campo que quieres usar sea un campo de texto:

Sub Alfa

Conn = ThisDatabaseDocument.CurrentController.ActiveConnection                          ' Conectamos para recoger los datos de las tablas
oStat=Conn.createStatement()                                                            ' Creación de la conexión
Form=ThisComponent.Drawpage.Forms.getByName("Nombre_De_Mi_Formulario")                  ' Formulario desde el que vamos a trabajar    
Campo= Form.getByName("Nombre_del_Campo")                                               ' Campo del que queremos recoger el contenido
Clave= Campo.Text                                                                       ' Texto incluido en el campo
Shell "explorer " & "C:\MisArchivos\Extraterrestres\Galimatías\" & Clave, vbNormalFocus ' Abrimos la carpeta específica

End sub
Si quieres usar números, entonces usa Cint(Campo.text) Esperemos que funcione.

Un saludo!

click to hide/show revision 2
No.2 Revision

Suponiendo que el campo que quieres usar sea un campo de texto:

Sub Alfa

Sub Alfa
Conn = ThisDatabaseDocument.CurrentController.ActiveConnection   ' Conectamos para recoger los datos de las tablas
oStat=Conn.createStatement()   ' Creación de la conexión
Form=ThisComponent.Drawpage.Forms.getByName("Nombre_De_Mi_Formulario")   Form=ThisComponent.Drawpage.Forms.getByName("Nombre_De_Mi_Formulario")
' Formulario desde el que vamos a trabajar    
 Campo= Form.getByName("Nombre_del_Campo")                                               Form.getByName("Nombre_del_Campo")
' Campo del que queremos recoger el contenido
 Clave= Campo.Text                                                                       Campo.Text
' Texto incluido en el campo
 Shell "explorer " & "C:\MisArchivos\Extraterrestres\Galimatías\" & Clave, vbNormalFocus vbNormalFocus
' Abrimos la carpeta específica
End sub

End sub
Si quieres usar números, entonces usa Cint(Campo.text) Cint(Campo.text)
Esperemos que funcione.

Un saludo!

click to hide/show revision 3
No.3 Revision

Suponiendo que el campo que quieres usar sea un campo de texto:

Sub Alfa
Alfa  
Conn = ThisDatabaseDocument.CurrentController.ActiveConnection  
' Conectamos para recoger los datos de las tablas
tablas  
oStat=Conn.createStatement()  
' Creación de la conexión
conexión  Form=ThisComponent.Drawpage.Forms.getByName("Nombre_De_Mi_Formulario")

 Form=ThisComponent.Drawpage.Forms.getByName("Nombre_De_Mi_Formulario")  
' Formulario desde el que vamos a trabajar    
 Campo= Form.getByName("Nombre_del_Campo")
Form.getByName("Nombre_del_Campo")  
' Campo del que queremos recoger el contenido
contenido  
 Clave= Campo.Text
Campo.Text  
' Texto incluido en el campo
campo  
 Shell "explorer " & "C:\MisArchivos\Extraterrestres\Galimatías\" & Clave, vbNormalFocus
vbNormalFocus  
' Abrimos la carpeta específica
específica  
End sub

Si quieres usar números, entonces usa Cint(Campo.text)
Esperemos que funcione.

Un saludo!

Suponiendo que el campo que quieres usar sea un campo de texto:

Sub Alfa  
Conn = ThisDatabaseDocument.CurrentController.ActiveConnection  
' Conectamos para recoger los datos de las tablas  
oStat=Conn.createStatement()  
' Creación de la conexión  
 Form=ThisComponent.Drawpage.Forms.getByName("Nombre_De_Mi_Formulario")  
' Formulario desde el que vamos a trabajar    
 Campo= Form.getByName("Nombre_del_Campo")  
' Campo del que queremos recoger el contenido  
 Clave= Campo.Text  
' Texto incluido en el campo  
 Shell "explorer " & "C:\MisArchivos\Extraterrestres\Galimatías\" & Clave, vbNormalFocus  
' Abrimos la carpeta específica  
End sub

Si quieres usar números, entonces usa Cint(Campo.text)
Esperemos que funcione.

Un saludo!

Ejemplo de aplicación:

C:\fakepath\Base de datos nueva.odb