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
| Private Sub Rey_modif_Click()
On Error GoTo err
Call Connect
Sql = "Delete from Article_pose where num='" & num.Text & "'"
Rs.Open Sql, Db, adOpenKeyset, adLockOptimistic
Call Deconnect
For a = 1 To ListA.ListItems.Count
Call Connect
Rs.Open "[Article_pose]", Db, adOpenKeyset, adLockOptimistic
'enregistrement
Rs.AddNew
Rs.Fields("num") = num.Text
Rs.Fields("code_article") = ListA.ListItems(a)
Rs.Fields("Designation") = ListA.ListItems(a).SubItems(1)
Rs.Fields("prix") = ListA.ListItems(a).SubItems(2)
Rs.Fields("marge") = ListA.ListItems(a).SubItems(3)
Rs.Fields("Quantite") = ListA.ListItems(a).SubItems(4)
Rs.Fields("chantier") = ListA.ListItems(a).SubItems(6)
Rs.Update
Call Deconnect
Next a
Call Connect
Sql = "Delete from Article_mat where num='" & num.Text & "'"
Rs.Open Sql, Db, adOpenKeyset, adLockOptimistic
Call Deconnect
For b = 1 To ListB.ListItems.Count
Call Connect
Rs.Open "[Article_mat]", Db, adOpenKeyset, adLockOptimistic
Rs.AddNew
Rs.Fields("num") = num.Text
Rs.Fields("code_article") = ListB.ListItems(b)
Rs.Fields("Designation") = ListB.ListItems(b).SubItems(1)
Rs.Fields("prix") = ListB.ListItems(b).SubItems(2)
Rs.Fields("marge") = ListB.ListItems(b).SubItems(3)
Rs.Fields("Quantite") = ListB.ListItems(b).SubItems(4)
Rs.Fields("chantier") = ListB.ListItems(b).SubItems(6)
Rs.Update
Call Deconnect
Next b
err:
If err.Number = 3021 Then
Exit Sub
End If
Unload Me
Article_frm.Show
End Sub |
