Discussion :

[tubafeu]

bonsoir,
j ai un form independant ds lequel j ai 5 zld (liees entre elles) basees sur la table T_Bouture (source des zld definits en vba par bouton puisque j ai 4 tables sources possibles) qui permettent la creation d articles qui sont ensuite envoyes sur d autres tables (sur double clic d un btn) visualiser par des sous form dont la source est definit par le meme bouton que pour les zld.
Dans cette table T_Bouture notemment j ai un champs case a cocher "chkRempotageJP". J aimerai lorsque j'envoie ces articles sur d autres tables que la case a cocher chkRempote se coche dans la table T_Bouture.

Code :

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

1
2
3
Dim StrSql32 As String
    StrSql32 = "SELECT T_Bouture.BoutureRempote FROM T_Bouture WHERE (((T_Bouture.RefBouture)=[zldRempotageJP])) GROUP BY T_Bouture.BoutureRempote;"
    Me.chkRempotageJP.ControlSource = StrSql32

Cette case a cocher si = vrai me permet de limiter le nombre d enregistrement qui arrivent dans mes zld.

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
35
36
37
'definit la source de la zldGenre
    StrSql10 = "SELECT T_Bouture.IdGenre, T_Genre.Genre, T_Bouture.BoutureRempote " & _
               "FROM T_Genre INNER JOIN T_Bouture ON T_Genre.RefGenre = T_Bouture.IdGenre " & _
               "GROUP BY T_Bouture.IdGenre, T_Genre.Genre, T_Bouture.BoutureRempote " & _
               "HAVING (((T_Bouture.BoutureRempote) = False)) " & _
               "ORDER BY T_Genre.Genre;"
 
    Me.zldGenre.RowSource = StrSql10
 
'definit la source de la zldEspece
    StrSql11 = "SELECT T_Bouture.IdEspece, T_Espece.Espece, T_Bouture.BoutureRempote " & _
               "FROM T_Espece INNER JOIN T_Bouture ON T_Espece.RefEspece = T_Bouture.IdEspece " & _
               "WHERE (((T_Bouture.IdGenre) = [zldGenre])) " & _
               "GROUP BY T_Bouture.IdEspece, T_Espece.Espece, T_Bouture.BoutureRempote " & _
               "HAVING (((T_Bouture.BoutureRempote) = False)) " & _
               "ORDER BY T_Espece.Espece;"
 
    Me.zldEspece.RowSource = StrSql11
 
'definit la source de la zldCultivar
    StrSql12 = "SELECT T_Bouture.IdCultivar, T_Cultivar.Cultivar, T_Bouture.BoutureRempote " & _
               "FROM T_Cultivar INNER JOIN T_Bouture ON T_Cultivar.RefCultivar = T_Bouture.IdCultivar " & _
               "WHERE (((T_Bouture.IdGenre) = [zldGenre]) And ((T_Bouture.IdEspece) = [zldEspece])) " & _
               "GROUP BY T_Bouture.IdCultivar, T_Cultivar.Cultivar, T_Bouture.BoutureRempote " & _
               "HAVING (((T_Bouture.BoutureRempote) = False)) " & _
               "ORDER BY T_Cultivar.Cultivar;"
 
    Me.zldCultivar.RowSource = StrSql12
 
'definit la source de la zldRefJeunePlant
    StrSql32 = "SELECT T_Bouture.RefBouture, T_Bouture.BoutureRempote " & _
               "FROM T_Bouture " & _
               "WHERE (((T_Bouture.IdGenre) = [zldGenre]) And ((T_Bouture.IdEspece) = [zldEspece]) And ((T_Bouture.IdCultivar) = [zldCultivar])) " & _
               "GROUP BY T_Bouture.RefBouture, T_Bouture.BoutureRempote " & _
               "HAVING (((T_Bouture.BoutureRempote)=False));"
 
    Me.zldRefJeunePlant.RowSource = StrSql32

Et la je rame depuis des heures. La case a cocher que j ai sur mon form independant ne repond a aucun clic.Je ne sais pas comment inserer "vrai" dans un autre table correspondant a l enregistrement definit.

Tout ce montage me permet d avoir un seul formulaire base sur un dizaine de table ( et je tiens a mon montage)

J espere avoir ete clair d avance Merci

[ClaudeLELOUP]

Bonjour,

"SELECT T_Bouture.BoutureRempote FROM T_Bouture WHERE (((T_Bouture.RefBouture)=[zldRempotageJP])) GROUP BY T_Bouture.BoutureRempote;"

Encore faut-il que ce sql donne une valeur acceptable pour une case à cocher : 0, -1, False .... (à vérifier dans un requête).
Et dans ce cas, je crois que tu devrais écrire

Code :

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

Me.chkRempotageJP.ControlSource = "=" & StrSql32

ou simplement

Code :

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

Me.chkRempotageJP= StrSql32

[tubafeu]

bonsoir et merci
les codes

Code :

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

Me.chkRempotageJP.ControlSource = "=" & StrSql32

erreur d execution 7956
cette expression comporte une sous requete erronee
ou simplement

Code :

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

Me.chkRempotageJP= StrSql32

erreur d execution-2147352567(8002009)
impossible d attribuer une valeur a cet objet
ne fonctionne pas
la requete a l air de fonctionner mais pas l attribution de la source de la chk

[ClaudeLELOUP]

Bonsoir,

ajoute un debug.print de StrSql32 Pour constater qu'il vaut 0 ou -1

[ClaudeLELOUP]

