Erreur d'exécution 94Résolu

Question

Bonjour, dans mon code Access, je cela : 

Dim db As DAO.DATABASE
Dim titre_responsable_lettre As DAO.Recordset
Dim res_titre As String

Set db = Application.CurrentDb
Set titre_responsable_lettre db.OpenRecordset("Select Genre from RESPONSABLES where RESPONSABLES!NOM_prenom '" & Me.Nom_du_contact & "'")

res_titre = titre_responsable_lettre("Genre")
Me.titre_resp = res_titre

Ce code me permet donc de r&#233;cup&#233;rer une valeur d'une table selon la valeur d'un champ de mon formulaire.
La valeur se met bien dans la zone de texte sp&#233;cifi&#233;e, mais si la valeur est nulle, j'ai un message d'erreur : 
Erreur d'ex&#233;cution 94 : utilisation incorrecte de Null.

Comment puis-je y rem&#233;dier sans devoir saisir une valeur o&#249; il en manque dans la table.
Merci.

cs_CanisLupus · Accepted Answer

Oups, j'ai mis un not de trop :

if isnull(titre_responsable_lettre("Genre")) then
   res_titre = "" 'ou ce que tu veux
else
   res_titre = titre_responsable_lettre("Genre")
endif

Me.titre_resp = res_titre

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_CanisLupus · Answer

Salut,

if not isnull(titre_responsable_lettre("Genre")) then
   res_titre = "" 'ou ce que tu veux
else
   res_titre = titre_responsable_lettre("Genre")
endif

Me.titre_resp = res_titre

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

bidule2409 · Answer

MERCI ENORMEMENT !!!!!!!!!!!!

bidule2409 · Answer

Euh, en fait, j'ai un dernier petit probl&#232;me.
J'ai fait la m&#234;me manip, mais avec dans le "where" de la requ&#234;te, une comparaison d'integer.
Et le code suivant ne marche pas : 
Set devis_lettre db.OpenRecordset("Select [sujet] from [BESOINS EXPRIMES] where [BESOINS EXPRIMES]![N&#176;affaire] " & Me.[N&#176;affaire] & "")

sujet est en string, et les 2 N&#176;affaire en entier.

Si je laisse tel quel, il me redonne une erreur 94.
Si je rajoute :
If IsNull(sujet_lettre("Sujet")) Then
   res_sujet = ""
Else
   res_sujet = sujet_lettre("Sujet")
End If
Me.sujet_l = res_sujet

Il me dit : "Pas d'enregistrement courant" &#224; l'ouverture du formulaire.
Avez-vous une id&#233;e de la solution ????
Merci d'avance.

cs_CanisLupus · Answer

D&#233;j&#224;, y a-t-il des enregistrements dans la table r&#233;pondant au crit&#232;re de la requ&#234;te ?

Si oui, il va falloir revoir la requ&#234;te.
Si non, avant le if isnull.... il va falloir tester si le recordset contient des enregistrements :

if not devis_lettre.eof then ....

De toutes fa&#231;ons, dans tous les cas, il vaut mieux tester si la requ&#234;te a remont&#233; un r&#233;sultat avant de l'exploiter pour &#233;viter les plantages.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Erreur d'exécution 94

5 réponses

Discussions similaires