Bonjour,
A partir du formulaire "FormRechercheFactureIdSpecific" et le bouton "Ouvrir cette inscription" J'utilise la macro suivante pour ouvrir un formulaire sur un identifiant précis (celui de la facture" qui fonctionne très bien. J'ouvre bien la bonne facture.
Code : Tout sélectionner
'permet de sélectionner un n°facture pour l'ouvrir dans le formulaire FormInscriptionReglementIdSpecific
Sub FormRechercheFactureIdSpecific(oEv as Object)
Dim oForm1 as Object, oForm as Object
oForm1 = oEv.Source.Model.Parent
If isEmpty(oForm1.getByName("IdFacture").CurrentValue) Then
MsgBox "Vous devez séléctionner une entrée dans la liste déroulante"
Exit Sub
End If
Identifiant = oForm1.getByName("IdFacture").CurrentValue
oForm = ThisDatabaseDocument.FormDocuments.getByName("FormInscriptionReglementIdSpecific")
oForm.open
ThisDatabaseDocument.FormDocuments.getByName("FormRechercheFactureIdSpecific").close
End Sub
Code : Tout sélectionner
'permet de sélectionner un n°adherent pour l'ouvrir dans le formulaire FormAdherentSpecific
Sub FormRechercheAdherentSpecific(oEv as Object)
Dim oForm1 as Object, oForm as Object
oForm1 = oEv.Source.Model.Parent
If isEmpty(oForm1.getByName("IdAdherent").CurrentValue) Then
MsgBox "Vous devez séléctionner une entrée dans la liste déroulante"
Exit Sub
End If
Identifiant = oForm1.getByName("IdAdherent").CurrentValue
oForm = ThisDatabaseDocument.FormDocuments.getByName("FormAdherentSpecific")
oForm.open
' ThisDatabaseDocument.FormDocuments.getByName("Form").close
End Sub
Sauriez-vous m'aider ?
Merci.
Eric