Mise à jour à partir liste déroulante

Bonjour à tous,

Dans un formulaire qui me permet de mettre à jour une table "PROSPECTS", j'ai une liste déroulante nommée 'Code_Client' que j'alimente avec la requête UNION suivante :

Code:

---

1 2 3 4 5 6

SELECT dbo_CLIENT.CLI_CODCLI AS Code_Client FROM dbo_CLIENT WHERE (((dbo_CLIENT.CLI_CODCLI)<>'<Tous>')) ORDER BY dbo_CLIENT.CLI_CODCLI; UNION SELECT Tbl_Prospects.Code_Client FROM Tbl_Prospects;

---

Cette liste me permet de consulter le code de mes différents clients et prospects.

Je souhaiterai lors de la création de mon nouveau code_client tester cette liste et faire :

• afficher un message d'erreur
• et interdire la création d'un code_client déjà existant.

Avez-vous une idée ?

D'avance merci pour votre aide.

Daniel

A priori, si les champs sont indexés sans doublons, une erreur sera levée toute seule. A toi de gérer cette erreur en VBA par exemple sur l'évenement Form_error

Merci TOFALU,

Je pense qu'il manque des précisions à ma demande.

La source de mon formulaire n'est pas basée sur une table ou requête, c'est un formulaire qui me sert à renseigner ma table Prospects.

La liste déroulante "Code_Client" correspond à la requête UNION basée à la fois sur la table des clients déjà créés et celle des prospects que j'ai déjà créés.

En fait je teste les 2 tables "Clients et Prospects" pour ainsi eviter les doublons.

Dans ma table "Prospects" le champ "Code_Client" est bien indexé sans doublons.

J'espère être assez clair.

Daniel

En voulant répondre au message de TOFALU, j'ai eu un message d'erreur et je ne sais pas si mon message a bien été transmis. Avec mes excuses dans l'évantualité ou il aurait été envoyé correctement.
Donc voici ma réponse :

Merci TOFALU,

Je pense qu'il manque des précisions à ma demande.

La source de mon formulaire n'est pas basée sur une table ou requête, c'est un formulaire qui me sert à renseigner ma table Prospects.

La liste déroulante "Code_Client" correspond à la requête UNION basée à la fois sur la table des clients déjà créés et celle des prospects que j'ai déjà créés.

En fait je teste les 2 tables "Clients et Prospects" pour ainsi eviter les doublons.

Dans ma table "Prospects" le champ "Code_Client" est bien indexé sans doublons.

J'espère être assez clair.

Daniel

Salut,

Je reviens vers vous toujours avec mon souci et j'ai essayé différemment pour régler mon problème.

A l'ouverture de mon formulaire je renseigne une table, ce qui renseigne ma liste déroulante "Code_Client".

Ensuite lors de la création de mon nouveau code client j'ai insérer ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Code_Client_AfterUpdate() Dim Rst As DAO.Recordset Dim Db As DAO.Database Dim strCritere As String, sql As String Set Db = CurrentDb strCritere = Me.Code_Client sql = "SELECT Tbl_CodeClientProspects.Code_CLient " sql = sql & " FROM Tbl_CodeClientProspects " sql = sql & " WHERE (((Tbl_CodeClientProspects.Code_CLient)= " & "'" & strCritere & "'" & "));" Set Rst = Db.OpenRecordset(sql, dbOpenDynaset) If strCritere = Me.Recordset Then MsgBox "!!" Exit Sub End If End Sub

---

Par contre je n'arrive pas à récupérer la valeur du recordset, ce qui me permet de tester la valeur.

Pouvez-vous m'aider ?

Merci d'avance.


Daniel.