Query SQL VBA (Insert INTO) avec Conditions en variable (Date)

Version imprimable

Bonjour à tous,

Voila aprés plusieurs essais et aprés plusieurs jours de recherche, je me tourne une fois de plus vers vous.
Je rencontre un probléme de concernant mon CODE SQL voir ci dessous:

Comme d'habitude je créer ma query avec l'assistant access puis je transpoe en SQL pour y inclure mes variables (rien d'extraordinaire), seulement mes clause "where" déconne je ne sais pas pour quelles raison. la query ne me génére rien du tout ou la totalité des enregistrement...

Je deviens fou à force de retourner ce code dans tout les sens, est ce que quelqu'un pourrait me dire si quelque chose vous semble étrange???

Code:

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
38
39
40
Private Sub Run_ADD_New_Processing_Click()
 
Dim SQL As String
 
Dim Date_deb_inf As Date
Dim Date_deb_sup As Date
Dim Date_fin_inf As Date
Dim Date_fin_sup As Date
 
If IsNull(Forms![142 NEW_PROCESSING]!Txtbx_Date_deb_inf.Value) Then
Date_deb_inf = "01/01/1900"
Else
Date_deb_inf = Forms![142 NEW_PROCESSING]!Txtbx_Date_deb_inf.Value
End If
 
If IsNull(Forms![142 NEW_PROCESSING]!Txtbx_Date_deb_sup.Value) Then
Date_deb_sup = "31/12/3000"
Else
Date_deb_sup = Forms![142 NEW_PROCESSING]!Txtbx_Date_deb_sup.Value
End If
 
If IsNull(Forms![142 NEW_PROCESSING]!Txtbx_Date_fin_inf.Value) Then
Date_fin_inf = "01/01/1900"
Else
Date_fin_inf = Forms![142 NEW_PROCESSING]!Txtbx_Date_fin_inf.Value
End If
 
If IsNull(Forms![142 NEW_PROCESSING]!Txtbx_Date_fin_sup.Value) Then
Date_fin_sup = "31/12/3000"
Else
Date_fin_sup = Forms![142 NEW_PROCESSING]!Txtbx_Date_fin_sup.Value
End If
 
SQL = "INSERT INTO M_DATA_MANU_PROCESSING ( Pstrav, Article, Désignation_article, Origbes, Stat, Qté_A_venir, Début, Fin, Statut_ord_glob, Date_MAJ ) SELECT M_DATA_CM07.Pstrav, M_DATA_CM07.Article, M_DATA_CM07.Désignation_article, M_DATA_CM07.Origbes, M_DATA_CM07.Stat, M_DATA_CM07.Qté_A_venir, M_DATA_CM07.Début, M_DATA_CM07.Fin, M_DATA_CM07.Statut_ord_glob, M_DATA_CM07.Date_MAJ FROM M_DATA_CM07 INNER JOIN M_DATA_WP_PROCESSING_SELECT ON M_DATA_CM07.Pstrav = M_DATA_WP_PROCESSING_SELECT.[Poste de travail] WHERE (((M_DATA_WP_PROCESSING_SELECT.[Select])=True) AND ((M_DATA_CM07.Début)>" & CDate(Date_deb_inf) & ") And ((M_DATA_CM07.Début)<" & CDate(Date_deb_sup) & ") AND ((M_DATA_CM07.Fin)>" & CDate(Date_fin_inf) & ") And ((M_DATA_CM07.Fin)<" & CDate(Date_fin_sup) & "));"
 
DoCmd.RunSQL SQL
 
 
DoCmd.Close
End Sub

Un grand Merci d'avance

Alex,

01/03/2015, 13h21
sweetasnz

quel est le SGBD dans lequel tu exécute ta requête SQL que tu génère? MySQL, SQL server, ORACLE, autre?
n'est-ca pas un PB de format "date",
je ne connais pas access mais n'y a t'il pas une fonction du style DATE_FORMAT(date, '%d/%m/%Y %Hh%imin%ss') ou dans le genre pour préciser le format de date

as tu un message d'erreur explicite? si oui, le poster
01/03/2015, 14h37
Deustalos

Hello,

Il s'agit d'un type mySQL utilisé dans Access. le format de date ne doit pas etre un probléme vu que j'initialise mes variables DATE et (au cas ou) je reconverti mes variables en date avec la fonction "cdate()"

Pas de message d'erreur la query s'execute sans problémes. Mais ma clause WHERE n'est apparement pas prise en compte dans l'exécution du code (pour mes variables uniquement) ???

La clause: M_DATA_WP_PROCESSING_SELECT.[Select])=True est bien prise en compte.

Merci pour ton aide,
01/03/2015, 17h12
Robert1957

Bonjour Deustalos,

Le format de la date doit être mm/jj/aaaa soit US.

Le Where clause doit inclure "#" :

Code:

"AND ((M_DATA_CM07.Début)>#" & Format$(Date_deb_inf, "mm-dd-yyyy") & "#)..."

Bonne journée
04/03/2015, 09h02
Deustalos

Bonjour Robert,

Merci pour ta réponse, par contre je ne connais pas bien la fonction format$() et cette dernière ne marche apparemment pas bien dans mon code. Je ne trouve pas beaucoup de tuto sur cette fonction.
Je vais essayer en reconstruisant la date par éléments.

En tout cas merci pour la solution, je vous tiens au courant des résultats et posterai le résultat avant de passer en résolu.

Merci

Deust
04/03/2015, 14h24
Gado2600

Bonjour,

Je pense que c'est une erreur de frappe de Robert. Essaye avec "format" et non "format$".

Cordialement,

Bonjour à tous,

