Discussion :

[redojackson]

Bonjour
Je suis un novice au VBA et mon problème est le suivant :
J'ai créé un formulaire de recherche multicritère basé sur un filtre
La recherche s'effectue entre deux dates dont voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
If Not IsNull(Me.Date1) And Me.Date1 <> "" And Not IsNull(Me.Date2) And Me.Date2 <> "" Then
 If f <> "" Then
 f = f & " AND Clng([Date résultat]) BETWEEN " & CLng(Me.Date1) & " AND " & CLng(Me.Date2)
 Else
 f = "Clng([Date résultat]) BETWEEN " & CLng(Me.Date1) & " AND " & CLng(Me.Date2)
 End If
 
 End If
 
 Me.Filter = f
 Me.FilterOn = True

Le problème est que lorsque le champ date est vide et que je j'exécute le filtre, je reçois le message suivant : "Erreur d'exécution 94, Utilisation incorrecte de Null"

Est-ce que quelqu'un aura l'amabilité de me modifier cette ligne du code pour qu'il accepte les valeurs "Null" de ma table?

Merci infiniment

[zoom61]

Salut,

Il ne faudrait pas un espace au début de la ligne :

Code :

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

f = " Clng([Date résultat]) BETWEEN " & CLng(Me.Date1) & " AND " & CLng(Me.Date2)

@+.

[Jeannot45]

Le plus simple est d'utiliser la fonction NZ(ChampConcerne, Valeur Affectée si le champ est null

Exemple :

Tu écris :

Code :

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

1
2
3
 
If Not IsNull(Me.Date1) And Me.Date1 <> "" And Not IsNull(Me.Date2) And Me.Date2 <> "" Then
...

Tu pourrais écrire plus simplement :

Code :

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

1
2
 
If Nz(Me.Date1,0) > 0 And Nz(Me.Date2,0)> 0 Then ...

Bonne continuation

[redojackson]

Bonjour

- En utilisant la première solution de zoom61, je reçois toujours le même message : Erreur d'exécution 94, Utilisation incorrecte de Null

- En utilisant la deuxième solution de Jeannot45, le message d'erreur disparaît mais le filtre n'est pas appliqué

NB que les résultats du filtre appliqué doivent être inclus entre date1 et date2

Cordialement

[Robert1957]

Bonjour redojackson,
Si j'ai bien compris le champ date qui est null est [Date résultat]. Si c'est le cas c'est la qu'il faut que tu mettes le Nz:

Code :

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

....AND Clng(Nz([Daterésultat],0))....

Bonne journée

[redojackson]

Slt Robert1957
Je vous remercie infiniment, vous aviez complètement raison
J'ai mis le code suivant et hop mon problème est résolu

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
If Not IsNull(Me.Date1) And Me.Date1 <> "" And Not IsNull(Me.Date2) And Me.Date2 <> "" Then
 If f <> "" Then
 f = f & " AND Clng(Nz([Daterésultat],0)) BETWEEN " & CLng(Me.Date1) & " AND " & CLng(Me.Date2)
 Else
 f = "Clng(Nz([Date résultat],0)) BETWEEN " & CLng(Me.Date1) & " AND " & CLng(Me.Date2)
 End If
  
 End If
 
 Me.Filter = f
 Me.FilterOn = True

Mille merci