Discussion :

[Cerisier]

Un problème très simple de syntaxe sur lequel je bute
je fais une requête dont le code SQL est

Code :

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

1
2
3
SELECT T_Pers.Nom, T_Pers.Prénom, T_Pers.CodePostal, T_Pers.DateCréation
FROM T_Pers
WHERE (((T_Pers.DateCréation)=Formulaires!SyntaxeVBA!SaisieDate1));

Cette requête fonctionne et donne le résultat en PJ
Je veux transformer cette requête en code VBA,
je copie le code SQL que j'insère dans une phrase bdd.OpenRecordset, j'écris donc

Code :

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

1
2
3
4
5
6
7
Private Sub Bt_Select_Click()
Dim bdd As Database
Dim rds_Pers As Recordset
Set bdd = CurrentDb
Set rds_Pers = bdd.OpenRecordset("SELECT T_Pers.Nom, T_Pers.Prénom, T_Pers.CodePostal, T_Pers.DateCréation " _
               & " FROM T_Pers " _
               &  "WHERE (((T_Pers.DateCréation)=[Formulaires]![SyntaxeVBA]![SaisieDate1])); ")

J'obtiens invariablement : erreur 3061 trop peu de paramètres 1 attendu
j'ai essayé d'ajouter des ' des " mais sans succès
N'existe t'il pas un document qui traite ces bizarreries de syntaxe . Un grand merci d'avance

[Psychopathe]

Deux questions. en enlevant la condition Where et tout ce qu'il y a derrière, es-ce que tu as le même soucis? Es-ce que ton formulaire est ouvert?

[Invité]

Bonjour,

Code :

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

1
2
3
Set rds_Pers = bdd.OpenRecordset("SELECT T_Pers.Nom, T_Pers.Prénom, T_Pers.CodePostal, T_Pers.DateCréation " _
               & " FROM T_Pers " _
               &  "WHERE (((T_Pers.DateCréation)=[Formulaires]![SyntaxeVBA]![SaisieDate1])); ")

À quoi correspond le terme : [Formulaires]! ?

Ne serait-ce pas Forms! ?

[Kawabaumga]

Bonjour,
Essayez ceci:

Code :

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

1
2
3
4
5
6
7
Private Sub Bt_Select_Click()
Dim bdd As Database
Dim rds_Pers As Recordset
Set bdd = CurrentDb
Set rds_Pers = bdd.OpenRecordset("SELECT T_Pers.Nom, T_Pers.Prénom, T_Pers.CodePostal, T_Pers.DateCréation" _
               & " FROM T_Pers " _
               &  "WHERE T_Pers.DateCréation=" & [Formulaires]![SyntaxeVBA]![SaisieDate1] & ";")