message : incompatibilité de type

**Chree74** · 03/01/2017, 08h18

Bonjour à tous et encore une fois merci d'avance !
Voilà j'ai un code qui me permet, via un formulaire, d'alimenter des tables. Il génère bien les nouveaux numéros, mais en fin d'exécution de code j'ai le message "incompatibilité de type" et l'ajout du nouvel enregistrement dans les tables ne se fait pas.
A noter que j'ai fait migrer la bdd de access 2.0 !

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
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
Private Sub valider_Click()
    On Error GoTo E_V
 
    Dim Db As DAO.Database
    Dim dt As DAO.Recordset
    Dim Db1 As DAO.Database
    Dim dt1 As DAO.Recordset
    Dim Dtcreat As Date
    Dim design As String * 70
    Dim Design2 As String * 70
    Dim Npl As Integer             'N° de plan d'Ensemble ce qui autorise 32.000 plans Ensemble
    Dim PROV As String * 10
    Dim t, I As Integer
    '*******************************************
 
    t = 0
    If IsNull([Forms]![Fp_s_Nv_planE]![datecreat]) Then
        MsgBox ("Provenance non Renseignée !!!")
        Exit Sub
    End If
 
    If IsNull([Forms]![Fp_s_Nv_planE]![Provenance]) Then
         MsgBox ("Provenance non Renseignée !!!")
         Exit Sub
    End If
 
    If IsNull([Forms]![Fp_s_Nv_planE]![Famille]) Then
         MsgBox ("Famille non Renseignée !!!")
         Exit Sub
    End If
 
    If IsNull([Forms]![Fp_s_Nv_planE]![produit]) Then
         MsgBox ("Produit non Renseigné !!!")
         Exit Sub
    End If
 
 If [Forms]![Fp_s_Nv_planE]![produit] = "" Then
         MsgBox ("Produit non Renseigné !!!")
         Exit Sub
    End If
 
    If IsNull([Forms]![Fp_s_Nv_planE]![Fonction]) Then
         MsgBox ("Fonction non Renseignée !!!")
         Exit Sub
    End If
 
    If IsNull([Forms]![Fp_s_Nv_planE]![fonctiond]) Then
         MsgBox ("Fonction Détail non Renseignée !!!")
         Exit Sub
    End If
    If ([Forms]![Fp_s_Nv_planE]![fonctiond]) = "" Then
         MsgBox ("Fonction Détail non Renseignée !!!")
         Exit Sub
    End If
 
    If IsNull([Forms]![Fp_s_Nv_planE]![designation]) Then
         MsgBox ("Désignation non Renseignée !!!")
         Exit Sub
    End If
 
             Set Db = DBEngine.Workspaces(0).OpenDatabase(chemin)
             Set dt = Db.OpenRecordset("PlansE", DB_OPEN_TABLE)
             dt.Index = "PrimaryKey"
 
             dt.MoveLast
            Total = dt.RecordCount
 
             If Total > 0 Then
                  dt.MoveLast
                  Npl = dt!NplanE + 1
                  Msg = CodeA & " viens de créer, le N° de plan d'Ensemble N° :  " & Npl
             Else
                 Npl = 1
                 Msg = "N° de plan d'Ensemble N° " & Npl
             End If
              'MsgBox (msg)
              design = Me![designation]
              Dtcreat = Me![datecreat]
              PROV = Me![Provenance]
 
             '*******   Mise a jour de la Table  ************
             dt.AddNew
 
             dt!Datecreation = Me![datecreat]
              '
             dt!Provenance = Left$(Me![Provenance], 10)
             dt!Famille = Me![Famille]
             dt!produit = Me![produit]
             dt!designation = Left$(Me![designation], 70)
             dt!Fonction = Me![Fonction]
             dt!fonctiond = Me![fonctiond]
             '
             dt!rem = Me![rem]
             dt!DatesaisieE = Now
             dt!Nature = "ENSEMBLE"
             dt!Typep = "NVX"
             '
             dt!anneecreat = Year(Me![datecreat])
 
             dt!Createur = CodeA
             dt!NplanE = Npl
             ' MsgBox ("zzzzb")
             dt.Update
             ' MsgBox ("zzzzc")
             dt.Close
             Test = "N"
             DoCmd.Close
             MsgBox Msg
 
           ' il faut aussi creer l'Enregistrement ds la Table "PlansD"
 
             Set Db1 = DBEngine.Workspaces(0).OpenDatabase(chemin)
             Set dt1 = Db.OpenRecordset("Plans", DB_OPEN_TABLE)
 
            dt1.AddNew
            dt1!NplanE = Npl
            dt1!Nplandetail = 0
 
            '************** Mise en forme du N° de plan Total ************
            ' format NplanTot
            ' 00000-00"
 
            L = Len(Str$(Npl))          'Longeur de la chaine de caractere N° plan ensemble
            'MsgBox (L)
            Npla = Right(Str$(Npl), L - 1)  '
            L2 = Len(Str$(0))           ' Longueur de la chaine plan de detail
            Nplb = Right(Str$(0), L2 - 1)
            Pg = Left("00000", 5 - L + 1) + Npla 'chaine N° plan de gauche
            pd = Left("00", 2 - L2 + 1)            'chaine N° plan droite
            NplanTot = Pg + "-" + pd + Nplb       'chaine de carct N°plan total
            '************************************************************
 
            dt1!datesaisie = Now
            dt1!datecreat = Dtcreat
            dt1!NatureD = "ENSEMBLE"
            dt1!NplanTot = NplanTot
            Design2 = " "
            dt1!LIBELLE = " "
            dt1!ANNEECREATD = Year(Dtcreat)
            dt1!TYpePD = "NVX"
            dt1!createurd = CodeA
            dt1!ProvenanceD = PROV
 
            dt1.Update
            dt1.Close
            Msg = "Je viens de créer également le plan N° : " & NplanTot & " , dans la liste des plans "
            MsgBox (Msg)
 
            '---------------  MIS DS LA TABLE 'MOUCHARD' ---------
            Set Db = DBEngine.Workspaces(0).OpenDatabase(chemin)
            Set dt = Db.OpenRecordset("Mouchard", DB_OPEN_TABLE)
            dt.AddNew
            dt!NplanTot = Left$(NplanTot, 8)
            dt!dateVM = Now
            dt!NomP = CodeA
            dt!TypeOpe = "C"
            dt.Update
            dt.Close
            z = NBPLANS()
  DoCmd.OpenForm "MenusaisieNP"
  Exit Sub
 
