Discussion :

[pascale86]

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 :

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

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

[argyronet]

Bonjour,

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

Code :

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

Code_destination.Requery

Argy

[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 ?

[DMboup]

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 :

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

1
2
 
Forms!FormulairePrincipal.Form!SousFormulaire!NomChamp.Requery

[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 :

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

Forms!FormulairePrincipal.Form!SousFormulaire!NomChamp.Requery

Merci merci

[DMboup]

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 :

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

Forms!FormulairePrincipal.Form!SousFormulaire!NomChamp.Requery

Merci merci

Tu fais du remplacer ! Faut quand même t'y mettre un peu non !

[argyronet]

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 :

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

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

[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.

[argyronet]

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 :

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

DoCmd.Requery [nom du contrôle]

Et non pas comme tu le cites Lorenzole+bo

Code :

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

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

[jacou]

Il est recommandé, lors de suggestions, de ne pas préconiser une solution avec une erreur de syntaxe...
Argy

C'est toujours un plaisir de te lire, et 100% d'accord avec ARGY.