Discussion :

[FabienN]

Salut à tous et toutes.
Voila je vous explique.
J'ai un problème d'affichage sur mes info-bulles dans mes formulaires, que ce soit sur des boutons ou des zones de texte, etc...
J'ai vu ça sur la FAQ, mais Lucifer parle de Label et je ne sais pas ce que c'est.
http://access.developpez.com/faq/?page=IHM#pbInfoBulle
Pouvez vous me renseigner SVP sur ces labels ?

Merci et bonne journée.

[stéphane_ais2]

Bonjour,

Il me semble que les labels désignent les étiquettes ;
Ou alors Lucifer parle-t-il du nom attribué aux zones de txt...

Je ne peux guère en dire plus...

@+

SE

[FabienN]

Ok merci
Mais c'est bizarre parce que les boutons non pas d'étiquette.
Je voir pour mes zones de textes.

Merci

[mcdotta]

Hello,


Le problème que tu as est que l'affichage des info-bulles de tes boutons n'est pas systématique ? C'est cela ?

Si oui, sache que tes boutons doivent être placés en premier plan

***************************************************
es boutons étaient placés dans un cadre transparent. Après avoir
séléctionné tous les boutons et il faut faire format, bring to front et
les bulles apparaissent.

http://support.microsoft.com/default.aspx?scid=kb;en-us;232191
***************************************************

Et ca c'est du code pour le faire auto si tu as plein plein de formulaires

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
.InSelection=True
Form must be open visible. acHidden will not work
 
Sub ResetFormsAndReports()
    ' Run this procedure once to reset all
    ' the sorting and filtering options on all
    ' your forms and reports.
    Dim frm As Form
    Dim rpt As Report
    Dim obj As AccessObject
    Dim ctl As Control
 
    ' Loop through all the forms:
    For Each obj In CurrentProject.AllForms
        DoCmd.OpenForm obj.Name, acDesign ', , , , acHidden
        Set frm = Forms(obj.Name)
        frm.Filter = ""
        frm.FilterOn = False
        frm.OrderBy = ""
        frm.OrderByOn = False
        If frm.AllowDesignChanges = True Then
            frm.AllowDesignChanges = False
        End If
        If frm.ViewsAllowed = 0 Then
            frm.ViewsAllowed = 1
        End If
        For Each ctl In Forms(obj.Name).Controls
            With ctl
                .InSelection = False
                Select Case .ControlType
                    Case acTextBox, acComboBox
                        .AllowAutoCorrect = False
                    Case acCommandButton
                        .InSelection = True
                        DoCmd.RunCommand acCmdBringToFront
                End Select
            End With
        Next ctl
        DoCmd.Close acForm, obj.Name, acSaveYes
    Next obj
 
    ' Loop through all the reports:
    For Each obj In CurrentProject.AllReports
        DoCmd.OpenReport obj.Name, acDesign
        Set rpt = Reports(obj.Name)
        rpt.Filter = ""
        rpt.FilterOn = False
        rpt.OrderBy = ""
        rpt.OrderByOn = False
        DoCmd.Close acReport, obj.Name, acSaveYes
    Next obj
End Sub

[FabienN]

Ok
Merci beaucoup mcdotta.
Donc j'explique la solution en français.
1 : Sélectionner l'objet.
2 : Aller dans Format puis mettre au premier plan.

Encore merci pour ta solution.