Filtrer un formulaire
aschleid
Messages postés
4
Statut
Membre
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour*
j'ai un petit problème d'exécution de mon code. En fait j'ai créer un contrôle indépendant nommé RCODE sur mon formulaire puis un bouton OK. Dans l’événement sur Click de mon bouton j'ai écrit le code suivant
Private Sub OK_Click()
f = ""
If Not IsNull(Me.RCODE) And Me.RCODE <> "" Then
If f <> "" Then
f = f & " AND CODE = """ & Me.RCODE & """"
Else
f = "CODE = """ & Me.RCODE & """"
End If
End If
Me.Filter = f
Me.FilterOn = True
End Sub
Mais après exécution je
reçois le message d'erreur sur l'image suivante
je veux de l'aide svp
j'ai un petit problème d'exécution de mon code. En fait j'ai créer un contrôle indépendant nommé RCODE sur mon formulaire puis un bouton OK. Dans l’événement sur Click de mon bouton j'ai écrit le code suivant
Private Sub OK_Click()
f = ""
If Not IsNull(Me.RCODE) And Me.RCODE <> "" Then
If f <> "" Then
f = f & " AND CODE = """ & Me.RCODE & """"
Else
f = "CODE = """ & Me.RCODE & """"
End If
End If
Me.Filter = f
Me.FilterOn = True
End Sub
Mais après exécution je
reçois le message d'erreur sur l'image suivante
je veux de l'aide svp
1 réponse
-
Bonjour,
on va regarder point par point...
Private Sub OK_Click()
f = ""
c'est quoi ce f ???
If Not IsNull(Me.RCODE) And Me.RCODE <> "" Then
Là, grosse erreur ! Tu conditionnes RCODE à null et qu'il soit en même temps différent de ""... Bug assuré, enfin, tu ne rentreras jamais dans le IF... Replace AND par OR
If f <> "" Then
Il ne peut pas être <> "" puisque tu l'as déclaré ="" 3 lignes + haut...
J'arrête là...
A+
Quand Jimmy dit What'd I say
I love you baby
C'est comme qui dirait
Toute la province qui chante en anglais-
Aussi, je n'avais pas vu le message d'erreur, c'est quoi ce "NBR J" ??? (l'espace me fait mal aux yeux)
Le champ d'une table ?
Je le répète ENCORE et ENCORE et ENCORE !!!!!!!!!!! JAMAIS d'ESPACE DANS LE NOM D'UN CHAMP. Bug assuré...
Remplaces tous les espaces " " de TOUS les noms de TOUS les CHAMPS de TOUTES LES TABLES par un _
A+
-
