[VBA] "Expression sans paramètre"

**mathilde50** · 22/11/2006, 16h09

Bonjour à tous,

J'ai réalisé dans ma base de données un code afin d'afficher un message à l'utilisateur si il a des remarques à traiter pour des commandes.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Open(Cancel As Integer)
Dim msg, style, title, Response, mystring
If Me.remarques <> 0 Then
msg = "Il vous reste des remarques non traitées, voulez-vous le faire maintenant ?"
style = vbYesNo + vbInformation + vbDefaultButton1
title = "Attention !"
Response = MsgBox(msg, style, title)
    If Response = vbYes Then
    DoCmd.OpenReport "requeteremarques"
    DoCmd.Close acReport, "requeteremarques"
    End If  
End If
End Sub

Mon problème est que mon code fonctionne bien lorsqu'il y a une ou plusieurs remarque à traiter. Mais s'il n'y en a plus aucune, un message d'erreur apparait m'indiquant "Erreur d'exécution 2427 : Expression sans paramètre"

Quelqu'un a-t-il une idée de ce qui se passe?

Merci

**mathilde50** · 22/11/2006, 16h12

Ah oui, au fait, j'ai oublié de préciser que l'erreur concerne la troisième ligne qui apparait en surbrillance dans mon code lorsque je clique sur "débogage" :

Code :

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

Me.remarques <> 0 Then

Merci

**keita** · 22/11/2006, 16h21

Et qu'est ce que c'est remarques dans Me.remarques ?
Autre chose (Bah heureusement que ton code marche) sinon je ne comprends pas tres bien ici:

Code :

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

1
2
3
 
DoCmd.OpenReport "requeteremarques"
DoCmd.Close acReport, "requeteremarques"

tu ouvres ton report et tu le refermes la ligne suivante; comprends pas.
@+

**mathilde50** · 22/11/2006, 16h35

Oki, je me suis peut-être mal exprimée.

J'ai une table pour enregistrer les factures. Si un problème apparait concernant une facture (adresse de facturation non valide, absence de certaines informations obligatoires pour la mise en paiement...), l'utilisateur doit l'indiquer dans un mémo appelé "remarques".

Dans mon formulaire principal, j'ai inséré le champ "remarques" afin qu'à chaque connexion, l'utilisateur sache qu'il lui reste des remarques à traiter si le champ n'est pas vide. Le code que j'ai donc fait affiche un message à l'utilisateur. Lorsque l'utilisateur souhaite avoir un état de ses remarques (report) il clique sur le bouton "oui" et l'état s'imprime. Cependant, il n'est pas utile que l'état s'affiche puisqu'il est imprimé. C'est pour cela que l'état s'ouvre pour imprimer et se ferme aussitot après.

Mon problème est que mon code fonctionne lorsqu'il y a une ou plusieurs remarques mais qu'une erreur 2427 apparait s'il n'y a aucune remarque.

Est-ce vraiment plus clair ? (pas sure lol)

N'hésitez pas si vous ne comprenez rien du tout...

**bizu31** · 22/11/2006, 16h41

Si qd ton Me.Remarque est en surbrillance, qd tu pointe sur me.remarque, il t'affiche null alors c normal.

ton Me.Remarque, c'est quoi comme objet ? une zone de texte, une liste, ou autre ?

**mathilde50** · 22/11/2006, 16h46

Bonjour bizu31,

Mon objet est une zone de texte.

Lorsque je pointe ma souris sur me.remarques, il m'affiche :

Me.remarques = <Expression sans paramètre>

J'ai essayé de remplacé

Code :

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

<>0

par

Code :

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

= Not Null

et par

Code :

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

= Not Empty

mais ça ne fonctionne toujours pas.

**bizu31** · 22/11/2006, 16h47

sans le cas d'une zone de texte, dans la propriété afterupdate, il te faut un truc du genre:

Code :

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

1
2
3
4
5
 
me.remarque.value=iif(isnull(me.remarque.value),Valeur_Si_Null,me.remarque.value))
' Valeur_Si_Null correspondant à une valeur que tu choisis par défaut, pour que jamais ton champ ne soit nul.
' Ensuite sur ton bonton qui commande ton action, tu verifie si la valeur de ton champ est égale à Valeur_Si_Null avnt de continuer
' Si c'est le cas, bah tu saura et tu gère

**mathilde50** · 22/11/2006, 16h51

Bizu31,

Je ne clique sur aucun bouton pour afficher le message, la propriété d'ouverture du message indiquant qu'il y a des remarques est sur ouverture de mon formulaire menu principal.

**Tofalu** · 22/11/2006, 16h53

Envoyé par bizu31

sans le cas d'une zone de texte, dans la propriété afterupdate, il te faut un truc du genre:

Code :

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

1
2
3
4
5
 
