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.