Problème d'affichage d'un sous-formulaire..

**DeFCrew** · 20/06/2006, 10h22

Bonjour à tous les developpeur,

J'ai une petitie question toute simple :

Est-il normal que depuis peu je n'arrive plus à faire apparaître un SF dans une Form

En effet, le SF devient tout blanc dès lors que j'execute l'application.

A contrario, dès que je rentre en mode "Création de formulaire", le SF apparaît normalement.

Quelqu'un aurai t-il une idée du pourquoi du comment ?
(ce serai sympa)

**maxdwarf** · 20/06/2006, 11h37

Pour trouver une eventuelle solution, ce serait pas mal de mettre le code de ton ssform...

**DeFCrew** · 20/06/2006, 11h43

Voici le code de mon sous-formulaire :

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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
Option Compare Database
Option Explicit
Dim varAmt As Single
Dim varTotal As Single
 
 
Private Sub bsl1_Click()
    If Me.bsl1 Then
        Me.txtetape_1_1_.BackColor = 11592637
        varAmt = varAmt + 1
    Call PctMeter(varAmt, varTotal)
    Else
        Me.txtetape_1_1_.BackColor = -2147483643
        varAmt = varAmt - 1
    Call PctMeter(varAmt, varTotal)
    End If
        Me.txtetape_1_1_.Requery
End Sub
 
 
Private Sub bsl2_Click()
    If Me.bsl2 Then
        Me.txtetape_1_2_.BackColor = 11592637
        varAmt = varAmt + 1
    Call PctMeter(varAmt, varTotal)
    Else
        Me.txtetape_1_2_.BackColor = -2147483643
        varAmt = varAmt - 1
    Call PctMeter(varAmt, varTotal)
    End If
        Me.txtetape_1_2_.Requery
End Sub
 
Private Sub bsl3_Click()
    If Me.bsl3 Then
        Me.txtetape_1_3_.BackColor = 11592637
        varAmt = varAmt + 1
    Call PctMeter(varAmt, varTotal)
    Else
        Me.txtetape_1_3_.BackColor = -2147483643
        varAmt = varAmt - 1
    Call PctMeter(varAmt, varTotal)
    End If
        Me.txtetape_1_3_.Requery
 
End Sub
 
Private Sub bsl4_Click()
    If Me.bsl4 Then
        Me.txtetape_1_4_.BackColor = 11592637
        varAmt = varAmt + 1
    Call PctMeter(varAmt, varTotal)
    Else
        Me.txtetape_1_4_.BackColor = -2147483643
        varAmt = varAmt - 1
    Call PctMeter(varAmt, varTotal)
    End If
        Me.txtetape_1_4_.Requery
 
End Sub
Private Sub bsl5_Click()
    If Me.bsl5 Then
        Me.txtetape_1_5_.BackColor = 11592637
        varAmt = varAmt + 1
    Call PctMeter(varAmt, varTotal)
    Else
        Me.txtetape_1_5_.BackColor = -2147483643
        varAmt = varAmt - 1
    Call PctMeter(varAmt, varTotal)
    End If
        Me.txtetape_1_5_.Requery
 
End Sub
 
Private Sub bsl6_Click()
    If Me.bsl6 Then
        Me.txtetape_1_6_.BackColor = 11592637
        varAmt = varAmt + 1
    Call PctMeter(varAmt, varTotal)
    Else
        Me.txtetape_1_6_.BackColor = -2147483643
        varAmt = varAmt - 1
    Call PctMeter(varAmt, varTotal)
    End If
        Me.txtetape_1_6_.Requery
 
End Sub
Private Sub Form_Load()
 
Me.txtetape_1_1_.BackColor = -2147483643
Me.txtetape_1_2_.BackColor = -2147483643
Me.txtetape_1_3_.BackColor = -2147483643
Me.txtetape_1_4_.BackColor = -2147483643
Me.txtetape_1_5_.BackColor = -2147483643
Me.txtetape_1_6_.BackColor = -2147483643
 
End Sub
 
Public Function PctMeter(varAmt As Variant, varTotal As Variant)
Dim sngPct As Single
 
 
varTotal = 36
    sngPct = varAmt / varTotal
    If sngPct <= 1 Then
        Me!baselbl.Caption = Int(sngPct * 100) & "%"
        Me!lblmeter.Width = CLng(Me!baselbl.Width * sngPct)
    Else
        Me!baselbl.Caption = "Greater than 100% - Check your amounts"
        Me!lblmeter.Width = CLng(Me!baselbl.Width * 1)
    End If
    Select Case sngPct
        Case Is < 0.15
            Me!lblmeter.BackColor = 255
        Case Is < 0.5
            Me!lblmeter.BackColor = 65535
        Case Else
            Me!lblmeter.BackColor = 65280
    End Select
End Function

Voilà j'éspère que sa va aider

Merci pour ton aide

**maxdwarf** · 20/06/2006, 11h59

je ne comprend pas...tous semble correct sur ce code

lorsque tu appelle ton ssform depuis ton form, quel evenement utilises-tu?

-> il m'est déjà arrivé d'avoir un soucis (non-expliqué) avec x_Enter() (mon ssform n'affichait que sa boite (le contour bleu windows), sans ce qu'il avait dedans..
si par contre tu utilises la méthode classique du bouton x_Click(), je n'ai pas de piste

**DeFCrew** · 20/06/2006, 12h02

Juste pour précisez :

Ce SF contient des données liées à des tables.
Je n'ai pas programmer les liaison entre les textbox en vba mais directement depuis l'interface d'Access c'est pour sa que mon code peut paraître sans interêt de prime abord...

C'est tout

**DeFCrew** · 20/06/2006, 12h05

Et bien vu que je ne suis pas un pro d'Access et que j'ai commencé a m'y mettre il ya 1 mois, j'utilise (j'ai honte), l'assistant de SF pour le faire apparaître.

Ceci dit, sa fonctionnait très bien jusqu'à ce que quelque chose foire.

Et je c'est pas quoi...

Aurais-tu une idée ?

Problème d'affichage d'un sous-formulaire..

IHM

Discussions similaires

Partager

Partager