Discussion :

[973thom]

Bonjour,

est il possible de sortir d'une boucle "while wend" une fois que la condition désirée a été exécutée ?

ci joint le code, et en vous remerciant par avance.

TR

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
    Dim Plongee, MaDate, ClientEnCours As String
 
    Set TAbClient = CurrentDb.OpenRecordset("TAB_CLIENT", dbOpenTable)
    Set TabPlongClient = CurrentDb.OpenRecordset("TAB_PLONGEE_CLIENT", dbOpenTable)
    Set TabPlongee = CurrentDb.OpenRecordset("TAB_PLONGEE", dbOpenTable)
 
 
TabPlongee.MoveFirst
 
While Not TabPlongee.EOF
    Plongee = CStr(TabPlongee("PLONG_ID"))
    MaDate = CStr(TabPlongee("PLONG_DATE"))
 
    TabPlongClient.MoveFirst
        While Not TabPlongClient.EOF
            If CStr(TabPlongClient("PLONG_ID")) = Plongee Then
                ClientEnCours = CStr(TabPlongClient("CLIENT_PRENOM"))
 
                TAbClient.MoveFirst
                While Not TAbClient.EOF
                If CStr(TAbClient("CLI_ID")) = ClientEnCours Then
                        TAbClient.Edit
                            TAbClient("DER_DATE_PLONG") = MaDate
                        TAbClient.Update
                End If
 
                TAbClient.MoveNext
                Wend
            End If
            TabPlongClient.MoveNext
        Wend
 
    TabPlongee.MoveNext
Wend

[LE VIEUX]

Bonjour,
2 solutions possibles :
La premiere « sauvage » un exit sub après la séquence qui donne le résultat.
La 2eme plus « pro » utiliser la boucle :
Do -----Loop until <condition> au lieu de parcourir la totalité du recordset la condition est testée a la fin de chaque boucle et si elle est vraie elle s’arrête.

[ilank]

Bonjour,

dans un premier temps, on peut simplifier le code. Tu as besoin au pire de deux recordsets ou d'une seule requête UPDATE.

Exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
    Set TabClient = CurrentDb.OpenRecordset("TAB_CLIENT", dbOpenTable)
    Set TabPlongClient = CurrentDb.OpenRecordset("SELECT CLIENT_PRENOM, PLONG_DATE FROM TAB_PLONGEE_CLIENT INNER JOIN TAB_PLONGEE ON TAB_PLONGEE.PLONG_ID=TAB_PLONGEE_CLIENT.PLONG_ID")
 
 
While Not TabClient.EOF
  TabPlongee.FindFirst("CLIENT_PRENOM='" & TabClient!CLI_ID & "'")
  IF Not TabPlongee.NoMatch Then
    TAbClient.Edit
    TAbClient("DER_DATE_PLONG") = TabPlongee("PLONG_DATE")
    TAbClient.Update
  End If
  TAbClient.MoveNext
Wend

j'ai oublié la requête :

Code SQL :

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

1
2
3
4
5
6
UPDATE Tab_Client
  INNER JOIN (Tab_Plongee_Client
                   INNER JOIN Tab_Plongee
                   ON Tab_Plongee.Plong_id=Tab_Plongee_Client.Plong_id)
  ON Tab_Client.Cli_Id=Tab_Plongee_Client.Client_Prenom
SET DER_PLONG_DATE=PLONG_DATE;