Discussion :

[Dixies]

Bonsoir à tous.

J'ai un formulaire avec premier sous-form : MonSF1
et un deuxième sous-form : MonSF2

Ils sont liés ensemble par la relation Père/fils.

Je voudrais ajuster la taille de mes SF en fonction du nombre d'enregistrements.
J'ai trouvé ceci :http://access.developpez.com/faq/?pa...toSizeSousForm qui fonctionne impeccablement pour mon premier SF.

Mon problème est que quand je click sur un enregistrement de MonSF1, MonSF2 se met à jour (normal) mais ne rétablit pas sa taille comme je voudrais.

J'ai approprié ce même code sur MonSF1Click(), pensant que ça fonctionnerait, mais rien ne se passe.

Toutefois, en mettant ce code pour l'un et l'autre de mes SF Sur Activation de mon formulaire, à l'ouverture de mon formulaire : ça marche ...

Comment faire pour relancer la procédure à chaque changement d'enregistrement sur MonSF1 ?

Merci d'avance. Bonne soirée.

[Dixies]

Bonsoir à tous.

Je remonte cette discut car je n'arrive pas à trouver de solution à mon problème.

Qqu'un aurait-il une piste à me proposer ?

Merci pour votre patience.

Bonne soirée.

[Dixies]

Bonjour à tous.

Je reviens vers vous pour m’aider à résoudre un petit souci pour lequel la solution est au-delà de mes compétences.
N’ayant pas réponse, peut-être n’ai-je pas était clair dans mon explication.
Permettez-moi de reformuler ma requête :

J’ai dans un formulaire un menu déroulant (MonMDVL) dans lequel s’affiche la liste de mes vaches laitières.
Egalement un sous-formulaire (SF_Lactations) en liaison Père/fils avec MonMDVL.
Afin d’ajuster la taille de ce SF en fonction de son contenu, j’ai mis ce code Sur Activation de mon fourmulaire.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Current()
 
    Me.SF_Lactations.Form.InsideHeight = Me.SF_Lactations.Form.Section(acHeader).Height _
        + Me.SF_Lactations.Form.Section(acFooter).Height _
        + Me.SF_Lactations.Form.Section(acDetail).Height _
            * (Me.SF_Lactations.Form.RecordsetClone.RecordCount _
            - Me.SF_Lactations.Form.AllowAdditions)
    Me.SF_Lactations.Height = Me.SF_Lactations.Form.WindowHeight
 
End sub

Et ça marche super !

J’ai pour finir un second SF (SF_Lactations-Détails) en liaison Père/fils avec SF_Lactations.
Afin d’appliquer l’ajustement de sa taille en fonction de son contenu, j’ai à nouveau mis ce code Sur Activation de mon formulaire .

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Current()
 
    Me.SF_Lactations-Détails.Form.InsideHeight = Me.SF_Lactations-Détails.Form.Section(acHeader).Height _
        + Me.SF_Lactations-Détails.Form.Section(acFooter).Height _
        + Me.SF_Lactations-Détails.Form.Section(acDetail).Height _
            * (Me.SF_Lactations-Détails.Form.RecordsetClone.RecordCount _
            - Me.SF_Lactations-Détails.Form.AllowAdditions)
    Me.SF_Lactations-Détails.Height = Me.SF_Lactations-Détails.Form.WindowHeight
 
End sub

Conclusion : à l’ouverture de mon form ou après MAJ de MonMDVL, ça marche.
Mais quand je souhaite sélectionner une ligne sur SF_Lactations pour en afficher les détails dans SF_Lactations_Détails, ce dernier n’ajuste pas sa taille.

J’ai essayé différentes possibilités mais rien n’y fait et aucun message d’erreur.

Merci pour votre aide.

Belle journée.