Discussion :

[doncamelo]

Bonsoir le forum,

Voici bientôt 2h que j'essaie de trouver une solution à ce problème, mais sans succes. J'espère que vous pourrez me donner quelques idées de solutions.

En parcourant la FAQ j'ai trouvé ce code qui me permets de créer un enregistrement quand ma zone de liste déroulante (cboSelectionClient) affiche :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Absence dans liste déroulante - Proposer d'ajouter la valeur manquante dans la table source:
 
Private Sub Modifiable0_NotInList(NewData As String, Response As Integer) 
    If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des prénoms ?",  _
                       vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then 
        DoCmd.RunSQL "INSERT INTO tblPrenoms ( Prénom ) SELECT """ & NewData & """;" 
        Response = acDataErrAdded 
    Else 
        Response = acDataErrContinue 
        Modifiable0.Undo 
    End If 
End Sub

Ma liste déroulante (cboSelectionClient) permets à une zone de liste (lstInfosClients) d'afficher certaines info de l'enregistrement.

Mon problème est que lors que je crée un enregistrement, ma zone de liste (lstInfosClients) ne l'affiche pas.

J'ai utilisé :

Me.Refresh
lstInfosClients.requery

dans l'évènement après MàJ de ma zone de liste déroulante (cboSelectionClient) mais sans succes.

Quand j'ouvre ma table l'enregistrement existe.

Merci pour votre aide.

[Invité]

Bonjour

Une chose que je ne comprends pas, tu parles de liste déroulant ou non avec des noms normalisés (cboSelectionClient et lstInfosClients), hors tu mets ton code sur Modifiable0.

Peux-tu être un peu plus explicite.

Philippe

[doncamelo]

Désolé,

dans l'empressement j'ai repris le code de la faq.

Voici le code qui se trouve dans l'évènement : "Sur absence dans liste"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub cboSelectionClients_NotInList(NewData As String, Response As Integer)
    If MsgBox("Ce client " & NewData & " n'existe pas. Voulez-vous le créer ?", _
                       vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then
       DoCmd.RunSQL "INSERT INTO clients ( IdClients ) SELECT """ & NewData & """;"
        Response = acDataErrAdded
    Else
        Response = acDataErrContinue
        cboSelectionClients.Undo
    End If
 
End Sub

J'ai aussi rajouté dans l'évènement "Après MàJ"

Code :

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

1
2
3
4
Private Sub cboSelectionClients_AfterUpdate()
Me.Refresh
LstRechercheClients.Requery
End Sub

J'ai crée une requete (CritereAffichageClients) dans laquelle l'IDClients est conditionné par la valeur de "cboSelectionClients"

Dans le contenu de LstRechercheClients je reprends les champs de la requete "CritereAffichageClients".

Est-ce correcte ma manière de procéder ?

[rjamin]

Bonjour,

Dans la FAQ on trouve ceci

http://access.developpez.com/faq/?page=zdl#RafrZList

[doncamelo]

Bonsoir à tous,

Merci pour votre aide.

J'ai contourné le problème en créant un formulaire de saisi basé sur ma table clients.

Dans l'évenement "Après Insertion" du formulaire, j'ai rajouté :

Forms![FrmRechecheClients]![LstRechercheClients].Requery

Voici le code complet qui fonctionne:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_AfterInsert()
 
    If CurrentProject.AllForms("FrmRechecheClients").IsLoaded Then
 
        Forms![FrmRechecheClients]![LstRechercheClients].Requery
 
    End If
 
End Sub

Encore merci.