Boucle do while

bonjour,
pourquoi écris-tu que ton code tourne en boucle? veux-tu dire qu'il ne fait pas ce que tu souhaites?
FindFirst ne retourne, au mieux, qu'un seul enregistrement.
bizarre de faire If rsAdh.NoMatch alors que tu n'as pas fait de find sur rsAdh.
regarde bien ton code: il décoche inconditionnellement la case à cocher.

Bonsoir yg_b,

Merci pour ta réponse.

"pourquoi écris-tu que ton code tourne en boucle? " "veux-tu dire qu'il ne fait pas ce que tu souhaites? "

Oui il ne fait pas ce que je souhaite

Pour rsAdh.NoMatch c'est bien rsChq.NoMatch

NoMacth est toujours à vrai ce qui fait que le code boucle toujours sur la case à cocher
et modifie toutes les cases.

Je ne vois pas le problème, j'ai essayé ce code:

If rsChq.NoMatch Then
           rsChq.Delete
     Else
     End If
     
'--- Maj de la case a cocher paiement
     rsAdh.Edit
     rsAdh("paiement") = False
     rsAdh.Update
  
     rsAdh.MoveNext
     Loop

Mais les enregistrements de la table Chèques sont supprimés et le code
bloque sur rsChq.Delete avec le message "Aucun enregistrements en cours.

Salutations

Bonjour,

« tu n'expliques ni ce que tu veux obtenir, ni comment tu penses le réaliser. »
Dans la table j’ai deux types d’enregistrements :
Un enregistrement (image tbl adhérents 1 et tbl chèques 1) qui correspondent aux personnes seules
Deux enregistrements (image tbl adhérents 2 et tbl chèques 2) qui correspondent aux couples

Je voudrais, lorsque je supprime soit l’un ou l’autre des enregistrements de la tbl Chèques, que la case à Cocher (Paiement) de la tbl Adhérents soit décochée.

J’ai pensé qu’avec une boucle do while , un rsChq.Delete pour supprimer dans la tbl Chèques
et un edit pour une mise à jour dans la tbl Adhérents cela pouvait se faire, mais voilà je n’y arrive
pas. Peut-être une mauvaise méthode ?

« pourquoi fais-tu deux FindFirst successifs? »
Non je n’utilise qu’un seul « FindFirst » celui qui prend les valeurs des contrôles du formulaire, l’autre est inactif, mais peut-être est-ce une erreur de faire comme cela ?

Salutations

Bonjour,

«eh bien, utilisons l'exemple que tu as montré. »
Dans l’exemple que j’ai montré il y a 3 adhérents,
2 en couple (Réf Adhérents 2043 et 2044) et
1 unique (réf Adhérents 2035)
Tous les trois ont la case Paiement cochée (tbl Adhérents) et
un enregistrement Chacun ( tbl Chèques)

« que souhaites-tu que ton code fasse? »
Dans le cas du couple (Voir image tbl chéques et tbl adhérents) :
Tbl Chèques
Il doit supprimer uniquement les chèques (Réf Adhérents 2043 et 2044).
Tbl adhérents
Et décocher les cases Paiement du couple (Réf Adhérents 2043 et 2044).

Dans le cas d’une personne seule voir image :
Tbl Chèques
Il doit supprimer uniquement le chèque (Réf Adhérents 2035).
Tbl adhérents
Et décocher la case Paiement de la personne seule (Réf Adhérents 2035).

« quelles sont les valeurs de txtNomFamille et de cmbRegroupFamille »
Voir l’image des espions pour le cas de la personne seule)

Au passage je m’aperçois que j’aurais dû ajouter Réf Adhérent dans le FindFirst

'--- Appel ouverture de la base
Set db = CurrentDb

'--- Intérogation de la tbl adhérent
Set rsAdh = db.OpenRecordset("tbl Adhérents", dbOpenDynaset)

'--- Intérogation de la tbl chèques
Set rsChq = db.OpenRecordset("tbl Chèques", dbOpenDynaset)

Do While Not rsAdh.EOF

'--- Recherche si l'enregistrement existe
rsChq.FindFirst "[NomFamille]=" & Chr(34) & rsAdh("NomFamille") & Chr(34) & " AND " & _
"[RegroupFamille]=" & CInt(rsAdh("RegroupFamille")) & " AND " & _
"[RéfAdhérent]=" & CInt(rsAdh("RéfAdhérent"))

