[A-03]Problème de mise à jour d'une liste déroulante

**mattvin** · 03/03/2009, 11h06

Bonjour,

j'ai trouvé un bout de code que j'ai adapté à mon application.

Code :

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

1
2
3
4
5
6
7
8
Private Sub Ann_type_doc_NotInList(NewData As String, Response As Integer)
     If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des types de documents?", vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then
       DoCmd.RunSQL "INSERT INTO tb_type_doc( ty_type_doc_ann ) SELECT """ & NewData & """;"
       Response = acDataErrAdded
    Else
       Response = acDataErrContinue
       Ann_type_doc.Undo
End Sub

Le problème, c'est qu'il ne rentre jamais dans cette fonction et je ne comprend pas pourquoi.

Si quelqu'un a une idée, je le remercie d'avance.

Bonne journée.

**Domi2** · 03/03/2009, 11h54

Bonjour,

La propriété "Limiter à liste" de ta liste déroulante est bien à "Oui" ?

Domi2

**mattvin** · 03/03/2009, 12h04

Merci beaucoup mais maintenant quand je met oui il me fait une erreur.

Je met une image en annexe avec mon erreur.

bonne journée.

**Domi2** · 03/03/2009, 12h16

Et avec un End If, cela fonctionne mieux ?

Code :

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

1
2
3
4
5
6
7
If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des types de documents?", vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then
       DoCmd.RunSQL "INSERT INTO tb_type_doc( ty_type_doc_ann ) SELECT """ & NewData & """;"
       Response = acDataErrAdded
    Else
       Response = acDataErrContinue
       Ann_type_doc.Undo
    End If '<== Ici

Domi2

**mattvin** · 03/03/2009, 13h13

Ben je l'ai déjà mis mais il me fait tout le temps l'erreur.

Merci de ton aide.

**5GPCISAS1** · 03/03/2009, 13h19

Bonjour,

Avez-vous mis le code sur la propriété "Si pas dans la liste" de votre liste déroulante?

**mattvin** · 03/03/2009, 13h23

oui, j'ai mis le code sur la propriété "sur absence dans liste".

**5GPCISAS1** · 03/03/2009, 13h38

La source de la liste déroulante provient-elle d'une table?

**mattvin** · 03/03/2009, 13h43

Voila je t'ai mis un print des propriété de ma liste déroulante. Comme cela ça sera plus simple. Et merci beaucoup pour le temps que tu passe pour moi.

**5GPCISAS1** · 03/03/2009, 14h51

Dans la propriété "contenu" de ta liste déroulante, le libellé doit être

Code :

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

SELECT Table.Champ FROM Table ORDER BY Table.Champ

.

J'utilise moi-même le code dans mes bases de données et il fontionne très bien.

**mattvin** · 03/03/2009, 14h59

voila ce que j'ai mis :

Code :

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

SELECT tb_type_doc.ty_type_doc_ann FROM tb_type_doc ORDER BY tb_type_doc.ty_type_doc_ann

mais il me met touours le message qui dit que l'élément n'est pas dans ma liste et que je doit en choisir un.

Bonne journée.

**mattvin** · 03/03/2009, 16h45

Quelqu'un aurait'il aurait encore une idée? Car je ne comprend vraiment pas pourquoi cela ne marche pas.

Bonne journée.

**Tonioyo** · 03/03/2009, 17h07

Bonjour,

Après l'insertion de donnée il faut mettre à jour la liste déroulante par un requery. Exemple :

Code :

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

MaListeDéroulante.Requery

Un autre point la procédure est private elle doit donc être apellée dans le formulaire (ou module) dans lequel elle est écrite. c'est peut être pour ca que vous ne passez pas dedans.

**5GPCISAS1** · 04/03/2009, 09h34

Bonjour,

Je crois que ce serait bien que tu nous montre ta base de donnée, je pourrai ainsi jeter un oeil dessus et voir ce qui ne va pas.

A+

**mattvin** · 05/03/2009, 07h43

Bonjour,

Voici la base de donnée. Pour info c'est dans le formaulaire "sf_annexe" qu'il y à ce code et la liste déroulante qui va avec.

Merci beaucoup.

Bonne journée.

**5GPCISAS1** · 05/03/2009, 08h58

Bonjour,

Je crois que le problème est que ce n'est pas une base de données unique, mais un projet avec plusieurs accès par plusieurs utilisateurs.
Tes tables ne sont apparemment pas dans ce projet. Tu ne sais donc pas rajouter un enregistrement dans cette liste déroulante qui dépend d'une table extérieure, car en faisant cela, tu rajouterais l'enregistrement aussi dans la table.

**mattvin** · 05/03/2009, 09h24

En faite, mes tables sont dans SQL Server 2005. Et je les ai liées avec access.

Donc y aurait'il un moyen de quand même le rajouter dans ma table ou pas du tout?

Bonne journée.

**5GPCISAS1** · 05/03/2009, 09h30

Essaies en mettant le chemin complet de ta table dans le code.

**Domi2** · 05/03/2009, 09h32

Bonjour,

Et avec ADO (code copié de la FAQ).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Modifiable0_NotInList(NewData As String, Response As Integer) 
    dim cn as adodb.connection 
    set cn = currentproject.connection      
    If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des prénoms ?",  _
                    vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then 
        cn.execute "Insert into tblPrenoms values(\'" & NewData & "\');" 
        Response = acDataErrAdded 
    Else 
        Response = acDataErrContinue 
        Modifiable0.Undo 
    End If 
End Sub

Domi2

**mattvin** · 05/03/2009, 09h38

Merci la ça marche j'ai juste du supprimé les 2 \

Code :

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

"Insert into tblPrenoms values(\'" & NewData & "\');"

Voila merci beaucoup de votre aide.

Je trouve que c'est super sympa ce que vous faites.

Bonne journée.

[A-03]Problème de mise à jour d'une liste déroulante

VBA Access

Discussions similaires

Partager

Partager