Discussion :

[guidzit]

Bonjour,

J'ai plusieurs questions à propos des fameuses cases à cocher:

Prems:

Je dispose dans un formulaire de plusieurs cases à cocher, j'aimerais que sur la même colonne une seule case à cocher puisse être activée à la fois, en gros l'activation d'une case de la colonne, désactive la case de la colonne précédemment activée.

Deuz:

J'ai une case dans mon formulaire, qui, si c'est possible, me permetterait de modifier la valeur d'une table en activant cette case. Ma table dispose d'une valeur etat qui est sur "ouvert" par défaut, j'aimerais que lorsque je clique la case à cocher de mon formulaire, cette valeur de ma table passe sur "fermé".

C'est tout pour le moment :p

Merci

[micniv]

Je dispose dans un formulaire de plusieurs cases à cocher, j'aimerais que sur la même colonne une seule case à cocher puisse être activée à la fois, en gros l'activation d'une case de la colonne, désactive la case de la colonne précédemment activée.

alors c'est un groupe d'option qu'il faut utiliser, pas des cases à cocher

J'ai une case dans mon formulaire, qui, si c'est possible, me permetterait de modifier la valeur d'une table en activant cette case. Ma table dispose d'une valeur etat qui est sur "ouvert" par défaut, j'aimerais que lorsque je clique la case à cocher de mon formulaire, cette valeur de ma table passe sur "fermé".

En VBA, utilse l'evt _after_Update de ta case à cocher :

if maCoche =True then
Tu mets dans un String ta phrase SQL :
maPhraseSql="UPDATE MaTable SET mavaleur='Fermé' ;"
Ensuite tu l'exécutes :
DB.excute maPhraseSql
....

Et ça doit rouler ...

[guidzit]

alors c'est un groupe d'option qu'il faut utiliser, pas des cases à cocher



En VBA, utilse l'evt _after_Update de ta case à cocher :

if maCoche =True then


Et ça doit rouler ...

Jusque là ca va

Tu mets dans un String ta phrase SQL :
maPhraseSql="UPDATE MaTable SET mavaleur='Fermé' ;"
Ensuite tu l'exécutes :
DB.execute maPhraseSql
....

La ca va plus! :p

"Tu mets dans un string" ??? C'est à dire? Moi j'ai mis ca: Dim maPhraseSql As String

Lorsque je lance le code brut comme ca:
if maCoche =True then
Dim maPhraseSql As String
maPhraseSql="UPDATE MaTable SET mavaleur='Fermé' ;"
DB.execute maPhraseSql

Avec mes parametres bien sur, il me lance le debogueur sur :

DB.execute maPhraseSql


Mais je ne sais pas comment on fait pour faire ce que tu appelles "mettre dans un String"

Merci

[micniv]

Tu mets dans un string" ??? C'est à dire? Moi j'ai mis ca: Dim maPhraseSql As String

J'aime bien faire un peu d'humour, alors tu as bien compris : déclarer maPhraseSql de type String. (pas de type Petitt Kulott ! )

l'autre point :

DB.execute maPhraseSql

tu dois déclarer DB :
(nécessite une réference DAO )

Code :

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

Dim DB As DAO.Database

A+

[guidzit]

Toujours pas

Mon code:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Cocher36_AfterUpdate()
Dim DB As DAO.Database
Dim modif As String
If Cocher36 = True Then
modif = "UPDATE Table de demandes SET Etat='Fermé' ;"
DB.Execute modif
End If
End Sub

Quand je coche la case j'ai:

Erreur d'execution '91':
Variable Objet ou variable de bloc with nom défini

J'ai regarde un peu l'aide, je n'ai pas de variable objet de declaree donc pas de SET, peut etre un bloc with... end with a implementer?

Je debute en access... au cas ou ca se serait pas vui

[Lou Pitchoun]

Salut,
Juste une question ??
la première chose qui me vient à l'idée : as tu coché la référence DAO ?

[Tofalu]

A ce stade, db ne vaut rien. Il manque quelque chose du style

Set Db=CurrentDb

[Lou Pitchoun]

je l'ai pas vu celui là

[guidzit]

J'en arrive donc à cela comme code:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Cocher36_AfterUpdate()
Dim DB As DAO.Database
Set DB = CurrentDb
Dim modif As String
If Cocher36 = True Then
modif = "UPDATE Table de demandes SET Etat='Fermé' ;"
DB.Execute modif
End If
End Sub

Mais ca ne marche toujours pas!

J'ai une "erreur de syntaxe dans l'instruction update" ! Peut etre un probleme lie a ce que disait Kikof: "la première chose qui me vient à l'idée : as tu coché la référence DAO ?". Ou puis je voir ca?

Merci pour votre aide !


Ajout des balises codes : essaie d'y penser => bouton #

[jeanchcom]

Tu peux vérifier dans VBA, menu Outils/Références.

[Lou Pitchoun]

Quand tu as des noms avec des espaces, il faut les mettre entre crochets.

Code :

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

modif = "UPDATE [Table de demandes] SET [Table de demandes].Etat='Fermé' ;"

Quand tu es sur un module, menu Outils références puis tu coches la référence manquante.

[guidzit]

C'est bon ça marche, enfin presque

Parcequ'il me passe toute ma table sur 'fermé' et pas seulement l'enregistrement auquel correspond mon formulaire!

Idem avec mon histoire de menu d'options du debut, si je change sur un enregistrement il me duplique la chose sur le reste
Je vais deja verifier mon formulaire

[Lou Pitchoun]

Parcequ'il me passe toute ma table sur 'fermé' et pas seulement l'enregistrement auquel correspond mon formulaire!

Ajoute une clause where à ton SQL

Code :

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

modif = "UPDATE [Table de demandes] SET [Table de demandes].Etat='Fermé' WHERE [Table de demandes].Cléprimaire = " & Me.ChampCléPrimaire & ";"

Idem avec mon histoire de menu d'options du debut, si je change sur un enregistrement il me duplique la chose sur le reste
Je vais deja verifier mon formulaire

Idem que ci-dessus : insère la clause where.

[guidzit]

Marvellous !


Nickel


Merci beaucoup