Discussion :

[b.morvan]

bonjour à tous
j'ai un problème ds cette requete. lorsque je passse sur le code suivant :

Code :

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

Set requete = CurrentDb.OpenRecordset("SELECT param_annee_livret.num_param ,param_annee_livret.mois_annee FROM param_annee_livret where[format(mois_annee,#mm/yyyy#)]=" & Format(frm!date_abon, "mm/yyyy"))

j ai le message suivant 'erreur exécution 3061 "trop peu de paramètres. 1 attendu"

Code :

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

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
Public Function valid_annee()
Dim requete As DAO.Recordset
Dim frm As Form
Set frm = Forms![formu_personne]![sous_formu_abonnement].Form
If Not IsNull(frm!date_abon) Then
 
Set requete = CurrentDb.OpenRecordset("SELECT param_annee_livret.num_param ,param_annee_livret.mois_annee FROM param_annee_livret where[format(mois_annee,#mm/yyyy#)]=" & Format(frm!date_abon, "mm/yyyy"))
 
   If requete.RecordCount <> 0 Then
   frm!cod_param = requete!num_param
   Else
   Rem frm!cod_param = 0
   MsgBox "Attention Date d abonnement non trouvée dans le paramètrage année."
   End If
Else
MsgBox "Attention vous devez saisir une dat d'' abonnement avant de valider le paramètre année."
End If
Rem Refresh
 
Rem debut test
Dim requete2 As String
requete2 = "SELECT param_annee_livret.num_param ,param_annee_livret.mois_annee FROM param_annee_livret where (mois_annee,mm/yyyy)= " & Format(frm!date_abon, "mm/yyyy")
CurrentDb.Execute requete2
 
Rem fin test
 
End Function

merci pour votre aide

[loufab]

Bonjour,

Cette syntaxe est incorrecte.

Code :

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

where[format(mois_annee,#mm/yyyy#)]="

Les crochets sont utilisés pour entourer les noms de champ, de tables ou de paramètres mais en aucun cas une fonction.

Je te conseille également de terminer ta requête ainsi que de baliser ton paramètre de date sous peine d'avoir des résultats plus qu'aléatoires.

Cordialement,

[b.morvan]

bonsoir
merci pour ton aide. mais je ne comprends pas "baliser le paramétré date" et "terminer ta requête"
merci

[b.morvan]

j ai retiré les crochets

Code :

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

Set requete = CurrentDb.OpenRecordset("SELECT param_annee_livret.num_param ,param_annee_livret.mois_annee FROM param_annee_livret whereformat(mois_annee,#mm/yyyy#)=" & Format(frm!date_abon, "mm/yyyy"))

mais j'ai l"erreur 3075
errreur syntaxe dans la date dan,s l'execution
'format(mois_annee,#mm/yyyy#)=12/2013'

merci que dois je faire?

[loufab]

Bonjour,

Apparemment SQL n'est pas ta tasse de thé. Je te conseille de créer tes requêtes via le générateur de requête d'ACCESS puis de les transférer dans ton code VBA. Tu peux également faire l'inverse pour que le QBE (générateur de requête) te corrige ça.

Code :

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

whereformat(mois_annee,#mm/yyyy#)=" & Format(frm!date_abon, "mm/yyyy"))

Tu verras ainsi que whereformat n'est pas connu, les espaces sont important comme dans toute les langues. Sijécriscettephrasetuvasmettreunmomentàladécrypteretencoreparcequetuasuncerveau,lordinateurnenapaslui.

Comme je te disais précédemment il faut baliser ton résultat d'expression avec des simple cote par exemple :

Code :

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

Format(frm!date_abon, "mm/yyyy")

SQL c'est un langage à part entière, il ne supporte pas les inexactitudes.

Code :

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

Set requete = CurrentDb.OpenRecordset("SELECT param_annee_livret.num_param ,param_annee_livret.mois_annee FROM param_annee_livret where format(mois_annee,#mm/yyyy#)='" & Format(frm!date_abon, "mm/yyyy") & "';")

Cordialement,

[b.morvan]

Re bonjour

j’ai tapé votre solution que voici :

Code :

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

Set requete = CurrentDb.OpenRecordset("SELECT param_annee_livret.num_param ,param_annee_livret.mois_annee FROM param_annee_livret where format(mois_annee,#mm/yyyy#)= '" & Format(frm!date_abon, "mm/yyyy") & " '; ")

Mais j’ai toujours l’erreur:

Erreur syntaxe 3075

‘format(mois_annee,#mm/yyyy#)=’12/2013’’.

merci de ton aide

[loufab]

La fonction Format est présente dans l'aide. Il ne faut pas hésiter à presser sur F1.

Code :

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

format(mois_annee,"mm/yyyy")