Discussion :

[aupositeur]

Bonsoir à tous,

j'ai dans un formulaire un champ texte de lequel l'utilisateur introduit une donnée de ce genre : 1234567890

J'aimerai au clic qu'il pointe vers : http://workplaces2010.internal.econo.../facturatieS4/1234567890 (2017).pdf

Croyez vous que cela est possible?

merci de m'amener sur le bon chemin...

Belle soirée

[marot_r]

Bonjour, ça c'est VRAIMENT facile.

Sur clic :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

call FollowHyperlink("http://workplaces2010.internal.econo.../facturatieS4/" & Me.TonChamp & " (2017).pdf")

Et cela marche pour presque tous les types de liens (documents, page web, répertoire, ...)

A+

[aupositeur]

Bonjour, ça c'est VRAIMENT facile.

Ouais mais toi t'es ps Belge, c'est pour ça

Merci Beaucoup beaucoup beaucoup... je vais tester

Edit :

Je viens de tester et j'ai deux questions supplémentaires :

Est-il possible que le (2017) soit remplacé par l'année en cours
J'ai essayé ceci sans succé (" & year (date) & " ).pdf"

Quand le champ est vide il essaye tout de même de joindre le lien or ce n'est pas necessaire.

ceci est en bonne voie?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Sharepoint_Click()
    If Not (IsNull(Ctrl.Value) Or Ctrl.Value = "") Then
Call FollowHyperlink(" <a href="http://workplaces2010.internal.economie.fgov.be/sites/fedcom/S4/facturatie" target="_blank">http://workplaces2010.internal.econo.../S4/facturatie</a> S4/" & Me.Sharepoint & " (2017).pdf")
End Sub

[marot_r]

Bonjour.

essaye cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Sharepoint_Click()
 
    If Me.SharePoint & "" <>"" Then
       Call FollowHyperlink("http://workplaces2010.internal.economie.fgov.be/sites/fedcom/S4/facturatie" & Me.Sharepoint & " (" & year(Date) & ".pdf")
    end if
 
End Sub

Comme ce n'est pas affiché, tu n'as pas à en faire un lien "agréable" pour un humain donc on peut simplifier la syntaxe HTML.

le Me.SharePoint & "" est une astuce : Null & "" donne "" donc cela simplifie légèrement la syntaxe.

A+

[aupositeur]

Merci PADAWAN
Ca fonctionne.. T'es genial...

[marot_r]

Bonjour.

T'es genial...

Merci cela fait toujours du bien d'être reconnu à sa juste valeur :-).

Blague à part, si tu considères la discussion comme close, merci d'appuyer sur le bouton :Resolu: en bas de la page.

A+

[aupositeur]

Arffff, c'est fait un bout de temps que j'ai ouvert ce post... Ca fonctionnait, mais aujourd'hui, j'ai une nouvelle demande avec des nouvelles erreurs

Je m'explique:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
 
Private Sub Sharepoint_DblClick(Cancel As Integer)
Call FollowHyperlink(" http://workplaces2010.internal.economie.fgov.be/sites/fedcom/S4/facturatie S4/" & Me.Sharepoint & " (" & Me.budget.Column(1) & ").pdf")
 
End Sub

ce code fonctionne très bien, sauf quand j'imbrique ce formulaire sous un autre.



J'arrive pas à me dépatouiller de ce truc...

merci pour votre aide...

[marot_r]

Essaye :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
dim lien as string
lien=" http://workplaces2010.internal.economie.fgov.be/sites/fedcom/S4/facturatie S4/" & Me.Sharepoint & " (" & Me.budget.Column(1) & ").pdf"
msgbox lien
Call FollowHyperlink(lien)

Le msgbox est juste pour vérifier le lien calculé.

A+

[aupositeur]

WAAAAAAAAAOUHHHHHHHHHHHHHHHHHHHHHHH !!!

En Belgique, ca veut dire : Ouais, ca marche, c'est cool !
Mille fois merciiiiis

sauf quand je repasse mon extension accdb vers du accdr



Et en y regardant de plus pret, je me rends compte qu'avec le fichier accdb, je bypass une fenetre de connexion mais qu'avec le fichier accdr je n'ai pas cette possibilité.
donc je suppose que c'est sur ma page connexion qu'il y a un problème dont voici le code :

sur le bouton connexion (Commande9_click)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
 
Private Sub Commande9_Click()
Me.Requery
Dim sql, User_id, User_groupe   As String
Dim rs As DAO.Recordset
Static i As Byte
sql = "SELECT * FROM users WHERE TRIGRAMME = '" & Me.txt_user & "' AND PASWD ='" & Me.txt_pass & "';"
Set rs = CurrentDb.OpenRecordset(sql)
If Not rs.EOF Then
  DoCmd.OpenForm "F_Intro", acNormal, , , , acWindowNormal
  DoCmd.Close acForm, "F_Connexion"
  User_id = rs("TRIGRAMME").Value
  User_groupe = rs("GROUPE").Value
Else
  MsgBox "(Identifiant, Mot de Passe) incorrect ", vbInformation, "Connexion"
  i = i + 1
End If
If i = 3 Then
MsgBox "Vous avez dépassé le nombre de tentatives autorisées", vbCritical
DoCmd.Quit
End If
End Sub

[marot_r]

Essaye une recherche dans Google en combinant accdr et followhyperlink.

Est-ce que cela marche avec un texte en dur ?

Et je n'y ai pas pensé avant mais il serait sans doute prudent de ne pas mettre le domaine de base dans message.
Un hacker mal intentionné pourrait, peut-être, en tirer avantage.

A+

[aupositeur]

Essaye une recherche dans Google en combinant accdr et followhyperlink.

Est-ce que cela marche avec un texte en dur ?

Et je n'y ai pas pensé avant mais il serait sans doute prudent de ne pas mettre le domaine de base dans message.
Un hacker mal intentionné pourrait, peut-être, en tirer avantage.

A+

As tu vu la mise à jour de mon dernier message?

[marot_r]

Non je ne l'avais pas vu.

Peux-tu faire un test avec le MsgBox dans ton Accdr pour vérifier que lien est bien ce que tu attends car à priori je ne vois rien dans ton code qui justifie cela.

A+