Discussion :

[totor92290]

Bonjour à tous,

J'ai regardé sur le forum et je n'y ai rien trouvé, et je sais que le sujet a sans doute déjà été traité. Mais sans doute les mots que j'utilise dans ma recherchee ne sont pas les bons!

Alors voilà, j'ai un formulaire qui tire sur une table.
Il y a une case à cocher. Quand il y a plusieurs lignes il y a donc plusieurs fois la case à cocher.

Ce que je voudrais c'est quand je coche la 2ème ligne, par exemple, se soit la deuxième ligne qui soit considérée et non pas la 1ère.
Ainsi j'ai une condition: si il y a "Y" dans le champ BackOrder de la ligne sélectionnée, une somme d'action se produisent.
Or c'est uniquement quand il y a ce "Y" dans la première ligne que les actions se déclenchent!

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
Private Sub SelectionForReceived_Click()
DoCmd.SetWarnings False
 
DoCmd.Requery
'si Y dans le champ BackOrder
If BackOrderYN = "Y" Then
 
'Ouverture d'une MsgBox
Dim Msg, Style, Title, Response
Msg = "Back Order available - would you want to send an Email to the station?"
Style = vbYesNo + vbQuestion + vbDefaultButton1
Title = "Receiving with resa number"
Response = MsgBox(Msg, Style, Title)
    If Response = vbYes Then
 'Si oui ouverture d'un formulaire d'envoi par mail
 
 DoCmd.OpenForm "F004_Select_BackOrderToEmail"
 
     Else
      'Si non fermeture du formulaire
         DoCmd.Close acForm, "F004_Select_BackOrderToEmail"
 
    End If
     End If
 
DoCmd.Requery
 
DoCmd.OpenQuery "Q004_Add_T003_To_T004_ReceivedInSAP"
DoCmd.OpenQuery "Q003_Del_LineInT003_WhenSelectedInT003"
'
DoCmd.Requery
 
DoCmd.SetWarnings True
End Sub

Si quelqu'un a une idée, je suis preneur !

Merci
Totor

[EricDgn]

Bonjour,
Je suppose que le code donné est un extrait d'un code plus complet vu qu'il s'y trouve un 'End If' de trop.
A mon avis le problème vient de ce qu'il faut parcourir les enregistrements qui sont affichés dans le formulaire, et sur chacun d'eux faire le test de la case à cocher et réagir en conséquence. Il pourrait par exemple y avoir 2 enregistrements cochés sur 8 affichés.
Cdt

[marot_r]

Bonjour.

Ce que je voudrais c'est quand je coche la 2ème ligne, par example, se soit la deuxième ligne qui soit considérée.

Qu'elle soit consideree quand ? Au moment ou tu la coches ? Dans un traitement plus tard ?

A+

[totor92290]

Bonsoir à tous les deux,
Il ne va y avoir qu'un "clic" à la fois.
C'est quand je clique je voudrais récupérer les informations de la ligne cochée suivant mon "if"
Si je clique sur la deuxième ligne ou la 4eme ... (il peut y avoir plusieurs lignes), il check si il y a un "Y" alors il faut récupérer les champs de la ligne pour utiliser ces champs dans la création d'un autre formulaire.
Espérant que cela est clair

Merci
Totor

[marot_r]

Donc tu cliques dans le sous-formulaire, sur l'enregistement qui t'interesse, et tu veux "reagir" a ce moment la, c'est cela ?

A+

[totor92290]

Je vais essayé d'ajouter une image!



Espérant que cela soit plus clair!

Merci Marrot_r

[tee_grandbois]

bonjour,
pourquoi tous ces Docmd.Requery ? cela remet la position du curseur systématiquement sur le premier enregistrement, d'où ton problème.

Code :

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

1
2
3
' à supprimer dans ton code ====> DoCmd.Requery
'si Y dans le champ BackOrder
If Me.BackOrderYN = "Y" Then

Tu peux mettre éventuellement un Me.refresh mais uniquement à la fin de ton code.
Il est préférable de mettre le mot-clé Me. devant BackOrderYN , cela indique que le contrôle utilisé appartient bien à l'objet où le code est exécuté et pas celui d'un autre formulaire ouvert.

[totor92290]

Je suis une quiche!!

IMPECABLE!

Merci
Totor