Discussion :

[jmsamson]

bonjour
je souhaite que depuis un formulaire filtrer des enregistrement et plus particulièrement des enregistrements entre deux dates (avec des champs indépendants rdate1 et rdate2) le champs de recherche s'appelle "date"

voici mon code vba

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CmdFiltre_Click()
f = ""
If Not IsNull(Me.RNom) And Me.RNom <> "" Then
f = "Nom LIKE""*" & Me.RNom & "*"""
End If
If Not IsNull(Me.Rdate1) And Me.Rdate1 <> "" And Not IsNull(Me.Rdate2) And Me.Rdate2 <> "" Then
If f <> "" Then
f= f& "AND clng([Date]) between " & CLng(me.Rdate1) & "and" & CLng(Me.Rdate2) & ""
Else
f="clng([date]) between " clng(me.Rdate1)& " and" &clng(Me.Rdate2) &""
End If
Me.Filter = f
Me.FilterOn = True
End Sub

Mon pb c'est que pour les deux lignes f= concernant les dates il me dit que vba attend une fin d'instruction
Et comme je suis novice et bien je bloque

merci de votre aide

JM

[LedZeppII]

Bonsoir,

Il manque un opérateur de concaténation & et un End If .
Veiller aussi à mettre un espace de part et d'autre de l'opérateur de concaténation

Code :

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

1
2
3
4
5
6
7
If Not IsNull(Me.Rdate1) And Me.Rdate1 <> "" And Not IsNull(Me.Rdate2) And Me.Rdate2 <> "" Then
   If f <> "" Then
      f= f & " AND clng([Date]) between " & CLng(me.Rdate1) & "and" & CLng(Me.Rdate2) & ""
   Else
      f="clng([date]) between " & clng(me.Rdate1) & " and" & clng(Me.Rdate2) & ""
   End If
End If

A+

[helas]

ajouter quelques espaces

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 CmdFiltre_Click()
f = ""
If Not IsNull(Me.RNom) And Me.RNom <> "" Then
f = "Nom LIKE ""*" & Me.RNom & "*"""
End If
If Not IsNull(Me.Rdate1) And Me.Rdate1 <> "" And Not IsNull(Me.Rdate2) And Me.Rdate2 <> "" Then
If f <> "" Then
f= f & " AND clng([Date])  between " & CLng(me.Rdate1) & " and " & CLng(Me.Rdate2) 
Else
f= "clng([date])  between "  & clng(me.Rdate1) & " and " & clng(Me.Rdate2)
End If
Me.Filter = f
Me.FilterOn = True
End Sub