expression sans parametre

bonjour,

voici mon code et j'ai une erreur qui me dit expression sans parametre

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub toolbar1_ButtonClick(ByVal Button As Object) On Error GoTo HandleErr Select Case Button.Key Case "FERMER"   Bouton25_Click   Case "CALCULER" If IsNull(Me!Matricule) Then Exit Sub If Not IsNull(DLookup("DerExport", "Config")) And format(Me!SituationDetail!DateBadgeage, "dd/mm/yyyy") <= format(DLookup("DerExport", "Config"), "dd/mm/yyyy") Then MsgBox "Vous ne pouvez pas modifier et recalculer : vous avez exporté ces données", vbInformation SendKeys "{ESC}", True Me.Refresh Exit Sub End If

---

le curseur s'arrete au 2eme If

merci d'avance

Salut,

Apparemment la syntaxe de ton dlookup est incorrecte,

Code:

---

Dlookup("Quoi","Ou","Critere")

---

dans ton dlookup, il manque le critère

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub toolbar1_ButtonClick(ByVal Button As Object) On Error GoTo HandleErr Select Case Button.Key Case "FERMER"   Bouton25_Click   Case "CALCULER" If IsNull(Me!Matricule) Then Exit Sub If Not IsNull(DLookup("DerExport", "Config")) And format(Me!SituationDetail!DateBadgeage, "dd/mm/yyyy") <= format(DLookup("DerExport", "Config"), "dd/mm/yyyy") Then MsgBox "Vous ne pouvez pas modifier et recalculer : vous avez exporté ces données", vbInformation SendKeys "{ESC}", True Me.Refresh Exit Sub End If

---

merci de ta reponse mais je ne vois pas ce qu'il manque

merci

Ton DlookUp a le quoi et le ou, mais n'as pas le critère

Code:

---

If Not IsNull(DLookup("DerExport", "Config")

---

Il devrait être

Code:

---

If Not IsNull(DLookup("DerExport", "Config","critere")

---

peut il etre nulle?

si oui, alors peut on le laisser tel quel?

Excuses moi, on peut effectivement ne pas mettre de critère, on vérifie dans ce cas là qu'on a bien au moins un enregistrement non nul.

pourtant la table config a bien un seul enregistrement

quels genre de critere ce peut etre?

tu as fait un copier coller de ton code ?

ce qui m'étonnes c'est que format n'ai pas de majuscule, ce qui voudrait dire que VB n'a pas reconnu la fonction Format

oui j'ai fait un copier coller du code

et format ne s'ecrit pas en bleu

peut etre que cela est du a ce que j'utilise une base de donnees sql server?

dans l'éditeur VBA, dans le menu Outils/Références, quels sont les références cochées ?

les references sont

VBA
Access
DameWare
Dao 3.6
Office
OCX
Windows common sp6
vba extensibility 5.3
word9.0

si dans vba tu tapes

Code:

---

toto=format(Me!SituationDetail!DateBadgeage, "dd/mm/yyyy"

---

est ce que format passe en majuscule ?

non ca ne passe pas en majuscule, il revient en minuscule

Excuses moi, mais là je vois pas......:(

ok merci de m'avoir aider en tout cas

ce serait pas une difference entre les dates en sql server et les dates en access?

je pense que c'est cela.

Tout à fait par hasard...

N'aurais-tu pas une variable nommée format quelque part dans ton code?

Bonjour,
Je reviens sur la fonction de regroupement de domaine DLookUp. Dans son écriture simplifiée, cette fonction devrait s'écrire comme ceci:

Code:

---

1 2	DLookUp("[champ]","domaine")

---

Il ne faut pas oublier les crochets qui délimitent le champ.
Alors la partie de ton code devrait être:

Code:

---

1 2	If Not IsNull(DLookup("[DerExport]", "Config")) And format(Me!SituationDetail!DateBadgeage, "dd/mm/yyyy") <= format(DLookup("[DerExport]", "Config"), "dd/mm/yyyy") Then

---

Pour mieux contrôler les expressions contenant des erreurs, je te conseille de les placer dans des variables disticntes.

Code:

---

1 2 3 4 5

Dim DateExp As String, DateBadge As String DateExp=nz(DLookup("[DerExport]", "Config"),"") DateBadge=Me!SituationDetail!DateBadgeage If Len(Trim(DateExp))<>0 And format(DateBadge, "dd/mm/yyyy") <= format(DateExp, "dd/mm/yyyy") Then

---

Ce qui me gène encore c'est l'expression suivante:

Code:

---

1 2	Me!SituationDetail!DateBadgeage

---

Ma question est: est-ce que SituationDetail est-il un sous-formulaire ou un formulaire?
Dans le cas où c'est un sous-formulaire:

Code:

---

1 2	SituationDetail.Form!DateBadgeage

---

Dans le cas où c'est un formulaire:

Code:

---

1 2 3 4

Me.DateBadgeage 'si c'est le formulaire courant contenant le code Forms!SituationDetail!DateBadgeage 'si ce n'est pas le formulaire courant, mais ouvert ou Form_SituationDetail.DateBadgeage

---

Pour format, faite attention qu'il n'y ait pas d'autres objets (champ8O , variable, fonction, etc.) qui a le même nom dans ton appli ou code!
Bon courage et @+