Données ne s'affichent pas

Bonsoir



J'ai un formulaire avec deux sous-formulaires. Sur la mise à jour d'un champ
du 1 er sous formulaire je crée un enregistrement dans l'autre. Le problème
est que les données ne s'affichent pas dans le second formulaire sauf si je
change d'enregistrement malgré que je fais un refresh et requery. Quelqu'un
a une idée ?







Merci en avance pour votre précieuse aide sur cette liste



Voici mon code :



Private Sub Film_AfterUpdate()

Dim cnn1 As ADODB.Connection

Dim rstTransaction As ADODB.Recordset

Dim rstProduit As ADODB.Recordset

Dim sglSoldeDebut, sglPrixProduit As Single



Set cnn1 = New ADODB.Connection

strCnn = "BD1"

cnn1.Open strCnn



Set rstTransaction = New ADODB.Recordset

With rstTransaction

.CursorType = adOpenKeyset

.LockType = adLockOptimistic

.Open "TransactionsClient WHERE RefClient= " & Me!RefClient & "
ORDER BY RefTransaction DESC", cnn1, , , adCmdTable

.MoveFirst

sglSoldeDebut = !SoldeFin



.AddNew

!RefClient = RefClient

!RefProduit = Forms!frmClients!lstRefProduit

!QuantiteTrans = -1

Set rstProduit = New ADODB.Recordset



rstProduit.CursorType = adOpenKeyset

rstProduit.LockType = adLockOptimistic

rstProduit.Open "Produits WHERE RefProduit= " &
Forms!frmClients!lstRefProduit, cnn1, , , adCmdTable

sglPrixProduit = rstProduit!Prix

rstProduit.Close



!PrixTrans = sglPrixProduit

!MontantTrans = sglPrixProduit * !QuantiteTrans

!SoldeDebut = sglSoldeDebut

!SoldeFin = !SoldeDebut + !MontantTrans

.Update

.Close



End With

cnn1.Close



Me.Refresh

Me.Requery

Forms![frmClients]![frmSubLocationClients].Requery

Forms![frmClients]![frmSubLocationClients].Requery

End Sub