Discussion :

[rob1son76]

Bonjour,

J'ai un formulaire qui m'ouvre un etat par un bouton.
Sur cet etat j'ai fait programme pour mettre les couleurs automatiquement.
Mon programme marche très bien sauf lorsque je met l'etat en fenêtre indépendante.
Ce que je suis obligé de faire si je veux que mon etat s'ouvre par dessus mon formulaire.
S'avez vous pourquoi mon programme ne marche plus a ce moment la (il est sur l'évènement activate de l'état)?
Avez vous une autre solution pour ouvrir mon état par dessus mon formulaire?

Merci

[ClaudeLELOUP]

Bonjour,

Avez vous une autre solution pour ouvrir mon état par dessus mon formulaire?

Access fait ça spontanément.

Mais peut-être as-tu ton formulaire en fenêtre indépendante ?
Si oui, c'est ce problème qu'il faut régler.

[rob1son76]

Oui mes formulaires principaux (ceux avec les onglet) sont en fenêtre indépendante.
Mais je n'ai pas le choix car si je ne les met pas en indépendante lors de l'ouverture on voit la barre de menu qui permet de modifier au dessus.
Et il ne faut surtout pas qu'elle soit accessible par les utilisateur ou il feront des bétises (déjà vécu).
Ca me permet aussi d'éviter qu'ils quittent la base comme des saguoins.

Donc mon problème reste.
Savez vous sur quel évènement je doit mettre mon code pour que celui-ci marche?

[rob1son76]

Serai tu comment rendre un etat indépendant en vb?
J'ai une idée que je voudrai tester.
Merci

[ClaudeLELOUP]

Voici deux ressources que tu devrais visiter pour résoudre le problème, là où il se pose.

- options de démarrage de la ligne de commande
http://loufab.developpez.com/tutorie...lignecommande/
- définir des options au démarrage
http://access.developpez.com/sources...tiondemarrage2

[rob1son76]

Merci je vais lire ca.
J'ai trouvé la solution pour que mon code marche alors que l'état est en fenêtre indépendante.
Je met mon code sur l'évènement détail format.
Voici mon code pour avoir des jolies couleurs.

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
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
Dim C, d As String
Dim ctrl As Control
Dim a As Variant
 
    For Each ctrl In Me.Controls
    If TypeOf ctrl Is TextBox Then
 
        If ctrl.Name Like "*-*" Then
        a = Split(ctrl.Name, "-")
 
    For i = 1 To 10
 
        d = a(0) & "-0"
        C = a(0) & "-" & i
 
 
        If ctrl.Name = d Then
        V = ctrl.Value
        End If
        If ctrl.Name = C And Not (ctrl.Name Like "PB*") Then
            If ctrl.Value >= V Then
            ctrl.BackColor = RGB(0, 255, 0)
            ElseIf ctrl.Value < V Then
            ctrl.BackColor = RGB(255, 0, 0)
            End If
        ElseIf ctrl.Name = C And ctrl.Name Like "PB*" Then
            If ctrl.Value <= V Then
            ctrl.BackColor = RGB(0, 255, 0)
            ElseIf ctrl.Value > V Then
            ctrl.BackColor = RGB(255, 0, 0)
            End If
        End If
    Next
        End If
    End If
    Next
End Sub

Merci de ton aide en tout cas.