Discussion :

[jclm230759]

Bonjour à tous

dans ma table j'ai un champ reprenant les semaines (2014-01, 2014-02,...) et un champ reprenant les tâches à effectuer.
Dans mon formulaire quand j'encode ma tâche je voudrais contrôler si elle n'est déjà pas encodée pour cette semaine.

Dans mon formulaire à la fonction MAJ du champ Rep_tache j'ai créé le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Rep_tache_AfterUpdate()
 
If DCount("Rep_tache", "T_repartition", "[RepSem]=#" & "AND [Rep_tache]='" & Me.Rep_tache & "'") > 0 Then
MsgBox " Cette tâche est déjà encodée pour cette semaine "
Me.Rep_tache.SetFocus
 
End If
 
End Sub

mais j'ai chaque fois une erreur 3075. J'ai déjà essayé de rectifier mon écriture mais en vain.
Mon champ Rep_tache et RepSem sont en format Texte
Pouvez vous m'aider ?

Merci d'avance

jcl

[ClaudeLELOUP]

Bonjour,

Tu as oublié le paramètre ici :

Code :

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

If DCount("Rep_tache", "T_repartition", "[RepSem]=#" ????????????& "AND [Rep_tache]='" & Me.Rep_tache & "'") > 0 Then

[jclm230759]

Bonsoir ClaudeLeloup

j'ai inséré le paramètre de mon champ RepSem. je numérote les semaines de la façon suivant 2014-00, 2014-01, .... en format texte
mais j'ai toujours mon erreur 3075 < erreur de syntaxe dans .......

Code :

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

If DCount("Rep_tache", "T_repartition", "[RepSem]=#" & Format(Me.RepSem, "yyyy-99") & "#" & "AND [Rep_tache]='" & Me.Rep_tache & "'") > 0 Then

Qu'ai je oublié ?

Merci d'avance pour les réponses

Jclm

[ClaudeLELOUP]

Bonjour,

Le contenu de ta table n'est pas clair : RepSem contient une date ou bien du texte ?

Poste un échantillon de ta BdD en version Access2000 avec le formulaire et la table.

[jclm230759]

Bonjour,

Je vois soit que l'on se couche tard ou que l'on se lève tôt

Voici une petite copie de la base, j'ai certainement fait une ratatouille avec mes tables


Bonne journée

Jclm
tachetest.zip

[ClaudeLELOUP]

Bonjour,

Je vois soit que l'on se couche tard ou que l'on se lève tôt

Ne t'occupe pas du chapeau de la gamine !

Vu le type des colonnes RepSem et Rep_tache, la syntaxe (Texte) est :

Code :

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

If DCount("Rep_tache", "T_repartition", "[RepSem]=""" & Me.RepSem & """ AND [Rep_tache]=""" & Me.Rep_tache & """") > 0 Then

Le délimiteur est « " » (double-quote) que tu dois doubler puisque eux-mêmes dans une expression encadrée de doubles-quotes.

[jclm230759]

Désolé pour le chapeau !

J'ai bien recopié le code mais il me donne
erreur de compilation attendu séparateur de liste ou ]

Code :

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

If DCount("Rep_tache", "T_repartition", "[RepSem]=""" & Me.RepSem & """ AND [Rep_tache]=""" & Me.Rep_tache & """) > 0 Then

Merci pour ton aide

Jclm

[ClaudeLELOUP]

Il te manque un double-quote : tu en as mis 3, je t'en proposais 4 !

Tu dors encore ?

[jclm230759]

Non je ne dors plus mais peut être que des nouvelles lunettes

Grand Merci cela fonctionne parfaitement

Au plaisir

Jclm

[ClaudeLELOUP]

... mais peut être que des nouvelles lunettes

Change avant dimanche, sinon tu risques de te tromper de case...

À+