Discussion :

[minimas]

Bonjour,

J'ai créé un formulaire pour réaliser un inventaire de pièces. Pour minimiser les résultats lors d'une recherche d'une pièce. Je voudrais créer un programme qui permettrais de rentrer des champs et après validation que le formulaire m'affiche les résultat.
j'ai créé ce programme

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
16
17
18
19
20
f = ""
If Not IsNull(Me.Rnom) And Me.Rnom <> "" Then
f = "Nom_produit LIKE ""*" & Me.Rnom & "*"""
End If
If Not IsNull(Me.RRef_autom) And Me.RRef_autom <> "" Then
If f <> "" Then
f = f & " AND autom = """ & Me.RRef_autom & """"
Else
f = "automr = """ & Me.RRef_autom & """"
End If
End If
If Not IsNull(Me.RRef_n°) And Me.RRef_n° <> "" Then
If f <> "" Then
f = f & " AND numero LIKE ""*" & Me.RRef_n° & "*"""
Else
f = "numero LIKE ""*" & Me.RRef_n° & "*"""
End If
End If
Me.Filter = f
Me.FilterOn = True

---------------------------------------------

Le soucis c'est lorsque j'insère des noms pour effectuer ma recherche lorsque je valide un message d'erreur s'affiche
"Erreur 438 propriété ou méthode non gérée par cet objet "
L'erreur se produit sur cette ligne.

Code :

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

If Not IsNull(Me.Rnom) And Me.Rnom <> "" Then

....je ne trouve pas l'erreur est ce que quelqu'un peut m'aider???

merci d'avance

[Jean-Philippe André]

salut,
déjà pour éviter quelques erreurs, je recommande de faire une ligne de test en plus :

Code :

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

If Not IsNull(Me.Rnom) And Me.Rnom <> "" Then

devenant

Code :

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

1
2
3
 
If Not IsNull(Me.Rnom) Then
if Me.Rnom <> ""

des .Value sont parfois importants, sinon ton Rnom est-il bien un champ de ton formulaire ?

[minimas]

Rnom est le nom que j'ai donné a un champ de mon formulaire de recherche
j'ai effectué la modification, la ligne est toujours jaune

[mikeGo20]

Quel type de contrôle est le champ Rnom de ton formulaire ?

[minimas]

Comment ca?? désolé je débute sous access

j'ai mis en texte

[mikeGo20]

Si le contrôle Rnom est une Zone de texte, essaie la condition suivante:

Code :

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

1
2
3
4
 
If Len(Me.Rnom)>0 Then 
 ....
EndIf

[Lou Pitchoun]

Salut,

Regarde les tutoriels sur les formulaires de recherche
Notamment celui ci :
http://loufab.developpez.com/recursivite3/
qui permet de sélectionner les champs à afficher.