Liste déroulante ne se met pas à jour dans un sous formulaire

**target111** · 02/08/2019, 22h33

Bonjour

voila mon problème
j'ai créé 2 formulaires
1 pour des ajouts à une liste déroulante
l'autre pour des suppressions dans la liste déroulante
lors d'un ajout ou suppression à l’événement "sur réception focus" j'ai rajouté ce code

Code :

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

1
2
3
Private Sub Modifiable3_GotFocus()
Me.Modifiable3.Requery
End Sub

Modifiable3 étant le nom de la liste déroulante les 2 formulaires sont les mêmes il y a juste le bouton qui change un pour ajouter l'autre pour supprimer

lorsque je fais des ajouts ou des suppressions et que je clique sur la liste déroulante elle se met a jour

mais lorsque que je fais un formulaire et que je rajoute en sous formulaire (le formulaire )ajout par exemple lorsque que je fais des rajouts la liste déroulante ce met a jour
et lorsque que j'ouvre le formulaire de suppression et que je supprime une donnée et que je retourne dans le sous formulaire ajout là ou il y avait la donnée au lieu de la mettre à jour il y a inscrit #supprimé
j'ai essayé Me.Refresh aussi mais rien à faire

Merci pour votre aide

Cordialement

**tee_grandbois** · 02/08/2019, 23h51

bonsoir,
il faut recharger la source des données du sous-formulaire, tu peux le faire sur le formulaire de suppression, par exemple, sur l'évènement "Après suppression" (AfterDelConfirm) du formulaire:

Code :

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

Forms![NomFormulaire]![NomduSousFormulaire].Form.RecordSource = Forms![NomFormulaire]![NomSousFormulaire].Form.RecordSource

NomFormulaire est le nom du formulaire contenant le sous-formulaire
NomSousFormulaire est le nom du sous-formulaire

Par contre, j'ai du mal à comprendre pourquoi passer par deux formulaires lorsqu'un seul peut tout faire ...

**target111** · 03/08/2019, 00h04

Bonjour

merci pour votre réponse étant débutant meme que ça fait qu'une semaine que je découvre access je cherchais a faire simple et faire un formulaire qui ferait les deux dépasse ma compétence surtout s'il faut que je fasse des requêtes je vais essayer votre code encore merci pour votre aide

Cordialement

**target111** · 03/08/2019, 00h20

Bonjour
je viens d'essayer votre code et tout fonctionne

encore merci pour votre aide précieuse

cordialement

**tee_grandbois** · 03/08/2019, 14h41

bonjour,

je viens d'essayer votre code et tout fonctionne

dans ce cas n'oublie pas le bouton

**target111** · 04/08/2019, 05h50

Bonjour

Pas tout de suite résolu
Car si le formulaire d’ajouts n’est pas ouvert j’ai un message d’erreur qui dis qu’il ne trouve pas le formulaire d’ajout donc j’essaye de trouver une solution a ce problème
Cordialement

**hyperion13** · 04/08/2019, 08h26

Salut,
Et si vous donniez la totalité des codes que vous utilisez pour vos manips ?

**tee_grandbois** · 04/08/2019, 14h05

bonjour,

Car si le formulaire d’ajouts n’est pas ouvert j’ai un message d’erreur qui dis qu’il ne trouve pas le formulaire d’ajout donc j’essaye de trouver une solution a ce problème

pas de problème en fait, il suffit simplement de tester si le formulaire est chargé:

Code :

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

1
2
3
If CurrentProject.AllForms("NomFormulaire").IsLoaded Then
    Forms![NomFormulaire]![NomduSousFormulaire].Form.RecordSource = Forms![NomFormulaire]![NomSousFormulaire].Form.RecordSource
End if

**target111** · 04/08/2019, 14h43

bonjour

j'ai 2 formulaires 1 pour les ajouts l'autre pour les suppressions

dans celui d'ajouts

j'ai fait un formulaire a partir de la table x par exemple et j'ai rajouté une liste déroulante pour avoir la liste de ce qui a été rajouté et un bouton ajouter

ce formulaire je l'aie mis comme sous formulaire dans un formulaire principale d'ajouts parce que j'ai plusieurs sous formulaires j'ajouts

dans le champ de la liste déroulante du sous formulaire a sur reception focus

Code :

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

1
2
3
4
 
Private Sub LD_Civilite_GotFocus()
Me.LD_Civilite.Requery
End Sub

dans celui de suppressions

j'ai fait un copier coller du formulaire d'ajouts et j'ai une liste déroulante pour avoir la liste de ce qui est a supprimer et un bouton supprimer
ce formulaire je l'aie mis comme sous formulaire dans un formulaire principale de suppressions parce que j'ai plusieurs sous formulaires de suppressions

dans le champ de la liste déroulante du sous formulaire a sur reception focus

Code :

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

1
2
3
4
5
 
Private Sub FS_CIVILITE_GotFocus()
Me.FS_CIVILITE.Requery
Me.Refresh
End Sub

dans la feuille de priorités du sous formulaire a après supression

Code :

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

1
2
3
4
 
Private Sub Form_AfterDelConfirm(Status As Integer)
Forms![02_AJOUT_LISTE_DEROULANTES]![F_0_Civilité].Form.RecordSource = Forms![02_AJOUT_LISTE_DEROULANTES]![F_0_Civilité].Form.RecordSource
End Sub

si j'ajoute une donnée et que le formulaire de suppressions est ouvert la liste déroulante ne ce met pas a jour dans le sous formulaire

j'espère que c'est comprehensible j'ai essayé d'expliquer du mieux que je pouvais

Cordialement

