actualisation d'une liste deroulante

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour

J'ai un formulaire qui intègre un sous formulaire.
Dans ce sous formulaire, j'ai une liste deroulante sur le champ individu.
Si le nom mis dans le champ individu n'existe pas, on envoit un formuliare de creation d'une nouvelle personne. Mais aorès avoir renseigné les informations pour cette nouvelle personne, si je reviens dans la liste déroulante cette nouvelle personne n'apparaît pas.
Je ne comprend pas pourquoi , d'autant lus que j'utilise le même code pour un champ destination qui lui est dans le formulaire principal

Ci-dessous le code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Code_destination_NotInList(NouvellesDonnées As String, Réponse As Integer) Dim entNouvDest As Integer, entTronqueNom As Integer, chTitre As String, entmsgDialogue As Integer DoCmd.OpenForm "Ajouter une destination", acNormal, , , acAdd, acDialog, NouvellesDonnées Réponse = acDataErrAdded End Sub
Merci pour vos réponses.
Est ce parce que c'est dans un sous formaulaire ?
Par contre, si je vais dans ma table individu je retrouve bien mon nouvel enregistrement

12/11/2007, 16h45
argyronet

Bonjour,

Si la valeur est stockée en table, il faut rafraîchir la liste avec par exemple une méthode Requery :

Code:

Code_destination.Requery

Argy
13/11/2007, 11h33
pascale86

le requery ne fonctionne pas.
En fait mon probleme :
ça focntionne très bien pour la destination.
Par contre pour l'individu (en prenant le mm type de code de destination sur absence dans liste), ça ne marche pas.
Quand je reviens dans la liste déroulante, le nouveau nom que j'ai rentré via un formulaire individu, n'y est pas. Pourtant il a été enregistré.
Je ne comprend c'est identique et ça ne marche que pour destination

Pourquoi ?
13/11/2007, 11h43
DMboup
Citation:

Envoyé par pascale86

Je ne comprend c'est identique et ça ne marche que pour destination

Ce n'est pas identique une liste dans un formulaire et une autre dans un sous formulaire. Et en plus apparamment l'ajout se fait par un formulaire externe.

Il faut bien nommer le sous formulaire à partir de l'endroit d'où l'ajout se fait.
Code:

1 2 Forms!FormulairePrincipal.Form!SousFormulaire!NomChamp.Requery
13/11/2007, 12h08
pascale86

Bon je suis dans le brouillard complet .... Help me please

Mon formulaire principal est F-deplacement
Mon sous formulaire est F-OM-individu
mon formulaire externe est Ajouter un individu
Mon champ liste déroulante à actualiser dans le sous formulaire est n° individu.
Je mets quoi extactement et à quel endroit : sur absence dans liste, sur la validation du forulaire externe

Code:

Forms!FormulairePrincipal.Form!SousFormulaire!NomChamp.Requery

Merci merci
13/11/2007, 12h15
DMboup

Citation:

Envoyé par pascale86

Bon je suis dans le brouillard complet .... Help me please

Mon formulaire principal est F-deplacement
Mon sous formulaire est F-OM-individu
mon formulaire externe est Ajouter un individu
Mon champ liste déroulante à actualiser dans le sous formulaire est n° individu.
Je mets quoi extactement et à quel endroit : sur absence dans liste, sur la validation du forulaire externe

Code:

Forms!FormulairePrincipal.Form!SousFormulaire!NomChamp.Requery

Merci merci

Tu fais du remplacer ! Faut quand même t'y mettre un peu non !
13/11/2007, 12h17
pascale86

Merci pour cette réponse. Mais pour info, avant de demander, j'ai essayé
J'ai fait du remplacer, mais ça ne fonctionne pas mieux

Je connais un peu access puisque j'ai dejà developpé des applis, mais là je bloque.
Pas grave je vais chercher ailleuirs
13/11/2007, 12h19
DMboup

Citation:

Envoyé par pascale86

Merci pour cette réponse. Mais pour info, avant de demander, j'ai essayé
J'ai fait du remplacer, mais ça ne fonctionne pas mieux

Pas grave je vais chercher ailleuirs

