Problema con cuadro de dialogo
Publicado por Mario (2 intervenciones) el 08/04/2019 16:35:13
Hola Comunidad, tengo unproblemita del que no encuentro la solución. Al apretar un objeto de un formulario de access me tiene que salir un cuadro para asignar archivo, y no hay forma, se me cuelga el programa, las lineas de codigo son las siguientes :
Se trata de un boton que al hacer click sobre el, saca un cuadro de dialogo (del tipo abrir), para asignar la ruta de un documento a la base de datos.
Gracias por adelantado
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
Private Sub Comando192_Click()
On Error GoTo Err_Comando192_Click
Dim oApp As Object
Dim d As String
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
d = DLookup("[Plantilla]", "[Plantillas Documentación]", "[Nivel Documental] = forms![identificación documento-crear]![Nivel]")
oApp.Documents.Add (d)
'oApp.Documents.Open ("C:\Mis documentos\Procedimientos Calidad\PlantillasM.dot")
If oApp.Dialogs(84).Show = -1 Then
Me!Dirección = oApp.Documents(1).FullName
Me!Titulo = oApp.Documents(1).Name
End If
Exit_Comando192_Click:Exit Sub
Err_Comando192_Click: MsgBox Err.DescriptionResume Exit_Comando192_Click
End Sub
Se trata de un boton que al hacer click sobre el, saca un cuadro de dialogo (del tipo abrir), para asignar la ruta de un documento a la base de datos.
Gracias por adelantado
Valora esta pregunta
0
