Discussion :

[harjer]

bonjour,

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

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
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

[jean-paul lepetit]

Salut,

Apparemment la syntaxe de ton dlookup est incorrecte,

Code :

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

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

dans ton dlookup, il manque le critère

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
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

[harjer]

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

merci

[jean-paul lepetit]

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

Code :

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

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

Il devrait être

Code :

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

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

[harjer]

peut il etre nulle?

si oui, alors peut on le laisser tel quel?

[jean-paul lepetit]

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.

[harjer]

pourtant la table config a bien un seul enregistrement

[harjer]

quels genre de critere ce peut etre?

[jean-paul lepetit]

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

[harjer]

oui j'ai fait un copier coller du code

et format ne s'ecrit pas en bleu

[harjer]

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

[jean-paul lepetit]

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

[harjer]

les references sont

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

[jean-paul lepetit]

si dans vba tu tapes

Code :

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

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

est ce que format passe en majuscule ?

[harjer]

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

[jean-paul lepetit]

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

[harjer]

ok merci de m'avoir aider en tout cas

[harjer]

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

je pense que c'est cela.

[AlainTech]

Tout à fait par hasard...

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

[Mahefasoa]

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

Code :

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

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 extrait :

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

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 :

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

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 :

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

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 :

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

1
2
 
SituationDetail.Form!DateBadgeage

Dans le cas où c'est un formulaire:

Code :

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

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 (champ , variable, fonction, etc.) qui a le même nom dans ton appli ou code!
Bon courage et @+