Ma macro ci-dessous fonctionne très bien; attachée à une listBox, elle trouve le bon enregistrement, mais le fitre ainsi créé empêche de modifier les champs, à moins bien sûr que je ne clique sur "Actualiser".
Il doit SUREMENT exister un truc pour rendre l'enregistrement de suite modifiable, mais je n'ai pas trouvé
Merci déjà de vos réponses
Code : Tout sélectionner
Sub applyfilter(oEvent)
dim oDoc, oForm, oTxt, oNum, oObj
oDoc=thiscomponent
oForm=odoc.drawpage.forms.getbyindex(0)
oTxt = oEvent.Source.SelectedItem()
rem msgbox (oTxt)
oNum=oForm.getByName("ListBox").ValueItemList(oForm.getByName("ListBox").SelectedItems(0))
rem msgbox (oNum)
oForm.filter = "ID = " & oNum
oForm.reload
oForm.ApplyFilter=True
end Sub
