Anónimo
Condicionante vba access
Hola que tal
Mira tengo un formulario, en este agregue 6 botones llamado "archivopdf" todos pretendo que hagan la misma función, la cual seria que al presionarlo me abra un archivo en pdf si es que este se encuentra disponible si no que me mande un mensaje de "error el archivo no existe" .
Lo que hice fue crear un campo en una tabla llamado "rutaPDF" y en este escribí la ruta en la que se encuentra el archivo.
Entonces lo que quiero saber es en código de vba como poner una condicionante de que si el campo "rutapdf" esta vacío mande el mensaje.
Gracias por tu ayuda
Mira tengo un formulario, en este agregue 6 botones llamado "archivopdf" todos pretendo que hagan la misma función, la cual seria que al presionarlo me abra un archivo en pdf si es que este se encuentra disponible si no que me mande un mensaje de "error el archivo no existe" .
Lo que hice fue crear un campo en una tabla llamado "rutaPDF" y en este escribí la ruta en la que se encuentra el archivo.
Entonces lo que quiero saber es en código de vba como poner una condicionante de que si el campo "rutapdf" esta vacío mande el mensaje.
Gracias por tu ayuda
Respuesta de Roberto Hinojosa
1
Ok perdona por lo tarde de mi respuesta pero te comento lo siguiente yo aplico el siguiente código y no he tenido problema
Private Sub OfSECG_Click(Cancel As Integer)
On Error GoTo Err_Corr_Click
Application.FollowHyperlink CurrentProject.Path & "\" & "TuCarpeta" & "\" & "Nombre del Archivo & ".pdf"
Exit_Corr_DblClick:
Exit Sub
Err_Corr_DblClick:
MsgBox "No existe archivo asociado o el nombre no coincide", vbExclamation, "ERROR"
Resume Exit_Corr_DblClick
End Sub
Espero que te sirva yo por lo general utilizo CurrentProject. Path para evitar toda la ruta del archivo ya que en caso de que cambie de lugar la aplicación no tenga errores por lo tanto te lo recomiendo
Private Sub OfSECG_Click(Cancel As Integer)
On Error GoTo Err_Corr_Click
Application.FollowHyperlink CurrentProject.Path & "\" & "TuCarpeta" & "\" & "Nombre del Archivo & ".pdf"
Exit_Corr_DblClick:
Exit Sub
Err_Corr_DblClick:
MsgBox "No existe archivo asociado o el nombre no coincide", vbExclamation, "ERROR"
Resume Exit_Corr_DblClick
End Sub
Espero que te sirva yo por lo general utilizo CurrentProject. Path para evitar toda la ruta del archivo ya que en caso de que cambie de lugar la aplicación no tenga errores por lo tanto te lo recomiendo
Uppss perdón de me fue el DbClik en las instrucciones de error por lo tanto quítales el "Dbl"
Gracias de todas formas lo tendré en cuenta, dado que encontré otra forma de hacerlo.
Private Sub cmd_abrirpdf_Click()
If Not IsNull(rutaPDF) Then
FollowHyperlink Me.rutaPDF
Else
MsgBox "NO TIENE DOCUMENTOS DIGITALIZADOS", , "ERROR"
End If
Saludos
Private Sub cmd_abrirpdf_Click()
If Not IsNull(rutaPDF) Then
FollowHyperlink Me.rutaPDF
Else
MsgBox "NO TIENE DOCUMENTOS DIGITALIZADOS", , "ERROR"
End If
Saludos