Discussion :

[nicolovitch]

bonjour à tous voici mon petit problème :

Je possède un formulaire avec dessus deux listes déroulantes, quand je sélectionne un choix dans la première liste déroulante je récupère la valeur et je la transmet à la deuxième liste comme suit :

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
 
Private Sub Liste_Api_Change()
 
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Api_Id] = " & Me![Liste_Api] & ""
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
 
    If (Liste_Api.Value <> "") Then
    Liste_Api2.Value = Liste_Api.Value
    End If
 
End Sub

Mon probleme est le suivant,
Je souhaite réaliser une action avec la liste déroulante n°2 par rapport à sa valeur, donc "Liste_Api2.Value", mais je n'arrive pas à créer un événement pour exécuter les lignes de code.
En clair j'ai essayé avec un évenement sur modifier mais access ne prend pas la mise à jour de la valeur de la liste comme une modification (il ne la prend que lorsque je clique sur la liste 2) comment puis je faire???

[romrai]

Salut,

essaye de rafraichir ton formulaire comme ceci:

Code :

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

1
2
 
Ton_Formulaire.Refresh

après ton end If

par contre t'a pas d'erreur lors de l'execution de ton code? parce que ton premier if tu le fermes quand?

[nicolovitch]

bonjour, j'ai essayé de rafraichir mon formulaire mais ça ne marche toujours pas, j'espère que je me suis bien exprimé dans mon probleme :

Quand je clique sur ma première liste déroulante, la deuxième liste se met bien à jour (sans que je clique dessus) avec la meme valeur que dans la premiere liste, mais access ne prend pas cette mise à jour de la valeur comme un évènement de modification, il ne le prend comme tel que lorsque je clique sur la deuxième liste.

Comment faire pour que access me prenne cette mofication de valeur de la liste comme un évènement pour exécuter le code correspondant.

[Invité]

Le seul moyen à mon avis est de forcer l'éxécution !

Dans le premier code, à la fin il faut ajouter :

Code :

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

1
2
3
4
 
  ...
  Call Me.Liste_api2.AfterUpdate
End Sub

Voilà

[nicolovitch]

Salut je pense que c'est une bonne idée de forcer l'exécution du code derrire la liste déroulante; le seul hic est que lorsque j'éxecute la ligne

Code :

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

1
2
 
Call Me.Liste_Api2.AfterUpdate

il me met : "erreur de compilation, utilisation incorrecte de la propriété"

Je me suis trompé dans l'écriture du code?