Discussion :

[anthony_rexis]

Bonjour,

J'utilise Access 2007.
Sujet: Je voudrais remplir une table à l'aide d'une liste déroulante. Je m'explique...

Je suis en train de créer une base de donnée avec des formulaires qui vont gérer des documents word. Certaines informations sont à rentrer. Je mets à disposition des listes déroulantes permettant de simplifier leurs choix, mais si la donnée à rentrer n'est pas dans la liste déroulante, je voudrais l'ajouter à la table et la rendre disponible dans la liste de choix par la suite.

Je n'ai aucune idée de comment procéder...

Par avance, merci

[jacou]

Une idée:

1. Créer un formulaire nommé, eg, frmInputWordDocuments, mettre une liste décourante nommée lsmDocName.

2. dans l'évènement Open de ce formulaire,

Code :

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

1
2
3
4
5
6
7
 
Private Sub Form_Open(Cancel As Integer)
'
  Me.lsmDocName.RowSourceType = "Value List"
  Me.lsmDocName.RowSource = "Aucun"
'
End Sub

3. dans l'évènement NotInList du contrôle lsmDocName,

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub lsmDocName_NotInList(NewData As String, Response As Integer)
'
' remarquons le séparateur ; pour des éléments d'une liste Access.
'
   Me.lsmDocName.RowSource = Me.lsmDocName.RowSource & ";" & NewData 
   Response = acDataErrAdded
End Sub

4. dans l'évènement AfterUpdate du contrôle:

Code :

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

1
2
3
4
5
6
7
 
Private Sub lsmDocName_AfterUpdate()
'
' Ajouter le nom du document dans une table, ou bien ouvrir,
' en tout cas faire ce qu'il mérite d'être fait.
'
End Sub

Je n'ai pas testé ce code, à toi de me dire si cela t'avance.

[anthony_rexis]

merci, je vais essayer et je te tiens au conrant...

[anthony_rexis]

J'ai utilisé le principe que tu m'as donné pour réaliser cette fonction qui marche. Je donne le code pour ceuw que ça intéresse...

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub Entreprise_NotInList(NewData As String, Response As Integer)
 
   Dim dbsOrders As DAO.Database
   Dim rstEntreprise As DAO.Recordset
   Dim intAnswer As Integer
 
On Error GoTo ErrorHandler
 
   intAnswer = MsgBox("Ajouter " & NewData & " à la liste des entreprises?", _
      vbQuestion + vbYesNo)
 
   If intAnswer = vbYes Then
 
      Set dbsOrders = CurrentDb
      Set rstEntreprise = dbsOrders.OpenRecordset("Entreprise")
      rstEntreprise.AddNew
      rstEntreprise!Entreprise = NewData
      rstEntreprise.Update
 
      Response = acDataErrAdded        ' recharge la combobox
 
   Else
      Response = acDataErrDisplay       ' l'utilisateur doit sélectionner un choix dans la liste
 
   End If
 
   rstEntreprise.Close
   dbsOrders.Close
 
   Set rstEntreprise = Nothing
   Set dbsOrders = Nothing
 
   Exit Sub
 
ErrorHandler:
   MsgBox "Error #: " & Err.Number & vbCrLf & vbCrLf & Err.Description
End Sub

Merci encore pour le coup de main...