Bon après plusieurs essais cela ne marche toujours pas...
je n'ai pas de message d'erreur

Code:

SQL = "INSERT INTO M_DATA_MANU_PROCESSING ( Pstrav, Article, Désignation_article, Origbes, Stat, Qté_A_venir, Début, Fin, Statut_ord_glob, Date_MAJ ) SELECT M_DATA_CM07.Pstrav, M_DATA_CM07.Article, M_DATA_CM07.Désignation_article, M_DATA_CM07.Origbes, M_DATA_CM07.Stat, M_DATA_CM07.Qté_A_venir, M_DATA_CM07.Début, M_DATA_CM07.Fin, M_DATA_CM07.Statut_ord_glob, M_DATA_CM07.Date_MAJ FROM M_DATA_CM07 INNER JOIN M_DATA_WP_PROCESSING_SELECT ON M_DATA_CM07.Pstrav = M_DATA_WP_PROCESSING_SELECT.[Poste de travail] WHERE (((M_DATA_WP_PROCESSING_SELECT.[Select])=True) AND (M_DATA_CM07.Début > #" & Format(Date_deb_inf, "mm/dd/yyyy") & "#) AND (M_DATA_CM07.Début < #" & Format(Date_deb_sup, "mm/dd/yyyy") & "#) AND (M_DATA_CM07.Fin > #" & Format(Date_fin_inf, "mm/dd/yyyy") & "#) And (M_DATA_CM07.Fin < #" & Format(Date_fin_sup, "mm/dd/yyyy") & "#))"

Il n'y aurait-il pas de probléme de format entre le champ M_DATA_CM07.Début de mon formulaire en type date et la fonction Format(Date_deb_sup, "mm/dd/yyyy") qui doit renvoyer un champs de type string?

le resultat retourné par la requete n'est malheureusement pas conforme aux critères.

Quelqu'un aurait une idée?

Dans le doute je vous poste l'enssemble du code:
Code:

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 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 Private Sub Run_ADD_New_Processing_Click() DoCmd.OpenQuery ("142_R_ADD_NEW_PROCESSING") Forms![14 F_DEVERSEMENT_TRAITEMENT].Refresh Dim SQL As String Dim Date_deb_inf As Date Dim Date_deb_sup As Date Dim Date_fin_inf As Date Dim Date_fin_sup As Date If IsNull(Forms![142 NEW_PROCESSING]!Txtbx_Date_deb_inf.Value) Then Date_deb_inf = "01/01/1900" Else Date_deb_inf = Forms![142 NEW_PROCESSING]!Txtbx_Date_deb_inf.Value End If If IsNull(Forms![142 NEW_PROCESSING]!Txtbx_Date_deb_sup.Value) Then Date_deb_sup = "31/12/3000" Else Date_deb_sup = Forms![142 NEW_PROCESSING]!Txtbx_Date_deb_sup.Value End If If IsNull(Forms![142 NEW_PROCESSING]!Txtbx_Date_fin_inf.Value) Then Date_fin_inf = "01/01/1900" Else Date_fin_inf = Forms![142 NEW_PROCESSING]!Txtbx_Date_fin_inf.Value End If If IsNull(Forms![142 NEW_PROCESSING]!Txtbx_Date_fin_sup.Value) Then Date_fin_sup = "31/12/3000" Else Date_fin_sup = Forms![142 NEW_PROCESSING]!Txtbx_Date_fin_sup.Value End If Dim oRst As DAO.Recordset Dim oDb As DAO.Database Set oDb = CurrentDb Set oRst = oDb.OpenRecordset("SELECT max(N°_PROCESSING) as max_ID FROM M_DATA_HEADING_PROCESSING") LAST_N°_PROCESSING = oRst.Fields("max_ID").Value SQL = "INSERT INTO M_DATA_MANU_PROCESSING ( Pstrav, Article, Désignation_article, Origbes, Stat, Qté_A_venir, Début, Fin, Statut_ord_glob, Date_MAJ ) SELECT M_DATA_CM07.Pstrav, M_DATA_CM07.Article, M_DATA_CM07.Désignation_article, M_DATA_CM07.Origbes, M_DATA_CM07.Stat, M_DATA_CM07.Qté_A_venir, M_DATA_CM07.Début, M_DATA_CM07.Fin, M_DATA_CM07.Statut_ord_glob, M_DATA_CM07.Date_MAJ FROM M_DATA_CM07 INNER JOIN M_DATA_WP_PROCESSING_SELECT ON M_DATA_CM07.Pstrav = M_DATA_WP_PROCESSING_SELECT.[Poste de travail] WHERE (((M_DATA_WP_PROCESSING_SELECT.[Select])=True) AND (M_DATA_CM07.Début > #" & Format(Date_deb_inf, "mm/dd/yyyy") & "#) AND (M_DATA_CM07.Début < #" & Format(Date_deb_sup, "mm/dd/yyyy") & "#) AND (M_DATA_CM07.Fin > #" & Format(Date_fin_inf, "mm/dd/yyyy") & "#) And (M_DATA_CM07.Fin < #" & Format(Date_fin_sup, "mm/dd/yyyy") & "#))" DoCmd.RunSQL SQL oRst.Close oDb.Close Set oRst = Nothing Set oDb = Nothing DoCmd.Close End Sub
Encore un grand Merci pour votre aide.

Alex

12/03/2015, 21h15
Deustalos

Bonjour à tous,

J'ai trouver le problème, il s'agissait d'une erreur simple de champs aucun rapport avec le code SQL suite à vos conseilles.

Je passe donc en résolut.

Merci encore pour votre aide, je passe en résolut.

A bientot

Alexis.