[Résolu][Base] Récupérer l'identifiant unique dans une zone de liste

[superpat]

Bonjour à tous
Dans la base de données ci-jointe, j'ai un formulaire qui me servira à gérer ma table PROPRIETAIRES
J'ai ajouté à ce formulaire une Listbox en lien avec une requète qui comprend l'ID, et la concaténation du NOM/PRENOM
Lors du choix d'un propriétaire dans la listbox, j'ai un MsgBox qui m'affiche effectivement le Nom et Prenom après exécution de la macro suivante:

Code : Tout sélectionner

Sub AllerAuProprietaire(oEv as object)
    Dim oDoc As Object
    Dim oForm As Object
    Dim oListbox As Object
    Dim valeur as string
    Dim Choix as integer
    
    oDoc = ThisComponent
    oForm = oEv.Source.Model.Parent
    'oForm = oDoc.DrawPage.Forms(0) 

    oListbox = oForm.getByName("LB_RECHERCHE")

    valeur = oListbox.CurrentValue
    MsgBox valeur

End Sub

Mais ce que j'aimerais c'est récupérer l'ID (clé) pour pouvoir raffraichir mon formulaire avec le nom choisi dans la listbox
Merci pour votre aide
Patrick

[micmac]

Bonjour,

Ajout de la balise [Base] comme c'est demandé dans les règles de cette section (Bandeau rouge en haut de page).
Balisage du code pour faciliter la lecture et la présentation.
À savoir pour la prochaine fois.

[Dude]

Salut,

Il faut un sous formulaire relié à l'ID si tu veux afficher les enregistrements liés à ta zone de liste.

C'est expliqué dans les tutos :

• viewtopic.php?t=14662
• viewtopic.php?t=52898

[superpat]

Merci pour votre réponse.
J'aurais voulu éviter un sous-formulaire car je suis sur une seule table.
N'y a-t-il pas moyen de récupérer l'ID de ma requête (attachée à ma listbox) et non le nom affiché après ma sélection de la listbox ?
J'ai essayé avec SelectedItems(0) , SelectedItems(1) , CurrentValue mais cela ne fonctionne pas.
J'ai juste besoin de l'ID (unique) qui me donnera l'enregistrement précis recherché.
Merci
Patrick

[Dude]

J'aurais voulu éviter un sous-formulaire car je suis sur une seule table.

Il n'y a aucun rapport entre formulaire et table.
Il s'agit de stocker l'information pour qu'elle soit récupérable.
Tu as lu le tuto ? C'est le 1er exemple donné et cela fonctionne en plus sans macro.

Ceci va afficher l'identifiant ID issu de ta table

Code : Tout sélectionner

Sub AllerAuProprietaire(oEv as object)
    oSource = oEv.Source
    With oSource
		nPos = .getSelectedItemPos()
		oListe = .getModel()
    End with
    msgbox oListe.ValueItemList(nPos) 
End Sub

[superpat]

Merci pour votre aide.
Je vais adapter mon ODB en fonction de votre exemple
Patrick

[Bidouille]

Comment clore un sujet lorsqu'il est résolu