Erreur d'incompatibilité de type 13

**Tristan33000** · 17/06/2009, 09h55

Alors je me rappel que j'avai eu la même erreur il y a quelques temps mais je n'arrive pas a me souvenir comment j'avas réglé le problème et la je n'y arrive pas ...

Voila le code :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Totaux()
    Dim soustotal As Single
 
    soustotal = Me!FormTot1 + Me!FormTot2 + Me!FormTot3 + Me!FormTot4 + Me!FormTot5 + Me!FormTot6 + Me!FormTot7 + Me!FormTot8 + Me!FormTot9 + Me!FormTot10 + Me!FormTot11 + Me!FormTot12 + Me!FormTot13 + Me!FormTot14 + Me!FormTot15 + Me!FormTot16 + Me!FormTot17 + Me!FormTot18 + Me!FormTot19
    TxtSt.Value = soustotal
 
    TxtTTC.Value = Me!TxtSt - Me!TxtReduc
 
End Sub

Il bloque à la ligne soustotal = Me!FormTot1 + ...

J'ai essayé de changé le type de soustotal en variant ( au cas ou ...) sans résultat , j'ai mis par défault 0 à tout les FormTot mais j'ai l'impression qu'il ne les prend pas quand je regarde dessus j'ai "" rien en fait ... je l'ai ai mis a 0 par default directement sur le formulaire puis dans le code avec :

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
            FormTot1.Value = 0
            FormTot2.Value = 0
            FormTot3.Value = 0
            FormTot4.Value = 0
            FormTot5.Value = 0
            FormTot6.Value = 0
            FormTot7.Value = 0
            FormTot8.Value = 0
            FormTot9.Value = 0
            FormTot10.Value = 0
            FormTot11.Value = 0
            FormTot12.Value = 0
            FormTot13.Value = 0
            FormTot14.Value = 0
            FormTot15.Value = 0
            FormTot16.Value = 0
            FormTot17.Value = 0
            FormTot18.Value = 0
            FormTot19.Value = 0

Mais cela ne change rien ...

Cordialement

Tristan

**jimay** · 17/06/2009, 10h07

Bonjour,

Peut être qu'il faudrait "forcer" Access à prendre ces champs en tant que nombres en utilisant la fonction val() sur les Me!FormTotX ?

**Tristan33000** · 17/06/2009, 10h15

Non je vien de tester c'est la même erreur et il prennent "" comme valeur ...ce qui est étrange c'est que j'ai le même code sur un autre formulaire mais il prend bien les 0 comme valeur par default ...

**jimay** · 17/06/2009, 10h20

Bah désolé je ne vois pas trop..

Peut être vérifier que les champs sont en mode "numérique" dans ton formulaire mais sinon aucune idée...

désolé

**Tristan33000** · 17/06/2009, 10h26

C'est pas grave !

Oui ils sont bien de type euro en faite maisbon c'est numérique et cela ne posait pas de souci à l'autre...

Cordialement.

Tristan.

**Tristan33000** · 17/06/2009, 10h56

