Discussion :

[El Bosc]

Bonsoir,

Le problème auquel je me heurte depuis quelques temps est le suivant.
Le formulaire possède un bouton qui permet de le réinitialiser. Cette action permet de sélectionner avec une liste déroulante une nouvelle occurrence afin de pouvoir la mettre à jour.
Est-il possible de déclencher l' événement du bouton depuis cette liste déroulante?

Cordialement

[madefemere]

Bonsoir,

A priori pourquoi pas.
Tu appelles l'évènement du bouton à partir d'un évènement de la zone de liste.

Exemple en pseudo

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private sub Bouton_Click()
...
end sub
 
Private sub ZoneDeListe_AfterUpDate()
Bouton_Click
....
end sub

Appel de l'action Sur click du bouton à partir de l'évènement après mise à jour de la zone de liste.

Bonne continuation

[El Bosc]

Bonsoir,

J' ai testé votre solution. J' obtiens une erreur 2467:
"Référence à un objet fermé ou supprimé."Pour une meilleure appréciation du problème, je joint tout d' abord le code du bouton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public Sub BtnMdf_Click()
   Dim tbl As String
   Docmd.Close acForm,"FExif",acSaveNo
   Docmd.close acForm,"F_Pht",acSaveNo
   Delete_Table(tbl)
   Docmd.OpenForm "F_Pht",acNormal,"","",acFormEdith,acWindowNormal
End sub

Et si dessous, le code de la liste déroulante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub LstPht_AfterUpdate()
   BtnMdf_Click
   Me.RecordsetClone.FindFirst"[Cf_Pht]="&Me![LstPht]  ' L' erreur 2467 se produit à la lecture de cette ligne de code
   Me.Bookmark=Me.RecordsetClone.Bookmark
   If DtPht=#01/01/1900# Or IsNull(DtPht) Then
      Docmd.OpenForm "FExif",acNormal,"","",acFormEdit,acWindowNormal
      Form_FExif.BFichier.SetFocus
   End If
   Docmd.Close acForm, "FExif",acSaveNo
End Sub

Voila ou j' en suis.

Cordialement

[madefemere]

Bonsoir,

Si j'ai bien compris tu mets à jour les données de tes 2 formulaires FExif et F_Pht avec ton premier code.

Tu sais que tu peux mettre à rafraichir un formulaire ou un contrôle avec la méthode Requery. Ce qui t'éviterait d'ouvrir et fermer le formulaire. Je pense que l'erreur se produit parce que l'ouverture du formulaire F_Pht ne se passe pas correctement.

Je te proposerais de modifier le code du bouton par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Public Sub BtnMdf_Click()
Dim tbl As String
Forms!FExif.requery
Forms!F_Pht.requery
Delete_Table(tbl)
End sub

A-t-on besoin de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Delete_Table(tbl)

Si on a besoin de rafraichir spécialement la zone de liste, mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Forms!F_Pht![LstPht].requery

J'espère que ça te fera avancer.

[El Bosc]

Bonjour,

Je viens de tester la solution proposée, à savoir, REQUERY.
Cette solution fonctionne à la première utilisation. Par contre, dés la deuxième utilisation, le code rencontre un problème.
Tout vient de Delete_Table(tbl). En effet, au cours de la mise à jour du formulaire, la liste déroulante qui permet de sélectionne une rubrique créée une table provisoire des catégories.
Cette solution a été mise en place pour limiter le nombre des options utilisables en fonction de la rubrique sélectionnée.
Cette table étant utilisée par la liste déroulante des catégories, il n' est donc pas possible de la supprimer après sélection. Il faut donc que je revoie la procédure d' utilisation du formulaire en pratiquant peut-être le Delete_Table(tbl) après sélection catégorie et en fermant le formulaire avant son exécution.

Bonne journée ensoleillée