Access - Abrir una ventana para seleccionar archivo

Buenos días, quería haceros una consulta por un problema que me está volviendo loco.

Antes de nada, aviso que mis conocimientos de VB son muy muy básicos, así que tened paciencia conmigo

He heredado una base de datos (no la he hecho yo) creada en Access 2003 que me he visto obligado a transformar a Access 2010 de 64 bits. El problema que tengo es que una vez pasada a 2010, no consigo que funcione la instrucción que permite que, pulsando un botón, se abra una ventana para seleccionar un archivo del disco duro e introducirlo en la base de datos. El código en Access 2003 funciona sin problemas, pero en 2010 el botón se queda muerto y no hace nada.

Os paso el código, por si me podéis echar una mano:

Private Sub cmdSeleccionar_Click()
Dim strFilter As String
Dim archivo As String
strFilter = ahtAddFilterItem(strFilter, "Todos los archivos(*.*)", "*.*")

'Abro un cuadro para seleccionar el archivo
archivo = ahtCommonFileOpenSave(InitialDir:="C:\", Filter:=strFilter, OpenFile:=True, _
DialogTitle:="Seleccione el Documento", _
flags:=ahtOFN_FILEMUSTEXIST Or ahtOFN_HIDEREADONLY Or ahtOFN_NOCHANGEDIR)

If Not IsNull(archivo) And archivo <> "" Then
If FileLen(archivo) > 4194304 Then
If MsgBox("El documento seleccionado supera los 4 Mb de tamaño. ¿Desea guardar el documento?", vbYesNo) = vbYes Then
Me.OleDoc.SourceDoc = archivo
Me.OleDoc.Action = acOLECreateEmbed
Me.Ruta = archivo
Else
'nada
End If
Else
Me.OleDoc.SourceDoc = archivo
Me.OleDoc.Action = acOLECreateEmbed
Me.Ruta = archivo
End If
End If
Exit Sub


Como podéis ver, lo que hace es, al pulsar el botón abrir una ventana para seleccionar el archivo. Comprueba si su tamaño supera los 4 megas y nos advierte de ello y lo introduce en la base de datos.

Muchas gracias por vuestro tiempo

La función que estas utilizando para mostrar el cuadro de dialogo hace usos de llamadas a las APIs de Windows, recuerdo esa funcion de hace años más bien de los tiempos de access 97.

Te sugiero utilizar Application.FileDialog

Te adjunto un ejemplo sacado de de la ayuda de Access





Saludos

deneg_nhj

Hola Que tal, me gustaria saber de que forma puedo abrir el cuadro de dialogo para imprimir un archivo de texto pero desde un boton de access

1. hacer click
2. que se abra el archivo .txt
3. Que se envie a imprimir el archivo de forma automatica

la historia:
genero un ticket en un TPV, solo asi puede lograr imprimir en una impresora de ticket, luego tengo que abrir este archivo y enviarlo a imprimir para poder sacar el ticket y darselo al cliente

solo me falta el paso 3 que es lo que no he podido lograr,

si alguien me puede ayudar por favor...
les agradesco de antemano