Discussion :

[freeman3869]

Bonjour,

Une question toute bête :
J'ai créé une liste déroulante dans un formulaire. Cette liste déroulante récupère des valeurs numériques d'un champ d'une table. Elle marche bien, je tape les premiers chiffres, elle me propose les valeurs qui correspondent. Je peux choisir aussi dans la liste déroulante une valeur sans problème.

Le truc est que quand je fais un copier-coller d'une valeur en entier, ça me met : Erreur d'exécution '94' : Utilisation incorrecte de Null. Je fais le débogage et la flèche pointe vers :
Dim obj As Long
obj = txt_obj.Value

txt_obj étant le nom de la liste déroulante du formulaire. Auriez-vous une idée d'où peut venir ce problème ?

[loufab]

Bonjour,

me.txt_obj.Value renvoi Null et ta variable obj est un long, les 2 sont incompatibles.

Seul les variables de type objet ou variant accepte le Null.

Tu peux soit changer le type de variable en Variant pour qu'il accepte le Null, soit traiter le null au moment de l'affectation avec NZ().

Cordialement,

[freeman3869]

Bonjour Loufab,
Merci de votre réponse.

J'ai essayé le type variant : il y a une erreur dans une requête SQL où j'utilise obj.

Je vais voir le NZ() car je ne sais pas du tout comment ça fonctionne.

Cordialement

[loufab]

Une requête ne reconnaît pas la valeur Null, à la place il ne met rien. Il faut le convertir en une string "Null". Comme ceci :

Code :

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

"SELECT ..." & NZ(obj,"NULL") & "....;"

Cordialement,

[freeman3869]

Bonjour,

J'ai essayé la fonction Nz() mais ça n'a pas marché non plus. En effet, quand je choisie une valeur de la liste déroulante, il y a des champs dans mon formulaire qui se remplissent automatiquement.
La fonction Nz() a supprimé le problème du Null mais ça a créé une nouvelle erreur : Erreur d'exécution 3021 :Aucun enregistrement en cours.
La flèche pointe vers un des champs qui se remplit grâce à la valeur de la liste déroulante

[loufab]

Bonjour,

Désolé je n'ai pas d'entrailles sous la main (cf ma signature). Tu vas devoir fournir plus d'explications, du code, du contenu de table... Bref de quoi comprendre ton environnement et comment tu as écris le code.

Cordialement,

[freeman3869]

Désolé, voici le code :

Code :

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

1
2
3
4
5
6
Dim obj As Long
obj = txt_obj.Value
 
'Récupérer les infos dans les tables Ent et table1
Txt_Nom.Value = CurrentDb.OpenRecordset("SELECT Ent.Denom FROM Ent WHERE Ent.objet=" & obj).Fields(0).Value
Txt_Dat = DFirst("Dat", "table1", "table1.objet = " & obj)

Les Txt_Nom et Txt_Dat sont les champs du formulaire qui se remplissent automatiquement quand on choisit une valeur de obj.
J'ai affecté ce code dans la propriété sur changement de txt.obj (la liste déroulante).

[freeman3869]

Je crois que j'ai la réponse
J'ai fait juste une vérification si la valeur est nulle :

Code :

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

If IsNull(txt_obj.Value) Then Exit Sub

[loufab]

c'est pour une appli professionnelle ?

[freeman3869]

Oui

[loufab]

attention à ce raccourci :

Code :

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

Txt_Nom.Value = CurrentDb.OpenRecordset("SELECT Ent.Denom FROM Ent WHERE Ent.objet=" & obj).Fields(0).Value

si aucun record n'est retourné ça lèvera une erreur.

[freeman3869]

Merci pour ton conseil. Mais j'ai fait en sorte qu'il y ait toujours un record retourné