If Not rsChq.NoMatch Then

rsChq.Delete
MsgBox "ok"

'--- Màj de la case a cocher paiement
rsAdh.Edit
rsAdh("paiement") = False
rsAdh.Update
End If
rsAdh.MoveNext
Loop

Mais ce code termine la boucle et ne donne jamais NoMacth à faux .

Merci pour votre aide ;

Salutations

Désolé si je n’arrive pas à me faire comprendre, je reprends ce que j’avais dit au premier message
et te remercie de ta patience.

«
J’ai deux tables « tbl Adhérents » et « tbl chèques », je voudrais que lorsque
Je supprime un enregistrement de la table chèques je décoche une case à cocher
De la « tbl adhérents
»

Maintenant, en faisant debug.print sur le critère tous les enregistrements apparaissent et l’image suivante
montre entouré de rouge celui que je voulais supprimer .

Le code se déclenche uniquement par un click sur une case à coché du formulaire/

Salutations

Oui j'ai encore du souci puisque le code parcourt les enregistrements sans déclencher d'action.

Oui en effet quand l'utilisateur clique, le code doit supprimer tous les chèques affichés dans le sous formulaire et mettre à jour la case paiement de la table Adhérents".

Plus tard je posterai une image du form avec son sfrm.

Bonsoir yg_be,

Voilà ce que j’ai fait, je ne sais pas si c’est la bonne méthode, mais j’ai le résultat que je souhaitais.

A savoir :

1er cas.
L’utilisateur choisit une personne, ce qui fait apparaître un enregistrement dans le sous formulaire.
Par un click sur un bouton l’enregistrement est supprimé de la table chèques et la case paiement de la table Adhérents est décochée

2éme cas.
L’utilisateur choisit un couple, ce qui fait apparaître deux enregistrements dans le sous formulaire.
Par un click sur un bouton les deux enregistrements sont supprimés de la table chèques et les cases paiement de la table Adhérents sont décochées.

Au passage je fais mon « mea culpa » car en écrivant ces deux cas je m’aperçois que si j’avais
dès le début expliqué de cette façon on se serait épargné bien de la peine.

En tout cas je te remercie de nouveau pour ton aide et ta patience.

'--- Ouverture de la base
     Set db = CurrentDb

'--- Interrogation de la tbl adhérent
     rq = "SELECT [tbl Adhérents].*, [tbl Adhérents].NomFamille, [tbl Adhérents].RegroupFamille" & _
         " FROM [tbl Adhérents]" & _
          " WHERE [tbl Adhérents].NomFamille=" & Chr(34) & lstr_NomFamille & Chr(34) & _
            " And [tbl Adhérents].RegroupFamille=" & lstr_RegroupFamille & ";"
             'Debug.Print rq
     
     Set rsAdh = db.OpenRecordset(rq, dbOpenDynaset)

'--- Interrogation de la tbl chèques
     rq = "SELECT [tbl Chèques].*, [tbl Chèques].NomFamille, [tbl Chèques].RegroupFamille" & _
         " FROM [tbl Chèques]" & _
          " WHERE [tbl Chèques].NomFamille=" & Chr(34) & lstr_NomFamille & Chr(34) & _
            " And [tbl Chèques].RegroupFamille=" & lstr_RegroupFamille & ";"
             'Debug.Print rq
     
     Set rsChq = db.OpenRecordset(rq, dbOpenDynaset)
     
'--- Boucle sur la tbl adhérents
     Do Until rsAdh.EOF
     
'--- Compte le nb d'enregistrement
     If rsChq.RecordCount <> 0 Then '3
        rsChq.Delete
        rsChq.MoveNext
     End If
     
'--- Màj de la case a cocher paiement
     rsAdh.Edit
         rsAdh("paiement") = False
         rsAdh.Update
     rsAdh.MoveNext
     Loop
     
'--- Màj du sous formulaire
     Forms(frm)(sfm).Requery
         
'--- Fermetureet libèration des objects
     rsAdh.Close: Set rsAdh = Nothing
     rsChq.Close: Set rsAchq = Nothing
     Set db = Nothing

Salutations