Eh bien montres ce que tu as fais.

Citation:

Envoyé par pascale86

Pas grave je vais chercher ailleuirs

Et il n'est pas content en plus :oops:
13/11/2007, 12h21
pascale86

Code:

Forms![F-Deplacement].Form![F-OM-individu]![N° individu].Requery

Humm, disons que dans l'absolu, tu n'as pas besoin d'un formulaire externe pour ajouter la valeur mais simplement d'une fonction générique qui se déclenche sur l'événement et que tu appelles pour chaque combo de ton formulaire...

Par exemple:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function NotInList(MyCombo As ComboBox, NewData As String, Response As Integer, Optional ByVal AddIfMissed As Boolean = True) As Integer
    If Response = acDataErrDisplay Or IsNull(MyCombo.ControlSource) Or IsNull(NewData) Then
      If AddIfMissed Then
        If MsgBox("Cette valeur n'existe pas !" & vbCrLf & "Voulez-vous l'ajouter ?", vbQuestion + vbYesNo, "Valeur manquante") = vbYes Then
            Response = acDataErrAdded
            MyCombo = NewData
            Me.Requery
        Else
            Response = acDataErrContinue
            MyCombo.Undo
        End If
      End If
    End If
    NotInList = Response
End Function

Argy

13/11/2007, 12h24
pascale86

Si j'ai besoin d'un formulaire externe car il faut que je rentre des infos complémentaires pour la nouvelle personne saisie.

et voila le prg sui se déclenche sur absence dans liste

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub N°_individu_NotInList(NouvellesDonnées As String, Réponse As Integer)
 
    Dim entNouvInd As Integer, entTronqueNom As Integer, chTitre As String, entmsgDialogue As Integer
 
     DoCmd.RunCommand acCmdUndo
 
               DoCmd.OpenForm "Ajouter un individu", acNormal, , , acAdd, acDialog, NouvellesDonnées
 
        Réponse = acDataErrAdded
 
        End Sub

13/11/2007, 12h27
argyronet
Eh bien tu ajoutes avec la fonction que je t'ai proposé et tu ouvres ton formulaire après.
N'importe comment, c'est le formulaire appelé qui rafraîchit la liste du formulaire appelant sur l'événement Close par exemple ou sur le click du bouton Enregistrer ce formulaire.

Dans ton cycle, l'événement NotInList et DoCmd.OpenForm n'ont pas à gérer la Response & acDataErrAdded parce que tu ne peux pas savoir si tu vas planter ou valider l'ajout.
- Sur NotInList tu appelles l'ouverture : OK
- Sur Load, tu affecte la valeur
- Tu fais un Save à confirmer
- Sur Close, tu fais un Requery en conséquence
- Et la valeur de Response dépend de ce qui se passe dans ce formulaire.
Argy
13/11/2007, 12h43
DMboup
Oui Argy c'est une méthode mais il n'ya aucune raison que fait que ca
Code:

1 2 Forms![F-Deplacement].Form![F-OM-individu]![N° individu].Requery
ne marche pas.

En principe c'est après avoir ajouter un enregistre que tu actualise les données mais à partir de ton formulaire "Ajouter un individu". C'est bien à ce niveau que tu l'as mis !
13/11/2007, 12h54
pascale86

Bon
sur Notinlist j'ouvre le formalaire Ajouter un individu = ok
Sur Load, j'affecte la valeur
SurClic du bouton valider (formulaire Ajouter un individu) je fais un

Code:

docmd.Save

Sur Liberation du formulaire Ajouter un individu je mets

Code:

Forms![F-Deplacement].Form![F-OM-individu]![N° individu].Requery

Et là message comm quoi avant d'actualiser il faut que l'enregistrement soit sauvegarger.
13/11/2007, 13h05
DMboup

Après ton docmd.Save fais un Me.Requery ensuite raffraichissement ta liste ici pour voir
13/11/2007, 13h39
argyronet

Oui, DMboup, je partage ton point de vue.

