Discussion :

[sunwind]

Bonjour,
à partir des controle d un formulaire j aimerai créer un nouvel recordset dans une table.
Les controles sont indépendants.
Mon probleme est que lorsque je fais l affectation des valeurs de mon form dans celles de mon recordset à partir d un bouton alors j ai le message suivant : erreur conversion type de données 3421

Par contre ce message n apparait que lorsque j ai un champ du formulaire vide c est à dire non saisi.
Si tous mes controles sont saisis et qu ensuite je clique sur mon bouton j ai bien le nouveau recordset avec la bonne affectation des valeurs.
voic mon code :

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
 
Dim db As DAO.Database
Dim rs As DAO.Recordset
 
        Set db = CurrentDb
        Set rs = db.OpenRecordset("Référence LOC", dbOpenDynaset)
 
 
    rs.AddNew
 
    rs![LOC] = oform.liste1
 
    rs![Date de Réference] = oform.Date_de_REF
 
 
   ' rs![Axe long E1] = oform.Axe_long_E1.Value
   ' rs![Axe1 E1] = oform.Axe1_E1.Value
    'rs![Axe2 E1] = oform.Axe2_E1.Value
    'rs![ML long E1] = oform.ML_E1.Value
 
 
    'rs![Axe long E2] = CStr(Axe_long_E2)
    'rs![Axe court E1] = CStr(Axe1_E2)
    'rs![Axe2 court E1] = CStr(Axe2_E2)
    'rs![ML E2] = CStr(ML_E2)
 
    'rs![Axe court E1] = Axe_court_E1
    'rs![Axe1 court E1] = Axe1_court_E1
    'rs![Axe2 court E1] = Axe2_court_E1
    'rs![ML court E1] = ML_court_E1
 
    'rs![Axe court E2] = Axe_court_E2
    'rs![Axe1 court E2] = Axe1_court_E2
    'rs![Axe2 court E2] = Axe2_court_E2
    'rs![ML court E2] = ML_court_E2
 
    'rs![Espace 90 E1] = DDM_90_E1
    'rs![Espace 150 E1] = DDM_150_E1
    'rs![Fsc1 E1] = Fsc1_E1
    'rs![Fsc2 E1] = Fsc2_E1
 
    'rs![Espace 90 E2] = DDM_90_E2
    'rs![Espace 150 E2] = DDM_150_E2
    'rs![Fsc1 E2] = Fsc1_E2
    'rs![Fsc2 E2] = Fsc2_E2
 
    'rs![Clr 1 E1] = Clr_1_E1
    'rs![Clr 2 E1] = Clr_2_E1
 
    'rs![Clr 1 E2] = Clr_1_E2
    'rs![Clr 2 E2] = Clr_2_E2
 
 
        rs.Update
        rs.Close
 
    End Function

Merci aux bonnes ames

[bernardmichel]

Bonjour !

As-tu pensé à utiliser la fonction " Nz(ValeurSiNonNull, ValeurSiNull) "?