**target111** · 04/08/2019, 14h48

Bonjour

je n'avais pas vu ta réponse j'étais en train de répondre donc je vais essayer ton code dans les deux formulaires Je pense que ça devrait aller

Cordialement

**target111** · 04/08/2019, 15h26

Bonjour

le mieux c'est que j'envoie la base parce que je pense que je fais des erreurs

les formulaires sont
02_AJOUT_LISTE_DEROULANTES
03_SUPPRIME_LISTE_DEROULANTES

Merci d'avance pour votre aide

Cordialement

bijoux_test.rar

**hyperion13** · 06/08/2019, 08h54

Salut
Pas certain d'avoir tout compris mais !
Si je comprends bien, via le form 02_AJOUT_LISTE_DEROULANTES vous voudriez ajouter des valeurs dans les différentes combobox présentes dans les différents sform
Alors si c'est bien ça il faut utiliser l'évènement sur Absence de liste.
Votre Bt_Ajouter et textbox Civilité deviennent obsolètes. Il suffit de saisir la nouvelle valeur dans la liste et appuyer sur Entrée
A tester, sur la combobox LD_Civilité de F_0_Civilité

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub LD_Civilite_NotInList(NewData As String, Response As Integer)
Dim rst As DAO.Recordset
If MsgBox("L'élément [" & _
    NewData & "] ne figure pas dans la liste. Voulez-vous l'ajouter ?", _
    vbQuestion + vbYesNo) = vbYes Then
    Set rst = CurrentDb.OpenRecordset("T_0_Civilité") 'T_0_Civilité = tbl concernée par l'ajout
    rst.AddNew
    rst!Civilité = NewData 'Civilité = champ concerné par l'ajout dans la liste déroulante
    rst.Update
    rst.Close
    Set rst = Nothing
End If
Response = acDataErrAdded
End Sub

Pour supprimer une valeur dans une combobox
A tester dans FS_0_Civilité

Code :

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

1
2
3
4
5
6
7
Private Sub Bt_SUPPRIMER_5_Click()
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("SELECT * FROM T_0_Civilité")
rst.FindFirst "ID_Civilité = " & Me.[FS_CIVILITE]
rst.Delete
Me.[FS_CIVILITE].Requery
End Sub

**target111** · 06/08/2019, 16h36

Bonjour

merci pour votre réponse

alors sur le formulaire d'ajouts la liste ce met a jour directement depuis la liste déroulante mais j'aurai aimé ne pas avoir le message de confirmation
si je supprime une donnée depuis le formulaire de suppressions dans la liste déroulante du formulaire d'ajouts j'ai #supprimé et la liste ne ce met pas a jour

sur le formulaire de suppressions si je rajoute une donnée dans le formulaire d'ajouts la liste déroulante ne ce met pas a jour sauf si je supprime un élément

sans abusé de votre patience
j'aurai voulu si je rajoute un élément depuis le formulaire d'ajouts que sa liste ce mette à jour en appuyant sur enter et que le champ ce vide avec le focus a l'intérieur pour une nouvelle saisie ainsi que la liste déroulante du formulaire de suppressions ce mette à jour dés que je clic sur la fleche de la liste déroulante

et dés que je supprime un élément dans le formulaire de suppression que sa liste ce mette à jour ainsi que la liste déroulante du formulaire d'ajouts dés que je clic sur la fleche de la liste

encore merci pour votre aide

Cordialement

**hyperion13** · 07/08/2019, 10h25

A tester

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub LD_Civilite_NotInList(NewData As String, Response As Integer)
Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("T_0_Civilité") 'T_0_Civilité = tbl concernée par l'ajout
    rst.AddNew
    rst!Civilité = NewData 'Civilité = champ concerné par l'ajout dans la liste déroulante
    rst.Update
    rst.Close
    Set rst = Nothing
Response = acDataErrAdded
If CurrentProject.AllForms("03_SUPPRIME_LISTE_DEROULANTES").IsLoaded Then
    Forms![03_SUPPRIME_LISTE_DEROULANTES].Controls![FS_0_Civilité].Requery
End If
End Sub

et

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Bt_SUPPRIMER_5_Click()
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("SELECT * FROM T_0_Civilité")
rst.FindFirst "ID_Civilité = " & Me.[FS_CIVILITE]
rst.Delete
Me.[FS_CIVILITE].Requery
If CurrentProject.AllForms("02_AJOUT_LISTE_DEROULANTES").IsLoaded Then
    Forms![02_AJOUT_LISTE_DEROULANTES].Controls![F_0_Civilité].Requery
End If
End Sub

**target111** · 07/08/2019, 16h45

Bonjour

Merci pour votre réponse et surtout votre patience

lorsque que je rajoute une donnée dans le formulaire d'ajouts et que je clique sur la liste déroulante du formulaire de suppressions la liste ne ce met pas a jour sauf si je supprime une donnée

lorsque que je supprime une donnée dans le formulaire de suppressions et que je clique sur la liste déroulante du formulaire d'ajouts la liste ce met a jour mais j'ai toujours #supprimé a la place de la donnée supprimée elle ne ce réinitialise pas

Cordialement

**target111** · 08/08/2019, 09h53

Bonjour

sur le sous formulaire du formulaire de suppressions, feuille de propriétés formulaire évènement sur activation j'ai rajouter ce code

Code :

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

1
2
3
Private Sub Form_Current()
Me.Controls("FS_CIVILITE").Requery
End Sub

et la liste ce met à jour j'ai fais le meme principe au sous formulaire du formulaire d'ajout et tout fonctionne

encore merci pour votre aide a tout les deux

Cordialement