Bien, oui, l'actualisation n'est pas forcément disponible... Tout dépend dans quel contexte tu te trouves.
Avec la fonction que je t'ai proposée, ça marche puisque tu restes dans l'événement mais elle ne répond pas à tes attentes.
Bon, récapitulons, du fait que tu veuilles externaliser l'ajout, le champ recevant la valeur inexistante déclenche le NotInlist si LimitToList=True mais ne peut pas s'actualiser à cause de la façon dont est géré ton appel.
De là, toi, tu veux ouvrir un formulaire qui te propose d'ajouter la dite valeur et par le biais du paramètre OpenArgs , pose la valeur dans un champ approprié du formulaire en question... Tu ajoutes d'autres valeurs et tu valides.
Du fait que tu ne proposes pas de confirmer l'ajout, tu n'as pas besoin du "acDataErrAdded".
Dans ton formulaire d'ajout, tu dois écrire le code qui ajoute effectivement la donnée avec une clause INSERT par exemple.
Une fois sorti du formulaire, tu réaffectes le RowSource de ta zone de liste et appeles la méthode requery comme le stipule DMBoup.

mais, j'ai un doute sur le fait que dans le cas du N°_Individu, il faille utiliser un NotInList. Je verrais plutôt un BeforeUpdate...

Le N° d'individu représente quoi par rapport à l'enregistrement ?

Argy

On ne peut pas faire Form.Requery après modification d'un contrôle Combobox, dont la valeur n'est pas enregistrée, dans ton cas c'est le sous-formulaire:
Forms![F-Deplacement].Form![F-OM-individu] qui est en état "Dirty".

Donc essaie cela dans l'évènement du sous-formulaire Forms![F-Deplacement].Form![F-OM-individu]:

Code:

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
 
Private Sub N°_individu_NotInList(NouvellesDonnées As String, Réponse As Integer)
 
  Dim entNouvInd As Integer, entTronqueNom As Integer, chTitre As String, entmsgDialogue As Integer
 
'  DoCmd.RunCommand acCmdUndo
 
'
' "Ajouter un individu" est ouvert un acDialog, très bien:
'
  DoCmd.OpenForm "Ajouter un individu", acNormal, , , acAdd, acDialog, NouvellesDonnées
 
'
'  donc ici forcément "Ajouter un individu" est fermé, donc NouvellesDonnées a été enregistré.
'
' Annuler modification d'abord:
  Me.undo
'
' maintanant je peux .Requery sans souci:
  Me.[N° Individu].Requery
'
'  je peux ensuite assigner la nouvelle valeur:
  Me.[N° Individu].value = NouvellesDonnées 
 
'
' je communique avec ACCESS:
'
  Réponse = acDataErrAdded
End Sub

13/11/2007, 19h36
Lorenzole+bo

Màj liste déroulante

Afin d'actualiser la liste déroulante, aller dans les propriétés du formulaire contenant la liste déroulante :

Evénement sur activation : DoCmd.Requery = "ModifiableX"

(X étant le numéro de la liste déroulante)

Ciao.
14/11/2007, 08h39
argyronet

Citation:

Envoyé par Lorenzole+bo

Afin d'actualiser la liste déroulante, aller dans les propriétés du formulaire contenant la liste déroulante :
Evénement sur activation : DoCmd.Requery = "ModifiableX"
(X étant le numéro de la liste déroulante)
Ciao.

Il est recommandé, lors de suggestions, de ne pas préconiser une solution avec une erreur de syntaxe...
La méthode Requery associé à l'objet DoCmd est restée d'actualité pour une compatibilité avec Access 95 mais n'est pas la meilleure à utiliser.
Sa syntaxe est :

Code:

DoCmd.Requery [nom du contrôle]

:nono: Et non pas comme tu le cites Lorenzole+bo

Code:

DoCmd.Requery = "ModifiableX"

Il est préférable, si on veut actualiser un contrôle qui ne se trouve pas dans le formulaire actif, d'utiliser plutôt la méthode Requery du contrôle lui-même.

Quand bien même Lorenzole+bo, la méthode Requery telle qu'il faut l'utiliser a déjà été suggérée...
Merci de ton intervention.

Argy

Voir 40 message(s) de cette discussion en une page