Discussion :

[Tite-Nini]

Bonjour,

Voila mon pb :
J'ai deux tables :

tbl Liste de project

Champ : Nom de project

tbl Project

Champ : Project

Champ : Numero

J'ai cree un formulaire (en mode continue) dans lequel j'ai mis une liste deroulante qui recupere les valeus du champ "Nom de project" de la table Liste de project et qui les ecrit dans le champ "Project" de la table Project, en y associant un numero que je rentre par moi meme dans une zone texte.
Mon probleme est le suivant : Je voudrais que lorsque l'on entre au calvier un nom qui n'est pas dans la liste des projects, ca le rajoute automatiquement dans la table Liste de project. J'ai essayé avec un code NotInList, que j'ai trouvé dans la FAQ, ms cela ne me le rajoute pas dans ma table
Qq peut m'aider?

Merci par avance
Virginie

[scorpion1611]

Une possibilité parmi tant d'autres (je suppose)

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
19
20
Dim msg As String
Dim connex As ADODB.Connection
Dim Rst As New ADODB.Recordset
 
 
msg = NewData & "  n'existe pas dans la liste." & vbCrLf & " Etes-vous sûr de vouloir ajouter cette donnée ?"
 
If MsgBox(msg, vbYesNo, "Valeur inexistante") = vbYes Then
    Set connex = CurrentProject.Connection
    Rst.Open "[Liste de project]", connex, adOpenKeyset, adLockOptimistic
 
    Rst.AddNew
    Rst![Nom de project] = NewData
    Rst.Update
    Response = acDataErrAdded
Else
    Response = acDataErrContinue
    Me.Nomdetalistedéroulante.Undo
 
End If