Débutant .. Champ True à rendre False

Bonjour vous tous,

J'aimerais avoir de l'aide. Dans un formulaire qui contient les champs suivants (Nom client, Adresse, Champ oui/non) j'aimerais effectuer cette action.

Quelques nom client qui ont été choché oui dans le champ oui/non doivent maintenant être décoché. Il serait trop long de les décocher tous un par un. Alors j'aimerais faire un bouton pour qu'il se décoche tous en même temps. Je n'y arrive pas. Pourriez-vous m'aider. Ce formulaire est basé sur une requête.

Merci

J'ai ce code qui fonctionne, y'a peut être plus facile je sais pas trop

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim I As Integer Dim a As Integer Dim requete As Recordset sql = "select count(*) from ta_table;" Set requete = CurrentDb.OpenRecordset(sql) a = requete.Fields(0) requete.Close Set requete = Nothing For I = 1 To a If ta_case_à_cocher = True Then ta_case_à_cocher = False End If DoCmd.GoToRecord , , acNext Next I

---

Ca te fait une boucle de ton premier à ton dernier enregistrement et ça vérifie la valeur de ta case à cocher. Si elle est a oui, alors sa la passe à non :)

Avec une requete de mise à jour ça marche pas ?

Code:

---

1 2	UPDATE matable SET oui_ou_non = False WHERE oui_ou_non=True;

---

Merci de vos conseils.

Vous savez je suis pas très expérimenté et ça fonctionne pas.
Voici ci ce que j'ai essayé.

J'ai crée mon bouton dans mon formulaire Access, cliqué droit souris dans les propriétés du bouton. Dans évenement j'ai choisis sur clik de la souris creer un code avec le générateur de code. Me voilà dans VB. J'ai copié, collé ceci.

Code:

---

UPDATE matable SET oui_ou_non = False WHERE oui_ou_non=True;

---

Ça ne fonctionne pas. Ceci me donne une boîte d'erreur indiquant Erreur de compilation, erreur de syntaxe. J'imagine que je dois ajouter le nom de la requête ou la table, des champs ou autres...

Alors j'ai essaiyé ceci :

Code:

---

UPDATE R_CarteNoelFalse SET oui_ou_non = False WHERE oui_ou_non=True;

---

Besoin de votre aide.
Merci :oops:

Essaie d'attaquer une table plutôt qu'une requête lors d'un SQL UPDATE.

Ça ne fonctionne pas non plus. Toujours la boîte d'erreur indiquant Erreur de compilation, erreur de syntaxe. Me sélection le SET dans le code.

Voici le code que je mets.

Code:

---

1 2 3 4 5 6

Private Sub Commande10_Click() UPDATE T_Carte SET oui_ou_non = False WHERE oui_ou_non=True; End Sub

---

Merci

On ne balance pas comme ça un SQL dans du code VBA.

la bonne syntaxe est :

Code:

---

DoCmd.RunSQL "UPDATE ......."

---

Ça commence à être mieux mais pas tout à fait au point.

Voici le code que j'ai inscrit.

Code:

---

DoCmd.RunSQL "UPDATE T_Carte SET oui_ou_non = False WHERE oui_ou_non=True;"

---

Une boîte entrez la valeur du paramètre s'ouvre et me demande d'inscrire oui ou non : Je réponds non. Un message d'erreure s'ouvre et dit. Erreur d'exécution 3073. L'opération doit utiliser une requête qui peut être mise à jour. ???

J'ai essayé ce code. Ça fonctionne. Il passe tout mes enregistrements et les décoches tous. Mais quand il arrive à la fin. Une boîte s'ouvre et dit :
Erreur d'éxécution 2105. Impossible d'atteindre l'enregistrement spécifié.

Voici le code utilisé.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub B_DeselectionnerTout_Click()   Dim I As Integer Dim A As Integer Dim requete As Recordset sql = "select count(*) from T_Contacts;" Set R_ContactsNoel = CurrentDb.OpenRecordset(sql) A = R_ContactsNoel.Fields(0) R_ContactsNoel.Close Set requete = Nothing For I = 1 To A If CocherCarteNoel = True Then CocherCarteNoel = False End If DoCmd.GoToRecord , , acNext Next I   End Sub

---

MERCI

il doit surement aller à tout tes enregistrements + 1, rien de bien grave, à part si tu souhaite faire la manip réguliérement :)

Ça fonctionne très bien, parcontre les utilisateurs qui utiliserons ce formulaire se poseront bien des questions lorsque la boîte s'ouvrira. As-tu une solution ?

Merci 8O

Salut,
Il faut tester si tu es en fin de recordset ou pas

Code:

---

1 2 3 4 5 6 7 8

Set R_ContactsNoel = CurrentDb.OpenRecordset(sql) R_ContactsNoel.moveFirst While R_ContactsNoel.EOF = False If CocherCarteNoel = True Then CocherCarteNoel = False End If R_ContactsNoel.MoveNext Wend

---

Pourquoi ne pas utiliser la requete de random ET un bouton tout simple pour executer cette requete

Citation:

---

Envoyé par gomi

Pourquoi ne pas utiliser la requete de random ET un bouton tout simple pour executer cette requete

---

Parce qu'il y a plusieurs moyen de faire... et qu'elle a (à priori) choisi celui-ci.
Si elle avait adapté le code de caféine à son cas, elle aurait fait ceci :

Code:

---

DoCmd.RunSQL "UPDATE T_Contacts SET CocherCarteNoel = False WHERE CocherCarteNoel =True;"

---

C'est certain qu'il y a une différence au niveau des noms... :roll:

Je suis un peu confuse, je ne comprends pas très bien ce qu'il faut faire. Le code de caféine je l'ai essayé et ça ne fonctionnait pas. Je crois que c'est moi qui sait pas trop comment faire et celui-ci :

Il faut tester si tu es en fin de recordset ou pas

Code:

---

1 2 3 4 5 6 7 8

Set R_ContactsNoel = CurrentDb.OpenRecordset(sql) R_ContactsNoel.moveFirst While R_ContactsNoel.EOF = False If CocherCarteNoel = True Then CocherCarteNoel = False End If R_ContactsNoel.MoveNext Wend

---

Je ne comprends pas non plus ou l'ajouter.
:?

Tu as 2 possibilités pour mettre à jour tes données : soit le code type de caféine avec la requete update soit en utilisant DAO.

Dans mon précédent message, tu trouvera les 2 solutions.

Pour ce qui est du code que tu cites, il est à mettre à la place de la boucle for.
Cela fait exactement la même chose (enfin à peu de chose près) mais ça s'arrête lorsque la table ne contient plus d'enregistrements.

Une petite modification quand même, pas besoin de passer par la variable SQL. Passes directement par le nom de la table :

Code:

---

Set R_ContactsNoel = CurrentDb.OpenRecordset("T_Contacts")

---

Merci pour les infos. J'essai ceci.