Discussion :

[freeman3869]

Bonjour,

Voici un petit problème auquel je ne lui trouve pas de solution :

En effet, j'ai créé un formulaire pour remplir une table (table 2) manuellement. J'ai défini une liste déroulante pour la clé primaire que je vais appeler ID. Cette clé primaire a certaines valeurs d'une autre table (table 1).
Quand je choisie une valeur de l'ID, il y a un champ qui se remplit automatiquement via un code vba sur la liste déroulante de la clé primaire. Si la valeur de cette clé existe dans la table 2, le champs se remplit, sinon j'ai un message d'erreur : "Erreur d'exécution '3021' : Aucun enregistrement en cours".

Le code que j'ai utilisé est : Txt = CurrentDb.OpenRecordset("SELECT Ent.Dern_ent FROM Ent WHERE Ent.S = " & ID).Fields(0).Value

J'aimerai que, quand il n'y a pas de correspondance des ID dans les tables 1 et 2, Txt soit vide.

J'espère que j'ai expliqué comme il faut sinon demandez moi.

Merci d'avance les amis :-)

[marot_r]

Bonjour.

Si tu remplaces ton recordset par un DFirst() il va faire cela automatiquement.

Si j'ai bien compris, cela devrait être :

Code :

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

Txt="" & DFirst("Dern_ent", "Ent", "Ent.S = " & ID)

Le "" & est un astuce pour récupéré un chaîne vide si le résultat de la recherche est Null c-à-d qu'il n'y a pas de données correspondantes.

A+

[freeman3869]

Yes, ça marche.

Merci beaucoup marot_r