Bonsoir,
j ai un formualire avec 15 controle contenant une valeur que j ai saisi.
En appuyant sur un bouton, je crée un nouvel enregistrement et l utilisateur peut changer les valeurs de l'enregistrement précedent ( car je dois garder un historique des enregsitrements précedents) mais avant le click je mets tous les controles à "NULL". Et l utilisateur ne remplit que les controles qu il veut modifier.
Maintenant j aimerai sauvegarder ce nouveau enregistrement. Tout va bien mais le seul hic c est que la ou les controles n ont pas été remplies amors je reprend les valeurs de l'enregistrement précedent.Et la je bloque pour récuperer les données de l'enregsitrement précedent.
Voici 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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
 
Function MAJ_BaseAffaire(oform As Form)
 
 
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim oControl As Control
 
       Set db = CurrentDb
       Set rs = db.OpenRecordset("Référence LOC", dbOpenDynaset)
 
 
    rs.AddNew
 
    rs![LOC] = oform.liste1
 
    rs![Date de Réference] = oform.Texte108.Value
 
    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] = oform.Axe_long_E2.Value
   rs![Axe court E1] = oform.Axe1_E2.Value
   rs![Axe2 court E1] = oform.Axe2_E2.Value
   rs![ML E2] = oform.ML_E2.Value
 
   rs![Axe court E1] = oform.Axe_court_E1.Value
   rs![Axe1 court E1] = oform.Axe1_court_E1.Value
   rs![Axe2 court E1] = oform.Axe2_court_E1.Value
   rs![ML court E1] = oform.ML_court_E1.Value
 
   rs![Axe court E2] = oform.Axe_court_E2.Value
   rs![Axe1 court E2] = oform.Axe1_court_E2.Value
   rs![Axe2 court E2] = oform.Axe2_court_E2.Value
   rs![ML court E2] = oform.ML_court_E2.Value
 
   rs![Espace 90 E1] = oform.DDM_90_E1.Value
   rs![Espace 150 E1] = oform.DDM_150_E1.Value
   rs![Fsc1 E1] = oform.Fsc1_E1.Value
   rs![Fsc2 E1] = oform.Fsc2_E1.Value
 
   rs![Espace 90 E2] = oform.DDM_90_E2.Value
   rs![Espace 150 E2] = oform.DDM_150_E2.Value
   rs![Fsc1 E2] = oform.Fsc1_E2.Value
   rs![Fsc2 E2] = oform.Fsc2_E2.Value
 
   rs![Clr 1 E1] = oform.Clr_1_E1.Value
   rs![Clr 2 E1] = oform.Clr_2_E1.Value
 
   rs![Clr 1 E2] = oform.Clr_1_E2.Value
   rs![Clr 2 E2] = oform.Clr_2_E2.Value
 
 
 
 
   rs.Update
   rs.Close
   Set rs = Nothing
   For Each oControl In oform.Controls
   If oControl.ControlType = acTextBox Or oControl.ControlType = acChekBox Then
   oControl = Null
   End If
 
 
   Next oControl
 
 
   End Function
En plus la je travaille sur RS qui est un ensemble d'enregistrement de toute ma table alors que moi je veux recuperer les enregistrement avec le même
rs![LOC] .
J espere avoir été clair.
Merci d'avance