Discussion :

[caesar23]

Bonjour, c'est encore moi !

J'ai créé un formulaire d'ajout/suppression de codes essais autorisés pour une fourniture, une fourniture ayant plusieurs codes essais autorisés.

J'ai 2 listes l'une en dessous de l'autre :
1. la liste des codes essai. Quand je double-clique dessus, ça ajoute le code essai à la liste des codes essai autorisés de cette fourniture.
2. la liste des codes essai autorisés de la fourniture. Quand je double-clique sur un élément, ça me le supprime de la liste des codes essais autorisés.

Ca, ça marche. Mais je peux double-cliquer 50 fois sur le même code essai et il sera ajouté 50 fois aux codes essais autorisés de la fourniture !

J'essaie de faire un test dans ma Sub double-clic :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub lstResultats_DblClick(Cancel As Integer)
Dim SQL As String
Dim element As Object
'For Each element lstCodeEssaiPossible
'   If element.Value = Me.lstResultats.Value Then
'        Exit Sub
'    End If
'Next
If Not IsNull(Me.lstResultats) And Not IsNull(Me.OpenArgs) Then
CurrentDb.Execute ("INSERT INTO T_CodeEssaiPossible (R_Fourniture, R_CodeEssai) VALUES (" & Me.OpenArgs & ", " & Me.lstResultats.Value & ");")
End If
Me.lstCodeEssaiPossible.Requery
End Sub

Lorsque je clique sur un élément de la liste des codes essai, la macro vérifie que cet élément n'est pas déjà présent dans la liste des codes essai autorisés de la fourniture.
Ma boucle for each ne marche absolument pas, et je n'arrive pas à trouver une bonne syntaxe.

Merci d'avance pour votre aide !

PS : un code essai "possible" est un code essai autorisé et l'OpenArgs porte le numéro de la fourniture.

[LE VIEUX]

bonjour,
la réponse est peut-être par là :
http://access.developpez.com/faq/?pa...rifValExistZdl

[caesar23]

Bonjour,

merci pour ta réponse. Effectivement ça marche très bien (après un petit temps de réglage )
J'ai adapté le code pour tenir compte du fait que les 2 listes comparées soient différentes en utilisant l'attribut Column.

je laisse le code pour ceux que ça intéresse :

Code :

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

1
2
3
4
5
6
For i = 0 To Me.lstCodeEssaiPossible.ListCount - 1
    If Me.lstCodeEssaiPossible.Column(2, i) = Me.lstResultats Then
        MsgBox ("Ce code essai est déjà autorisé !!")
        Exit Sub
    End If
Next