me.remarque.value=iif(isnull(me.remarque.value),Valeur_Si_Null,me.remarque.value))
' Valeur_Si_Null correspondant à une valeur que tu choisis par défaut, pour que jamais ton champ ne soit nul.
' Ensuite sur ton bonton qui commande ton action, tu verifie si la valeur de ton champ est égale à Valeur_Si_Null avnt de continuer
' Si c'est le cas, bah tu saura et tu gère

Tu viens de recoder inutilement la fonction Nz

Code :

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

Nz(Me.remarque.Value, Valeur_Si_Null)

**bizu31** · 22/11/2006, 17h05

quand un utilisateur se connecte, tu connais nom numéro d'identification.
A partir de la tu peux faire un recordset sur ses remarques.
Si ton recordset est null, tu zap toute cette partie, sinon tu l'exécute.
C'est pas un truc comme ca qu'il te faut ?

et tof, c pas forcement inutile, qd tu trouve pas un truc tu l'encode, sauf pour un developpeur microsoft peut -etre ? qd tu trouve pas t'attend ?

**mathilde50** · 22/11/2006, 17h07

Bonjour Tofalu,

cette solution ne fonctionne pas non plus, je ne sais plus comment faire.

**Tofalu** · 22/11/2006, 17h09

Toutes tes variables sont déclarées en Variant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Open(Cancel As Integer)
Dim msg as string, style as integer ....
If Nz(Me.remarques) <> "" Then
msg = "Il vous reste des remarques non traitées, voulez-vous le faire maintenant ?"
style = vbYesNo + vbInformation + vbDefaultButton1
title = "Attention !"
Response = MsgBox(msg, style, title)
    If Response = vbYes Then
    DoCmd.OpenReport "requeteremarques"
    DoCmd.Close acReport, "requeteremarques"
    End If  
End If
End Sub

**mathilde50** · 22/11/2006, 17h23

J'ai toujours la même erreur... Je ne comprends pas...

**bizu31** · 22/11/2006, 17h29

Est-ce que tu rempli ton champ me.remarque par une requete ?

**Tofalu** · 22/11/2006, 17h34

Peut être que l'évènement n'est pas le bon

**mathilde50** · 22/11/2006, 17h45

Bizu, je rempli mon champ remarques dans un sous formulaire présent dans un formulaire d'enregistrement, basé sur ma table directement, donc, pas dans une requête.

On va quand même bien réussir à trouver une soluttion à nous trois!!! lol

**Tofalu** · 22/11/2006, 17h48

Dans un sous formulaire ? ça veut dire que pour un dossier, tu as plusieurs remarques ? Dans ce cas, tu n'es pas du tout sur la bonne voie en comparant le champ à 0. Il te faut utiliser DAO et un recordset pour savoir s'il contient des remarques ou pas

**bizu31** · 22/11/2006, 17h57

evite les sous formulaire lol ca pose plus de probleme que ca n'a d'avantages :p Tu peux tout controler à partir d'un formulaire unique, mais ptet qu'on va trouver un truc xD

**mathilde50** · 22/11/2006, 18h40

Woupssss, lol

Je ne sais même plus comment j'ai fait ma BD, en fait, le champ des remarques que j'ai inclu à mon formulaire est basé sur une requête, celle que j'ai faite pour pour état. Son instruction SQL est la suivante :

SELECT devisdacda.fournisseur, devisdacda.numerocda, Factures.remarques
FROM devisdacda INNER JOIN Factures ON devisdacda.numerocda = Factures.numerocda
WHERE (((Factures.remarques) Is Not Null))
ORDER BY devisdacda.fournisseur;

Est-ce que ça peut vous aider ?

**mathilde50** · 22/11/2006, 19h17

Youpi, j'ai trouvé la solution !!!!!

Je vous explique :

Ma table contenant mon champ "remarques" se nomme "Factures".
Ma requête comprenant trois champs dont le champ "remarques" qui a pour critère "Est Pas Null".
Mon report est basé sur la requête puisque je ne veux imprimer que les informations des factures pour lesquelles il y a des remarques.

Mon erreur était en fait de prendre le champ "remarques" de ma requête, car, en effet, si je n'ai aucune remarque dans ma table facture, la valeur de mon champ est "#ERREUR", ce que je n'avais pas remarqué puisque qu'en mode formulaire, mon champ remarques n'est pas visible.

Afin de résoudre le problème, j'ai mis pour source le champ "remarques" de ma table "Factures" sur mon formulaire principal et ça fonctionne très bien.

Ainsi, lors de l'ouverture de mon menu principal, mon code (qui est finalement celui que j'ai posté au départ) cherche parmi mes enregistrements s'il y a une ou plusieurs remarques, affiche le message s'il en trouve et n'affiche rien s'il n'en trouve pas.

Merci beaucoup pour votre aide. Si j'avais un peu plus regardé dès le départ, j'aurai vu le problème.

Désolée si je vous ai fait perdre votre temps.

A bientôt.

[VBA] "Expression sans paramètre"

Access

Discussions similaires

Partager

Partager