Discussion :

[mathilde50]

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]

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]

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]

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]

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]

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]

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