Access - al seleccionar un Cuadro Combinado me marca error

 
Vista:

al seleccionar un Cuadro Combinado me marca error

Publicado por JOSE LUIS (2 intervenciones) el 14/03/2019 19:10:48
Hola y muchas gracias por su valiosa ayuda.
Tengo una base de datos de vértices de limites Municipales y en el formulario de inicio tengo un boton pe me enlaza con otro formulario que es un Cuadro combinado donde me aparecen los nombres de los 5 Municipios y ahi selecciono cualquiera de ellos y me debe abrir un archivo pdf en el nitro o cualquiera que te lea pdf.
el campo de la tabla de donde jala los nombres de los Municipios se llama Mapa_Municipio y la ruta donde se encuentran los mapas pdf es: C:\PROYECTO LIMITES\MAPA GENERAL
estoy usando este codigo:

1
2
3
4
5
6
Private Sub CboMapaMunicipio_Click()
Dim ruta As String, vMAPA_MUNICIPIO As String
ruta = "C:\PROYECTO LIMITES\MAPA GENERAL\.pdf"
vruta = Me.Mapa_Municipio.Value
Me.Mapa_Municipio.Value = ruta & vMAPA_MUNICIPIO & ".pdf"
End Sub

pero al seleccionar un Municipio en el Cuadro Combinado me marca error en vruta = Me.Mapa_Municipio.Value se sombrea exactamente .Mapa_Municipio
si alguien me puede ayudar de antemano Muchas 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

al seleccionar un Cuadro Combinado me marca error

Publicado por Anonimo (3310 intervenciones) el 14/03/2019 21:27:26
Por una parte tenemos (en la tercera línea) esto:
ruta = "C:\PROYECTO LIMITES\MAPA GENERAL\.pdf"

Le sobra lo que esta remarcado (.PDF), la terminación se añade al final, no en el medio

En la cuarta linea tenemos una variable sin declarar (pero pudiera ser publica ....)
En la quinta linea utilizamos vMAPA_MUNICIPIO .... pero no tiene valor ¿sera que vruta ==> vMAPA_MUNICIPIO?

En fin, a momento actual tendriamos esto:

1
Me.Mapa_Municipio.Value = "C:\PROYECTO LIMITES\MAPA GENERAL\.pdf.pdf"

Si se le da valor a vMAPA_MUNICIPIO (digamos que Santiago), quedaría así:
1
Me.Mapa_Municipio.Value = "C:\PROYECTO LIMITES\MAPA GENERAL\.pdfSantiago.pdf"

Y si se le quita el error de la linea tres:
1
Me.Mapa_Municipio.Value = "C:\PROYECTO LIMITES\MAPA GENERAL\Santiago.pdf"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar