Discussion :

[fclus]

Bonjour,

J'utilise un formulaire qui s'appuie sur la table TblArticle. Tous les contrôles du formulaire sont donc les champs de la table
Je teste s'il y a eu une modification et je force la sauvegarde de l'enregistrement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub CmdAS400_Click()
If Me.Dirty Then
    DoCmd.RunCommand (acCmdSaveRecord)
End If
'Mettre à jour l'article sur l'AS400
DoCmd.SetWarnings False
Call AS400
DoCmd.SetWarnings True
MsgBox "Article modifié sur l'AS400 !"
End Sub

Ensuite, je vais mettre à jour l'article concerné dans le fichier GSPART sur un AS400
Curieusement, je me retrouve avec les données de l'article AVANT les modifications

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
Sub AS400()
Dim oCnAS400 As New ADODB.Connection
Dim oCnAccess As New ADODB.Connection
Dim oRsAccess, oRsChange As New ADODB.Recordset
 
'Connexion à Access
With oCnAccess
.Provider = "Microsoft.ACE.OLEDB.12.0"
.ConnectionString = "\\MRADATA\COMMUN\Magellan\Equipements Standards\DB\DB Equipements standards.accdb"
.Open
'MsgBox .State
End With
 
'Connexion à AS400
With oCnAS400
.Provider = "IBMDA400"
.ConnectionString = "Data Source=AS400;Catalog Library List=MACHIN;User Id=USER;Password=PWD"
.Open
'MsgBox .State
End With
 
 
Strsql = "SELECT * FROM TblArticle WHERE TblArticle.aritem =" & Chr(34) & Me.aritem & Chr(34)
Set oRsAccess = oCnAccess.Execute(Strsql)
If Not (oRsAccess.BOF And oRsAccess.EOF) Then
'Mettre à jour GSPART
 
Strsql = "UPDATE MEURAM.GSPART SET GSFAM=" & "'" & Mid(oRsAccess!arfamille, 1, 6) & "'" & _
", GSNOR=" & "'" & Mid(oRsAccess!arnorme, 1, 12) & "'" & _
", GSLB1=" & "'" & oRsAccess!ardesc1 & "'" & _
", GSLB2=" & "'" & oRsAccess!ardesc2 & "'" & _
", GSMAT=" & "'" & Mid(oRsAccess!armat, 1, 10) & "'" & _
", GSPDS=" & oRsAccess!arpoids & _
", GSSTM=" & oRsAccess!arstkmini & _
", GSAPP=" & oRsAccess!ardelai & _
", GSUNI=" & "'" & IIf(oRsAccess!arunite = "PCS", "00", IIf(oRsAccess!arunite = "KG", "42", "13")) & "'" & _
" WHERE GSART=" & "'" & Mid(oRsAccess!aritem, 1, 7) & "'"
'MsgBox Strsql
oCnAS400.Execute Strsql
 
End If
oRsAccess.Close
oCnAccess.Close
oCnAS400.Close
 
 
'Libération de la mémoire
Set oCnAS400 = Nothing
Set oCnAccess = Nothing
End Sub

Quelqu'un a une idée ?

[fclus]

La table n'est mise à jour qu'à la fermeture du formulaire !