impossible d attribuer une valeur a cet objet

quelle est la propriété "source contrôle" de chkRempotageJP dans le formulaire ?

[tubafeu]

bonour et merci encore
pour le debug print je ne sais pas faire je vais regarder
rien ds mon controle source de la chk si ce n est sur le clic d un btn qui m initialise la chk

Code :

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

1
2
3
strsql32="SELECT T_Bouture.BoutureRempote,T_Bouture.IdGenre, T_Bouture.IdEspece, T_Bouture.IdCultivar
FROM T_Bouture
WHERE (((T_Bouture.RefBouture)=[zldRefJeunePlant]));

pas mis les & et_ mais ils y sont
ce code marche en requete mais pas sur la chk du form independant

Code :

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

Me.chkRempotageJP.ControlSource = "=" & StrSql32

Code :

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

Me.chkRempotageJP.ControlSource =StrSql32

Code :

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

Me.chkRempotageJP= StrSql32

aucun de ces codes ne marchent
seul le 2 eme ne m indique pas d erreur a l initialisation de la chk mais celle ci reste grisee et est incliquable

[ClaudeLELOUP]

Bonjour,

tu as :

Dim StrSql32 As String
StrSql32 = "SELECT T_Bouture.BoutureRempote FROM T_Bouture WHERE (((T_Bouture.RefBouture)=[zldRempotageJP])) GROUP BY T_Bouture.BoutureRempote;"
Me.chkRempotageJP.ControlSource = StrSql32

Ajoute debug.print comme ceci :

Code :

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

1
2
3
4
Dim StrSql32 As String
    StrSql32 = "SELECT T_Bouture.BoutureRempote FROM T_Bouture WHERE (((T_Bouture.RefBouture)=[zldRempotageJP])) GROUP BY T_Bouture.BoutureRempote;"
Debug.print StrSql32
    Me.chkRempotageJP.ControlSource = StrSql32

Provoque l’exécution de ce code.
Vas dans la fenêtre des Objets
Clique sur Modules
Tu en ouvres un. Si tu n’en as pas encore, clique sur nouveau.
Une nouvelle fenêtre s’ouvre.
Agrandis.
Si tu n’as pas de fenêtre « Exécution » ouverte au bas de l’écran, cherche dans le menu pour trouver l’icône ad hoc et clique.
Si rien n’apparaît dans la fenêtre, reprovoque l’exécution du code.
Dans la fenêtre d’exécution le contenu de ‘StrSql32’, qui a été généré, va s’afficher.
C'est en fait le sql d'une requête.
Nous allons le visualiser.
Mets-toi en mode création d’une nouvelle requête
A l’invite « ajouter une table », tu cliques sur FERMER
Tu cliques sur sql dans la barre menu
Tu remplaces « Select ; » par le copier coller du sql ci-dessus.
Tu cliques sur affichage dans le menu et tu constates le contenu de l’exécution du sql.
Dis ce que tu vois.

[tubafeu]

j ai fait ce que tu m as dit et ai le meme resultat que

Code :

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

SELECT T_Bouture.BoutureRempote FROM T_Bouture WHERE(((T_Bouture.RefBouture)=[zldRefJeunePlant]));

[tubafeu]

qui correspond lettre pour lettre a ma requete sur mon bouton

[ClaudeLELOUP]

Ok mais que te donne ce sql dans une requête?
Autre chose que -1 ou 0,
il est là ton problème.

[ClaudeLELOUP]

Excuse-moi, mais je relis tes postes et je ne comprends plus ce que tu cherches.
Pourrais-tu redire quand tu veux cocher cette case.
Exemples de réponse :
- Lorsque je clique sur tel bouton
- Lorsque je constate que tel élémént se trouve à la fois dans telle et telle tables
- ....

[tubafeu]

vraiment excuse mon incompetence
le resulat de ma requete

Code :

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

SELECT T_Bouture.BoutureRempote FROM T_Bouture WHERE (((T_Bouture.RefBouture)=[zldRempotageJP]))

c est une colonne case a cocher d un seul enregistrement qui elle est cliquable
si je prends cette meme requete que j applique au controle du form independant la case a cocher n est pas cliquable.

[tubafeu]

Il s agit d envoyer de la table T_Bouture des enregistrements dans la table T_Rempotage (ca pas de probleme) et en meme temps de cocher la case a cocher chkBoutureRempote de T_Bouture(la probleme) pour indiquer que ces boutures sont rempotes(cela me permet de filtrer les zld sur la table T_Bouture)
Ceci a partir d un form independant ou les sources des zld sont alimentes en vba

[ClaudeLELOUP]

Pour mettre à jour à OUI le champ chkBoutureRempote dans la table T_bouture, dans le double-click du bouton, tu ajoutes simplement ceci

Code :

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

1
2
3
4
DoCmd.SetWarnings False 'pour supprimer l'invite à confirmer
'Exécution d'une requête de mise à jour
DoCmd.RunSQL ("UPDATE T_bouture SET T_bouture.chkBoutureRempote = Yes WHERE (((T_bouture.RefBouture)=[Forms]![Formulaire1]![ZdlRempotageJP]));")
DoCmd.SetWarnings True 'pour rétablir les alertes

dans lequel tu remplaces 'Formulaire1' par le nom de ton formulaire

Ceci règle le problème de la MàJ dans la table.
Y-a-t-il encore autre chose que tu veuilles faire ?

[tubafeu]

Genial ca marche super Claude
mille mercis