Débutant .. Champ True à rendre False

**trinity4you** · 26/10/2006, 17h14

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

**Herman** · 26/10/2006, 17h17

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

Code :

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

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

**SeaWolf601** · 26/10/2006, 17h21

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

**random** · 26/10/2006, 17h29

Code SQL :

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

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

**trinity4you** · 26/10/2006, 19h10

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 sql :

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

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 sql :

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

UPDATE R_CarteNoelFalse SET  oui_ou_non = False WHERE oui_ou_non=True;

Besoin de votre aide.
Merci

**cafeine** · 26/10/2006, 19h24

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

**trinity4you** · 26/10/2006, 19h44

Ç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 :

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

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

**cafeine** · 26/10/2006, 19h46

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

la bonne syntaxe est :

Code :

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

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

**trinity4you** · 26/10/2006, 19h56

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

Voici le code que j'ai inscrit.

Code :

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

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. ???

**trinity4you** · 26/10/2006, 21h18

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 :

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
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

**Herman** · 27/10/2006, 08h05

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

**trinity4you** · 27/10/2006, 14h13

Ç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

**Lou Pitchoun** · 27/10/2006, 14h20

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

Code :

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

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

**gomi** · 27/10/2006, 14h21

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

**Lou Pitchoun** · 27/10/2006, 14h24

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 :

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

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...

**trinity4you** · 27/10/2006, 14h43

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 :

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

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.

**Lou Pitchoun** · 27/10/2006, 15h12

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 :

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

Set R_ContactsNoel = CurrentDb.OpenRecordset("T_Contacts")

**trinity4you** · 27/10/2006, 17h03

Merci pour les infos. J'essai ceci.

Débutant .. Champ True à rendre False

Access

Discussions similaires

Partager

Partager