Discussion :

[nemog]

Bonjour

Je sèche sur un petit détail :

J'ai des cases à cocher sur un formulaire
Au load() du formulaire, pas de souci, les cases ont des valeurs vrai ou faux
Si je décoche une case, elle prend la valeur 0
Si je coche une case, elle prend la valeur -1

et ça pose des pb de mise à jour de table ensuite (pb d'incompatibilité de type)
Je peux faire "oui, mets quand même à jour la table", mais bon...

Si je pouvais comprendre ce binz....

Merci

[ONTAYG]

Bonjour,

Dans ta table tu as donc un champ booléen ?

Si oui ne t'embête pas avec les valeurs, utilise True et False.

ONTAYG

[nemog]

Je lance un SQL UPDATE pour mettre à jour une table (TabPlan)
Dans TabPlan les champs AstL, AstMa, AstMe.... sont bien du type booleen OUI/NON
Dans mon formulaire, me.AstL, me.AstMa.... sont des cases à cocher

Code :

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

1
2
3
4
monsql2 = "UPDATE TabPlan SET TabPlan.[1M] = '" & Me.LM & "', TabPlan.[1A]= '" & Me.LA & "', TabPlan.[2M]= '" & Me.MaM & "', TabPlan.[2A]= '" & Me.MaA & "', TabPlan.[3M]= '" & Me.MeM & "', TabPlan.[3A]= '" & Me.MeA & "', TabPlan.[4M]= '" & Me.JM & "', TabPlan.[4A]= '" & Me.JA & "', TabPlan.[5M]= '" & Me.VM & "', TabPlan.[5A]= '" & Me.VA & "'"
monsql2 = monsql2 & ", TabPlan.[AstL] = '" & Me.AstL & "', TabPlan.[AstMa] = '" & Me.AstMa & "',TabPlan.[AstMe] = '" & Me.AstMe & "',TabPlan.[AstJ] = '" & Me.AstJ & "',TabPlan.[AstV] = '" & Me.AstV & "' WHERE (TabPlan.Semaine like '" & Me.ChoixS & "' AND TabPlan.Nom like '" & Me.ChoixNom.Column(1) & "')"
 
DoCmd.RunSQL monsql2

Je ne pige pas ce qui se passe, pourquoi c'est -1 et 0 (je le vois quand je passe la souris sur les champs concernés dans monsql2 en débug) au lieu de renvoyer true ou false

[nemog]

Bon, ce n'est pas une question de FAUX/VRAI ou 0/-1 apparemment, mais c'est sûr que c'est cette mise à jour de booléen qui pose pb
Quand je supprime le texte de mise à jour des champs booléens, je n'ai plus de msg d' erreur
Peut-être ai-je mal écrit monsql2 (2e ligne) ?

[ONTAYG]

Re

Pour les champs booléens ne pas mettre de quotes (')

ONTAYG

[nemog]

Merci ONTAYG, faut le savoir !

monsql2 est maintenant :

Code :

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

1
2
3
 
monsql2 = "UPDATE TabPlan SET TabPlan.[1M] = '" & Me.LM & "', TabPlan.[1A]= '" & Me.LA & "', TabPlan.[2M]= '" & Me.MaM & "', TabPlan.[2A]= '" & Me.MaA & "', TabPlan.[3M]= '" & Me.MeM & "', TabPlan.[3A]= '" & Me.MeA & "', TabPlan.[4M]= '" & Me.JM & "', TabPlan.[4A]= '" & Me.JA & "', TabPlan.[5M]= '" & Me.VM & "', TabPlan.[5A]= '" & Me.VA & "'"
monsql2 = monsql2 & ", TabPlan.[AstL] = " & Me.AstL & ", TabPlan.[AstMa] = " & Me.AstMa & ",TabPlan.[AstMe] = " & Me.AstMe & ",TabPlan.[AstJ] = " & Me.AstJ & ",TabPlan.[AstV] = " & Me.AstV & " WHERE (TabPlan.Semaine like '" & Me.ChoixS & "' AND TabPlan.Nom like '" & Me.ChoixNom.Column(1) & "')"

Mais à l'exécution j'ai 2 fenêtres me demandant "Entrer une valeur de paramètre" pour FAUX et VRAI !
je me suis trompé dans la correction de la ligne 3 ?

[ONTAYG]

Re

Si on te demande d'entrer un paramètre en général c'est qu'un champ est mal orthographié

ONTAYG

[nemog]

tout a l'air bien orthographié, dans la table, dans le formulaire et dans le sql

Quand je passe les 2 popups, c'est comme tout à l'heure avec le 1er pb, ça se met quand même à jour !

[micniv]

Bonjour,
place un

Code :

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

 debug.print monsql2

après les lignes

monsql2 = ...

dans la fenetre Execution du VBE tu verras la valeur de cette chaine et mieux diagnostiquer

[nemog]

Merci Micniv,

voici ce que le debug.print donne :

Code :

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

UPDATE TabPlan SET TabPlan.[1M] = '', TabPlan.[1A]= '', TabPlan.[2M]= '', TabPlan.[2A]= '', TabPlan.[3M]= '', TabPlan.[3A]= '', TabPlan.[4M]= '', TabPlan.[4A]= '', TabPlan.[5M]= '', TabPlan.[5A]= '', TabPlan.[AstL] = Faux, TabPlan.[AstMa] = 0,TabPlan.[AstMe] = 0,TabPlan.[AstJ] = Faux,TabPlan.[AstV] = Faux ,TabPlan.DateLundi = '29/04/2024' WHERE (TabPlan.Semaine like '18' AND TabPlan.Nom like 'LEMESSAGER')

je ne sais qu 'en penser

[micniv]

et quand tu lances directement cette requete SQL, qu'est ce se passe ?

[deedolith]

Hello,

Quid d'écrire une requête paramétrée plutot que construire une chaine par concaténation qui pose plein de problèmes de conversion de données ?

Par exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Sql As String
Sql = Sql & "PARAMETERS Flag Boolean;" & VbCrLf    '// Declaration de paramètres
Sql = Sql & "UPDATE MaTable" & VbCrLf
Sql = Sql & "SET MaColonne = [Flag];"    '// Utilisation du paramètre
 
Dim Db As DAO.Database
Set Db = CurrentDb
 
Dim Qd As DAO.QueryDef
Set Qd = Db.CreateQueryDef("TempQuery", Sql)    '// Creation d'une requête
Qd.Parameters("Flag"].Value = Me.CheckBox.Value    '// Initialisation du Paramètre
Qd.Execute
 
Db.QueryDefs.Delete Qd.Name    '// Destruction de la requête

Avantages:
Le code de la requête est plus lisible (il n'est pas pollué par la concaténation de variables).
Le code de la requête est plus facile à maintenir.
Les types de données sont vérifiés avant exécution de la requête (donc les problèmes sont plus facile à détecter)
Les valeurs nulle sont supportées.

[nemog]

Merci Deedolith, mais désolé, là ça me complique bien les choses, ce n'est pas de mon niveau
même si j'ai déjà utilisé les Querydefs et Cie

Je ne saurai pas adapter ce que tu proposes à ce que je fais en ce moment, surtout qu'il faut que ce se soir ok demain
Je vais essayer de ruser en stockant des valeurs dans des champs cachés quand on "actionne" une case à cocher
et ce seront ces valeurs (string) qui mettront à jour la table

je voulais juste comprendre pourquoi une case à cocher présente parfois 0 et -1 au lieu de VRAI ou FAUX

Je garde ta solution dans un coin et la réutiliserai sûrement à une autre occasion

[deedolith]

La seule réelle difficulté, est de réécrire ta requête avec des paramètres.

Pour cela tu peux t'aider du requêteur:

Ensuite, tu affiches la requête en mode SQL et tu obtiens le code source de cette dernière.

[nemog]

merci je vais regarder ça

là, j'ai contourné mon pb et ça marche - c'est un peu dans l' urgence

Je recommencerai à zéro avec ta méthode à tête reposée