Discussion :

[Nacera]

Bonjour;

J'ai un formulaire en mode feuille de donné sur le quel j'ai mis une zone de liste modifiable;
lorsque je selectionne une valuer dans la liste le curseur ce déplasse automatiquement au premier enregistrement;
est ce qu'il y a un moyen de garder le curseur sur le dernier enregistrement

merci

[Nacera]

J'ai remarqué que lorsque j'ai enlever le code lié à l'evénement after update de la zone de liste modifiable le curseur reste toujours pointé vers le dernier enregistrement
et j'ai besoin de cette evenement; est ce que quelqu'un peut me donner une solution SVP

[Nacera]

je précise encore;

C'est la commande Requery qui pose problè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
 
Private Sub QUANTITE_VENDU_AfterUpdate()
Dim SQL As String
Dim QV As Integer
Dim SQL1 As String
Dim SQL2 As String
Dim varX As Variant
 
QV = Forms!VENTE!QUANTITE_VENDU
 
SQL = "UPDATE ACHAT SET ACHAT.[QUANTITE_ACHETE] = ACHAT.[QUANTITE_ACHETE]" & -QV & " WHERE ACHAT.[DESIGNATION]" & "= '" & Me!Modifiable14 & "';"
DoCmd.RunSQL SQL
Requery
 
varX = DLookup("[QUANTITE_ACHETE]", "ACHAT", "[DESIGNATION] = '" & Me!Modifiable14 & "'")
If varX = 0 Then
 
MsgBox "L'ARTICLE " & Me!Modifiable14 & " EST EN RUPTURE DE STOCK", vbOKOnly, Quantité = 0
End If
 
SQL1 = "UPDATE VENTE SET Total = [PRIX_VENTE]* [QUANTITE_VENDU] ;"
DoCmd.RunSQL SQL1
 
SQL2 = "UPDATE VENTE SET GAIN = ([PRIX_VENTE]-[PRIX_ACHAT])* [QUANTITE_VENDU] ;"
DoCmd.RunSQL SQL2
End Sub

Alors si j'enlève cette commande Modifiable14 affiché dans le MsgBox est bien celui du dernier enregistrement si la condition est vérifié; et si je le garde le curseur ce déplace vers le premier enregistrement et donc le contenu de la zone de liste modifiable dans le MsgBoxaffiche toujours le premier enregistrement


trouvez moi une solution SVP

[Domi2]

Bonjour,

C'est normal, Requery rafraîchit la source des données.

Essaie peut-être avec Refresh.

Domi2

[Nacera]

Merci Beaucoup

ça marche très bien;