E_V:
t = t + 1
If t >= 10 Then
     Msg = "BLEME ...  " & Error$
     MsgBox Msg
     DoCmd.OpenForm "MenusaisieNP"
     Exit Sub
Else
    For I = 1 To (10 * t)
        'attente
    Next I
 
    Resume
End If
 
End Sub

Où est-ce que ça bogue ? Dans les tables ? Sachant que dans la version 2.0 çà fonctionnait en VM.
Merci

Invité · 03/01/2017, 09h12

Bonjour,
tu pense qu'il nous appartient d'analyser ton code pour trouver l'erreur, ou tu compte nous donner la ligne ou ce trouve l'erreur?

le message d'erreur ne se trompe pas, alors vérifies le type de variable et ce que tu veux y stocker! note qu'une variable ne peut accepter de valeur null!

**Chree74** · 03/01/2017, 09h25

Merci
Le problème est qu'il ne renvoie pas de ligne en erreur...
Vu ta réponse il faut probablement que je cherche dans ta 2ème investigation.
Mais comme çà marchait dans l'ancienne version qu'est-ce qui génère cette incompatibilité dans cette nouvelle ?

**User** · 03/01/2017, 15h43

Bonjour,

C'est vrai que sans la ligne c'est compliqué

Toutefois, je ne suis pas sûr que la constante DB_OPEN_TABLE fasse partie du type attendu lors de l'ouverture du recordset :

Code :

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

Set dt = Db.OpenRecordset("PlansE", DB_OPEN_TABLE)

Essayez plutôt :

Code :

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

Set dt = Db.OpenRecordset("PlansE", dbOpenTable)

ou encore :

Code :

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

Set dt = Db.OpenRecordset("PlansE", dbOpenDynaset)

Cdlt,

message : incompatibilité de type

VBA Access

Discussions similaires

Partager

Partager