[access] Variable dans une requete sql

Résolu/Fermé

lord_in Messages postés 58 Date d'inscription dimanche 27 mai 2007 Statut Membre Dernière intervention 29 octobre 2007 - 15 juin 2007 à 14:12
FloVBA - 22 nov. 2022 à 13:52

Variable dans une requete sql

Je n’arrive pas à intégrer une variable dans une instruction sql

Voilà mon code
Dim T as date
Dim T1 as date

T = Val(Datett.Value)
T1 = DateAdd("m", 1, T)
DoCmd.RunSQL "INSERT INTO Table1tampon ( Material, [material description], [zone], mois, forecasts ) SELECT TableTotal.Material, TableTotal.[material description], TableTotal.zone, TableTotal.mois, TableTotal.forecasts FROM TableTotal WHERE (((TableTotal.zone)=zonett.value) AND ((TableTotal.mois)=datett.value));", -1

DoCmd.RunSQL "INSERT INTO Table2tampon ( Material, [material description], [zone], mois, forecasts ) SELECT TableTotal.Material, TableTotal.[material description], TableTotal.zone, TableTotal.mois, TableTotal.forecasts FROM TableTotal WHERE (((TableTotal.zone)=zonett.value)) AND ((TableTotal.mois)= T1 ) ;", -1

Et quand j’exécute il me demande la valeur de la variable T

Dattett = la date que je tape dans mon formulaire

Merci de votre aide

A voir également:

Access variable
Access appdata - Guide
Impossible de créer le fichier de travail. vérifiez la variable d'environnement temp ✓ - Forum Word
Acer quick access ✓ - Forum Windows
Exemple base de données access à télécharger gratuit ✓ - Forum Logiciels

1 réponse

Réponse 1 / 1

blux Messages postés 26721 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 17 mars 2025 3 332
15 juin 2007 à 14:33

Salut,

il faut sortir T1 du texte de la requête :

Dim StrSql as string
Strsql = "INSERT INTO Table2tampon ( Material, [material description], [zone], mois, forecasts ) "
StrSql = StrSql + "SELECT TableTotal.Material, TableTotal.[material description], TableTotal.zone, TableTotal.mois, TableTotal.forecasts FROM TableTotal WHERE (((TableTotal.zone)=zonett.value)) "
StrSql = StrSql + "AND ((TableTotal.mois)= '" + T1 + "') ;"
DoCmd RUNSQL (Strsql,-1)

Et éventuellement mettre la date entre # si TableTotal.mois est de type date...

lord_in Messages postés 58 Date d'inscription dimanche 27 mai 2007 Statut Membre Dernière intervention 29 octobre 2007
15 juin 2007 à 15:32

En fait il me met type incompatible pour cette ligne
StrSql = StrSql + "AND ((TableTotal.mois)= '" + T1 + "')

J’ai vérifié mes tables et le mois et bien du type date
Et pour les # j’avais déjà essayé mais ca marche pas !!!

PS : j’ai changé « DoCmd RUNSQL (Strsql,-1) » en DoCmd.RunSQL StrSql
Parce qu il voulait pas prendre la 1ère

blux Messages postés 26721 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 17 mars 2025 3 332
15 juin 2007 à 15:43

le mois et bien du type date
Mais que contient-il : un mois ou une date ?

lord_in Messages postés 58 Date d'inscription dimanche 27 mai 2007 Statut Membre Dernière intervention 29 octobre 2007 > blux Messages postés 26721 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 17 mars 2025
15 juin 2007 à 15:47

il contient une date sous forme ex 01/05/2006
et mois c'est le nom du champ

blux Messages postés 26721 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 17 mars 2025 3 332 > blux Messages postés 26721 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 17 mars 2025
15 juin 2007 à 15:49

StrSql = StrSql + "AND ((TableTotal.mois)= #" + T1 + "#) ;"

???

tjrs le meme problème !!!!

Discussions similaires

C'est quoi le runtime Access ?

Acer quick access

VBA : Range avec références variables..

Acer Quick Access - affichage CapsLock, VerrNum

Désinstaller ACER QUICK ACCESS