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 :
Ma question est : comment déclencher la procédure ModifQuery() à la mise à jour ou la modification de ma combo ?
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
Merci
Partager