Discussion :

[Magali33]

Bonjour,

J'applique la méthode indiquée dans l'un des tutoriel pour créer mes requêtes en VBA, je suis en phase d'apprentissage..

Je ne comprends pas pourquoi le code suivant ne fonctionne pas.

Code :

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

1
2
3
4
Dim sql As String
sql = sql & " SELECT Year([Date de notif]) AS an, IIf(Left(Tb_marchés![Mode de passation],1)='A','Appels d_offres',IIf(Left(Tb_marchés![Mode de passation],1)='S','Suite AC',IIf(Left(Tb_marchés![Mode de passation],1)='D','Décret Défense',""))) AS Mode1, Tb_marchés.[Mode de passation], Tb_marchés.[Date de l'OA ou OR], Tb_marchés.[Date prise en main], Tb_marchés.[Date signature PA], Tb_marchés.[Date de notif] INTO tb_délais"
sql = sql & " FROM Tb_marchés"
sql = sql & " WHERE (((Tb_marchés.[Date de l'OA ou OR])>0) AND ((Tb_marchés.[Date prise en main])>0) AND ((Tb_marchés.[Date signature PA])>0) AND ((Tb_marchés.[Date de notif])>= #" & Me.zi_critere & "# And (Tb_marchés.[Date de notif])<= #" & Me.zi_criterefin & "#));"

Apparemment ça bug au niveau du Iif ou du left.
Pourriez-vous m'aider ?

Merci d'avance.

[Jeannot45]

Hello,

L'erreur vient des guillemets dans la fonction IIF, ils doivent être doublés

Code :

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

1
2
3
4
Dim sql As String
sql = sql & " SELECT Year([Date de notif]) AS an, IIf(Left(Tb_marchés![Mode de passation],1)='A','Appels d_offres',IIf(Left(Tb_marchés![Mode de passation],1)='S','Suite AC',IIf(Left(Tb_marchés![Mode de passation],1)='D','Décret Défense',""""))) AS Mode1, Tb_marchés.[Mode de passation], Tb_marchés.[Date de l'OA ou OR], Tb_marchés.[Date prise en main], Tb_marchés.[Date signature PA], Tb_marchés.[Date de notif] INTO tb_délais"
sql = sql & " FROM Tb_marchés"
sql = sql & " WHERE (((Tb_marchés.[Date de l'OA ou OR])>0) AND ((Tb_marchés.[Date prise en main])>0) AND ((Tb_marchés.[Date signature PA])>0) AND ((Tb_marchés.[Date de notif])>= #" & Me.zi_critere & "# And (Tb_marchés.[Date de notif])<= #" & Me.zi_criterefin & "#));"

[Magali33]

Ok pour les guillemets, ca marche !!

Merci beaucoup !