Filtrer un formulaire
aschleid
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
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
A voir également:
- Filtrer un formulaire
- Whatsapp formulaire opposition - Guide
- Formulaire de réclamation facebook - Guide
- Formulaire de reclamation instagram - Guide
- Confirmer le nouvel envoi du formulaire err_cache_miss - Forum Webmastering
- Un formulaire rempli - Guide
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
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
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+