Discussion :

[frevale]

Je souhaite effectuer la mise à jour d'un champ de type boolean ( actif) contenu dans une table [Lien piece teinte] :

Code :

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

1
2
3
[quote]selectionpiece = Me.[typepiece].Column(0)
supprimeteinte = Me.[listesuppression].Column(1)
DoCmd.RunSQL "Update [Lien piece teinte] Set [actif] = False where ([codepiece] = 'selectionpiece') And ([Idteinte] = 'supprimeteinte')"[/quote]

les champs codepiece et idteinte sont des champs de cette table (entier long) et les variables selectionpiece et supprimeteinte sont des variables de type integer.
J'ai le message d'erreur suivant :"type de données incompatible dans l'expression du critére"

Aprés bien des recherches je coince, à préciser que je débute dans le maniement de ce type de fonction, aprés tout on est là pour apprendre

[cafeine]

Hello,

1- tu mets des quotes (') avec des champs de type Long ... ça ne colle pas.
2- tu inclues des variables par leur nom dans la chaine et non par leur valeur.
cas typique : http://cafeine.developpez.com/access...ugprint/#LVI-A

essaie comme ceci :

Code :

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

DoCmd.RunSQL "Update [Lien piece teinte] Set [actif] = False where ([codepiece] = " & selectionpiece & ") And ([Idteinte] =  " & supprimeteinte & ")"

[frevale]

OK avec ta réponse j'ai débeugué mon pb, à cela j'ajoute une petite question : comment faire si je dois mettre à jour 2 autres champs avec les mêmes conditions dans la même table, faut-il tripler ce code ou peut -on accumuler plusieurs set ??
merci pour tout je vais voir sur ton lien pour continuer à apprendre

[cafeine]

Tu peux le faire d'un coup

Code :

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

DoCmd.RunSQL "UPDATE MaTable Set MonChamp1 = 1, MonChamp2 = 2, MonChamp3 = 1 WHERE MonChampCritere = " & UneVariable

[frevale]

J'ai un soucis avec cette déclaration, lorsque je lance ce programme il me demande de renseigner jour et heure par l'intermédiaire d'une msgbox alors que je les associe avec les fonctions DATE et TIME

Code :

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

1
2
jour = Date
heure = Time

Code :

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

1
2
3
DoCmd.SetWarnings False
DoCmd.RunSQL "Update [Lien piece teinte] Set [actif] = False, [Dataesaisie]=jour, [heuresaisie]=heure where ([codepiece] = " & selectionpiece & ") And ([Idteinte] =  " & supprimeteinte & ")"
DoCmd.SetWarnings True

[Demco]

tu inclues des variables par leur nom dans la chaine et non par leur valeur.

Caféine a portée la solution à ce problème lors de son premier message. Il s'agit du 2.
Je te conseille de suivre le lien qu'il t'a donné afin de comprendre et corriger ton erreur. Il te suffit de concaténer tes variables à l'intérieur de la chaîne de caractère comme montré dans le lien qu'il t'a donné.

[frevale]

OK j'ai lu avec attention le lien mais par contre n'est pas celui que j'atends je viens de m'en rendre compte :

Code :

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

1
2
3
DoCmd.SetWarnings False
DoCmd.RunSQL "Update [Lien piece teinte] Set [actif] = False, [Dataesaisie]='jour', [heuresaisie]= 'heure' where ([codepiece] = " & selectionpiece & ") And ([Idteinte] =  " & supprimeteinte & ")"
DoCmd.SetWarnings True

Voila ce qu'il se passe :
étape 1 : je crée uln lien avec une heure et une date Id n°135 -> pas de pb
étape 2 : quand je souhaite le modifer avec les lignes de programme précédentes, il en crée une autre N°136 avec la date de la modif ainsi que le bonne heure et la ligne précédente il supprime la date et l'heure


Malgré mes lectures attentives du lien indiqué je tourne en rond

[cafeine]

Tu cumules les sources d'erreur avec les dates dans ton SQL (regarder la FAQ)

et tu continues de mettre des variables à l'intérieur d'une chaine ...

pour t'en convaincre essaie ça ...

Code :

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

1
2
toto = "Jean-Claude"
msgbox "0 + 0 = la tete à toto"

ou bien

Code :

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

1
2
toto = "Jean-Claude"
msgbox "0 + 0 = la tete à " & toto