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 :
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
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
rs![LOC] .
J espere avoir été clair.
Merci d'avance
Partager