Discussion :

[patbeautifulday]

Bonjour

J'ai un formulaire dans lequel j'ai une liste déroulante.
J'ai un sous-formulaire qui doivent se mettre à jour sur l'évènement Dirty de ma combo, mais je n'y arrive pas. Actuellement j'ai mis un bouton qui déclenche une procédure qui met à jour la requête du sfr.
A l'ouverture, ou au chargement, je manipule la requête source via le VBA.
Voici le code :

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
16
Public Sub ModifQuery()
    Dim str As String
    Dim qdf As DAO.QueryDef
    Set qdf = CurrentDb.QueryDefs![RqSomRecepProd]
    Me.RecordSource = qdf.SQL
    Set qdf = Nothing
    'MsgBox Me.RecordSource
    str = "where entrepot='" & Forms!activentrepot1.entrepot.Value & "' and semaine=" & Forms!activentrepot1.txtsemaine & " GROUP "
    Me.RecordSource = Replace(Me.RecordSource, "group", str, 1, -1, vbTextCompare)
    'MsgBox Me.RecordSource
    Me.Requery
End Sub
 
Private Sub Form_Load()
ModifQuery
End Sub

Ma question est : comment déclencher la procédure ModifQuery() à la mise à jour ou la modification de ma combo ?
Merci

[User]

Salut,

regarde du coté de l'évènement afterupdate (après Maj) de ta combo...

[patbeautifulday]

C'est vrai, tu as raison !!

Je voulais juste prendre en compte le changement de valeur ou non : si la valeur sélectionnée est la même, on ne ré-exécute pas toutes les requêtes.

Mais bon, çà ne marchait pas

Merci User en tous cas