J'arrive à mes fins avec se truc immonde :

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
121
122
123
124
125
126
127
128
129
130
131
Sub Totaux()
    Dim soustotal As Single
    Dim Reduc, Tot1, Tot2, Tot3, Tot4, Tot5, Tot6, Tot7, Tot8, Tot9, Tot10, Tot11, Tot12, Tot13, Tot14, Tot15, Tot16, Tot17, Tot18, Tot19 As Single
    If Me!FormTot1 <> "" Then
        Tot1 = Me!FormTot1
    End If
    If Me!FormTot1 = "" Then
        Tot1 = 0
    End If
    If Me!FormTot2 <> "" Then
        Tot2 = Me!FormTot2
    End If
    If Me!FormTot2 = "" Then
        Tot2 = 0
    End If
    If Me!FormTot3 <> "" Then
          Tot3 = Me!FormTot3
    End If
    If Me!FormTot3 = "" Then
        Tot3 = 0
    End If
    If Me!FormTot4 <> "" Then
          Tot4 = Me!FormTot4
    End If
    If Me!FormTot4 = "" Then
        Tot4 = 0
    End If
    If Me!FormTot5 <> "" Then
          Tot5 = Me!FormTot5
    End If
    If Me!FormTot5 = "" Then
        Tot5 = 0
    End If
    If Me!FormTot6 <> "" Then
          Tot6 = Me!FormTot6
    End If
    If Me!FormTot6 = "" Then
        Tot6 = 0
    End If
    If Me!FormTot7 <> "" Then
          Tot7 = Me!FormTot7
    End If
    If Me!FormTot7 = "" Then
        Tot7 = 0
    End If
    If Me!FormTot8 <> "" Then
          Tot8 = Me!FormTot8
    End If
    If Me!FormTot8 = "" Then
        Tot8 = 0
    End If
    If Me!FormTot9 <> "" Then
          Tot9 = Me!FormTot9
    End If
    If Me!FormTot9 = "" Then
        Tot9 = 0
    End If
    If Me!FormTot10 <> "" Then
          Tot10 = Me!FormTot10
    End If
    If Me!FormTot10 = "" Then
        Tot10 = 0
    End If
    If Me!FormTot11 <> "" Then
          Tot11 = Me!FormTot11
    End If
    If Me!FormTot11 = "" Then
        Tot11 = 0
    End If
    If Me!FormTot12 <> "" Then
          Tot12 = Me!FormTot12
    End If
    If Me!FormTot12 = "" Then
        Tot12 = 0
    End If
    If Me!FormTot13 <> "" Then
          Tot13 = Me!FormTot13
    End If
    If Me!FormTot13 = "" Then
        Tot13 = 0
    End If
    If Me!FormTot14 <> "" Then
          Tot14 = Me!FormTot14
    End If
    If Me!FormTot14 = "" Then
        Tot14 = 0
    End If
    If Me!FormTot15 <> "" Then
          Tot15 = Me!FormTot15
    End If
    If Me!FormTot15 = "" Then
        Tot15 = 0
    End If
    If Me!FormTot16 <> "" Then
          Tot16 = Me!FormTot16
    End If
    If Me!FormTot16 = "" Then
        Tot16 = 0
    End If
    If Me!FormTot17 <> "" Then
          Tot17 = Me!FormTot17
    End If
    If Me!FormTot17 = "" Then
        Tot17 = 0
    End If
    If Me!FormTot18 <> "" Then
          Tot18 = Me!FormTot18
    End If
    If Me!FormTot18 = "" Then
        Tot18 = 0
    End If
    If Me!FormTot19 <> "" Then
          Tot19 = Me!FormTot19
    End If
    If Me!FormTot19 = "" Then
        Tot19 = 0
    End If
 
 
 
    soustotal = Tot1 + Tot2 + Tot3 + Tot4 + Tot5 + Tot6 + Tot7 + Tot8 + Tot9 + Tot10 + Tot11 + Tot12 + Tot13 + Tot14 + Tot15 + Tot16 + Tot17 + Tot18 + Tot19
    TxtSt.Value = soustotal
    If Me!TxtReduc <> "" Then
        Reduc = Me!TxtReduc
    Else
        Reduc = 0
    End If
 
    TxtTTC.Value = Me!TxtSt - Reduc
 
End Sub

Donc bon c'est vraiment moche mais pas moyen de voir pourquoi il voulait pas les mettre à zero ...

**Tofalu** · 17/06/2009, 15h52

C'est logique, une chaine vide n'est pas 0, ni même une valeur Null.

Attention au typage, dans ton code, seul Tot19 est single les autres ne sont pas typés.

Le code peut s'alleger avec une boucle

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Totaux()
    Dim soustotal As Currency
    Dim i As Integer
 
 
    For i = 1 To 19
        soustotal = soustotal + Val(Nz(Me.Controls("FormTot" & i).Value, 0))
    Next i
 
 
    TxtSt.Value = soustotal
    TxtTTC.Value = soustotal - Val(Nz(Me!TxtReduc, 0))
End Sub

Voire même se factoriser

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
Function ChaineVideAzero(V As Variant) As Currency
    ChaineVideAzero = Val(Nz(V, 0))
End Function
 
Sub Totaux()
    Dim soustotal As Currency
    Dim i As Integer
 
    For i = 1 To 19
        soustotal = soustotal + ChaineVideAzero(Me.Controls("FormTot" & i).Value)
    Next i
 
    TxtSt.Value = soustotal
    TxtTTC.Value = soustotal - ChaineVideAzero(Me!TxtReduc)
End Sub

**Tristan33000** · 17/06/2009, 16h20

Merci Tofalu sa marche impecable j'avais pensais pensé (très vite) à faire une boucle mais je vu vite arrété par mon imcompétence à faite des concaténations en vb !

Cordialement

Tristan

Erreur d'incompatibilité de type 13 [AC-2007]

IHM

Discussions similaires

Partager

Partager