salut tous le monde j'ai une interface qui a un bouton que lors de cliquer sur, cette procedure s'execute
le probléme c'est que je trouve un message d'erreur lors du clique:
le message dit " Informations sur la colonne clé insuffisantes ou incorrectes. Trop de lignes sont affectées par la mise à jour"
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
Private Sub a_1()
Dim rs As New ADODB.Recordset
Dim str As String
Dim rs1 As New ADODB.Recordset
Dim str1 As String
str = "SELECT distinctrow ARTICLE_DETAILLE.AR_ARTICLE From ARTICLE_DETAILLE"
rs.Open str, cnx, adOpenDynamic, adLockOptimistic
Do While Not rs.EOF
str1 = "SELECT distinctrow ARTICLE.AR_NUM_ORDRE, ARTICLE.AR_CODE_ARTICLE FROM ARTICLE"
rs1.Open str1, cnx
Do While Not rs1.EOF
If rs!AR_ARTICLE = rs1!AR_CODE_ARTICLE Then
rs!AR_ARTICLE = rs1!AR_NUM_ORDRE
End If
rs1.MoveNext
Loop
rs1.Close
rs.MoveNext
Loop
rs.Close
End Sub
Merci en avance.