Discussion :

[jawed]

Salut tous le monde
ma question si c'est possible peut on ouvrir un formulaire en mode ajout si un client n'éxiste pas dans la liste déroulante, ce cerai plus esthéthique - si ca marche - avec un message de confirmation
merci et a tres bientot

[@rkane]

dans les proprietes de ta liste deroulante tu mets la valeur "limiter à liste" sur "non" comme ça tu peux rajouter ton client

[jawed]

salut
j'ai oublier de dire que ma liste déroulante est dans un formulaire a part et le formulaire client lui assi est a part, je m'explique j'ai un formulaire reglement qui a comme liste droulante la liste des n° de téléphone des client qui m'affiche chaque reglement d'un n° de téléphone choisi, ma question est lorsque je tape un n° de tléléphone qui n'éxiste pas dans le formulaire client il m'affiche ce client n'existe pas dans la liste voulez vous le creez
j'espaire que je suis bien expliqué a bientot

[Heureux-oli]

Si tu vas dans le NotInList, tu peux déclencher un évènement qui lance une procédure qui permet d'ajouter l'item manquant dans ta table.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub RéfClient_NotInList(NewData As String, Response As Integer)
Dim entDemande As Integer
Dim bds As Database, rst As Recordset
entDemande = MsgBox("Ajouter un nouveau client ?", vbQuestion + vbYesNo)
If entDemande = vbYes Then
    Set bds = CurrentDb
    Set rst = bds.OpenRecordset("tblClients")
    rst.AddNew
    rst!Nom = NewData
    rst.Update
    Response = acDataErrAdded
    MsgBox ("Il faut mettre les données à jour!!!")
Else
    'Response = acDataErrDisplay
    Exit Sub
End If
rst.Close
End Sub

[jawed]

salut;
merci Heureux-oli je vais testé et je je rend compte demain
A bientot

[jawed]

salut a tous
Heureux-oli tous d'abord exuse moi pour le retard, j'ai utilisé ton code mais je ne sais pas il ne m'aide pas . pour quoi ?
je l'ai tout meme mis dans l'evenement Sur Abdence sur liste mais l'orsque je tape un n° de telephone qui n'existe pas dans la table client il ne me bloque pas pour confirmer la saisie du nouveau client
NB: je voudrai indiquer que le Combo Box Ref_Client est un champ independant dans le formulaire Reglement qui est relier avec le champ Ref_Client Pere Fils dans un sous formulaire
merci pour votre patience et a bientot

[ft035580]

Salut,

Peut-être que des recherches sur "Form_AfterInsert()" du Forms ou sur la

fonction DLookUp.

Taideraient.