Lien vers form

**lucas-18** · 02/01/2006, 23h28

Salut,

J'aimerais dans un formulaire créer une sorté de lien hypertexte sans utiliser de bouton de commande donc pour ouvrir un autre formulaire...

Vous savez m'aider ?

**Maxence HUBICHE** · 03/01/2006, 01h32

oui

Tu fais un intitulé (une étiquette, un libellé, c'est pareil !)
Tu écris ce que tu veux dedans (m'en fout)
Tu vas dans les propriétés de ton étiquette
Et tout est dedans !
Cherches la propriété qui va bien (lien hypertexte) et, quand tu auras cliqué dedasn, tu verras 3 petits points sur un bouton, tout de suite à droite.
Clique dessus, ca va t'aider

**lucas-18** · 03/01/2006, 18h19

Non je connaissais déjà cà ; je cherche à ce que le lien hypertexte ne soit pas souligné ni en bleu en fait

**b_steph_2** · 04/01/2006, 18h14

je ne sais pas si c'est possible mais essaie de taper ton texte dans une zone de texte et créer un évènement dessus (pour ça va dans le code vba)

**Dolphy35** · 04/01/2006, 18h17

salut,

Tu veux faire ce 'Lien' avec quel type de contrôle.

Tu peux faire sur Evenement Click ou MouseMove

@+

**lucas-18** · 04/01/2006, 19h10

Envoyé par Dolphy35

salut,

Tu veux faire ce 'Lien' avec quel type de contrôle.

Tu peux faire sur Evenement Click ou MouseMove

@+

Et bien je veux faire un lien hypertexte qui ouvre un formulaire mais sans que ce lien ne soit souligné et pas en bleu.

**Dolphy35** · 04/01/2006, 19h14

re,

Code :

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

1
2
3
4
5
Private Sub Lien_Click()
 
    DoCmd.OpenForm "Nom du Formulaire à ourvir"
 
End Sub

Fait un OpenForm sur le Click de ton contrôle, cela marche avec les etiquettes, les zones de texte.

tu peux faire la même chose sur le survolle du curseur (souris)

Code :

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

1
2
3
4
5
Private Sub Lien_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
    DoCmd.OpenForm "Nom du Formulaire à ourvir"
 
End Sub

Esseye @+

**lucas-18** · 04/01/2006, 19h27

Envoyé par Dolphy35

re,

Code :

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

1
2
3
4
5
Private Sub Lien_Click()
 
    DoCmd.OpenForm "Nom du Formulaire à ourvir"
 
End Sub

Fait un OpenForm sur le Click de ton contrôle, cela marche avec les etiquettes, les zones de texte.

tu peux faire la même chose sur le survolle du curseur (souris)

Code :

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

1
2
3
4
5
Private Sub Lien_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
    DoCmd.OpenForm "Nom du Formulaire à ourvir"
 
End Sub

Esseye @+

Génial merci, mais je voudrais en fait qu'il apparaisse la main sur le lien

**cafeine** · 04/01/2006, 19h30

Hello,

inspire toi alors du code de la FAQ

http://access.developpez.com/faq/?pa...ace#ChgAppCurs

tu pourrais placer ce code sur l'événement MouseMove de ton contrôle.

**lucas-18** · 04/01/2006, 19h33

Oui je pourrais mais il y a toutes sortes de curseur sauf la main ...
ou bien télécharger un fichier .ani mais bon où le trouver ??

**cafeine** · 04/01/2006, 19h36

avec les mots : hand.cur main

**lucas-18** · 04/01/2006, 19h38

merci vé essayer

**lucas-18** · 04/01/2006, 19h45

Envoyé par cafeine

Hello,

inspire toi alors du code de la FAQ

http://access.developpez.com/faq/?pa...ace#ChgAppCurs

tu pourrais placer ce code sur l'événement MouseMove de ton contrôle.

Juste une chose : je mets ou ce code ???

**cafeine** · 04/01/2006, 19h47

Si tu en as besoin uniquement pour ce form, tu peux le mettre dans le module du formulaire ...

**lucas-18** · 04/01/2006, 19h53

oké mais je dois quand même mettre un code pour l'étiquette, pour qu'il sache qu'il doit mettre la main au passage ...

**Dolphy35** · 04/01/2006, 19h55

re

Sur le Mouse_Move tu met le code pour afficher le curseur.

@+

**lucas-18** · 04/01/2006, 20h00

Envoyé par Dolphy35

re

Sur le Mouse_Move tu met le code pour afficher le curseur.

@+

Justement je ne sais pas quel code il faut mettre

J'ai mis ca dans le module de mon form :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Declare Function SetSystemCursor Lib "user32" (ByVal hcur As Long, ByVal id As Long) As Long
Private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal _
 lpCursorName As Long) As Long
 
Private Sub change_curseur()
Call SetSystemCursor(LoadCursorFromFile("D:\Divers\hand.cur"), 32513)
End Sub
 
Private Sub restaure()
Call SetSystemCursor(LoadCursor(0, 32512), 32512)
Call SetSystemCursor(LoadCursor(0, 32513), 32513)
End Sub

Mais pour l'évènement Mouse_move, je mets quoi ?

**Dolphy35** · 04/01/2006, 20h14

tu appel la fonction

Code :

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

1
2
3
4
5
Private Sub Lien_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
 
    Call change_curseur
 
End Sub

**lucas-18** · 04/01/2006, 20h19

Voilà j'ai fais tout ce que vous m'avaez dit mais lorsque je click sur le lien pour ouvrir le form, il ouvre VB et me met comme m'essage :

ERREUR DE COMPILATION
SUB OU FUNCTION NON DEFINIE

en mettant en surbrillance LoadCursorFromFile

**Dolphy35** · 04/01/2006, 22h05

J'ai le même soucis, je regarde et je te tiens au courant .

@+

Lien vers form

Access

Discussions similaires

Partager

Partager