FAQ
Système
Lorsque dans la table, existe un champ qui contient le chemin et le nom d'un fichier, il est facile de démarrer le programme par défaut attribué à son extension.
Devant votre zone de texte, placez une étiquette indépendante. Eventuellement, couper et coller l'étiquette existante ce qui aura pour effet de la rendre indépendante.
Private Sub Form_Current()
'// Préparation de l'étiquette
If IsNull(Me.NomImage.Value) Then
Me.lbl_NomImage.Caption = "Pas d'image"
Me.lbl_NomImage.FontUnderline = False
Me.lbl_NomImage.ForeColor = vbBlack
Me.lbl_NomImage.FontUnderline = False
Me.lbl_NomImage.ForeColor = vbBlack
Else
Me.lbl_NomImage.Caption = Me.NomImage.Value
Me.lbl_NomImage.FontUnderline = True
Me.lbl_NomImage.ForeColor = vbBlue
Me.lbl_NomImage.FontUnderline = True
Me.lbl_NomImage.ForeColor = vbBlue
End If
End Sub
Private Sub lbl_NomImage_Click()
'//
'// Sur clic de l'étiquette
'//
If Not IsNull(Me.NomImage) Then
Me.lbl_NomImage.HyperlinkAddress = "file:" & Me.NomImage.Value
Me.lbl_NomImage.Hyperlink.Follow
Me.lbl_NomImage.HyperlinkAddress = ""End If
End Sub