Discussion :

[paidge]

Bonjour,
Je me dirige vers vous pour un problème auquel je n'y comprends absolument rien.

Pour résumé, j'ai un formulaire qui recense des acteurs. Ce formulaire comprend un sous-formulaire qui affiche les films dans lesquels ont joué les acteurs et les personnages qu'ils ont incarnés.
J'ai trouvé dans la FAQ, un algo très compréhensible pour adapter la taille du sous-formulaire en fonction du nombre d'enregistrements. Ca ne fonctionnait pas alors j'ai fait des tests (ça fait plus de 2h que je penche sur le problème...). Voilà où j'en suis :

-Quand je mets ça :

Code :

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

1
2
3
4
5
Private Sub Form_Current()
Dim Cpt As String
Cpt = Me.SF_Acteurs.Form.RecordsetClone.RecordCount
MsgBox (Cpt)
End Sub

La msgbox m'affiche bien 6 (j'ai mis un acteur avec 6 rôles ds 6 films différents).

Mais quand je mets :

Code :

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

1
2
3
4
5
6
Private Sub Form_Current()
Dim Cpt As String
Cpt = Me.SF_Acteurs.Form.RecordsetClone.RecordCount
MsgBox (Cpt)
Me.SF_Acteurs.Form.InsideHeight = Me.SF_Acteurs.Form.Section(acDetail).Height * Cpt
End Sub

La msgbox m'affiche 1 !!!! Alors que je rajoute qu'une ligne de code et que je ne touche pas à la variable....C'est à n'y rien comprendre...

Merci d'avance à celui qui aura une piste

[paidge]

N'ayant pas trouvé la solution, J'ai contourné le problème par la fonction Dcount(). Mais si quelqu'un comprend ce qui se passe, ça m'intéresse

PS : pour ceux qui cherchent voici la procédure

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub TailleSF(SF As Object, NbRecord As Integer, NbMaxLignes As Integer)
Dim frmSousForm As Form
    Set objSousForm = SF
    Set frmSousForm = objSousForm.Form
    If NbRecord <= NbMaxLignes Then
        frmSousForm.InsideHeight = frmSousForm.Section(acDetail).Height * NbRecord
        objSousForm.Height = frmSousForm.WindowHeight
        frmSousForm.ScrollBars = 0  'aucune barre de défilement
    Else
        frmSousForm.InsideHeight = frmSousForm.Section(acDetail).Height * NbMaxLignes
        objSousForm.Height = frmSousForm.WindowHeight
        frmSousForm.ScrollBars = 2  'barre de défilement verticale
    End If
    Set objSousForm = Nothing
    Set frmSousForm = Nothing
 
End Sub