🚀 go-pugleaf

Bonjour
j ai fait une DLL actveX, dans lequel j ai mis cette fonction qui marchait
tres bien avant,
maintenant ca plante a partir de
i_Form = Forms.Count - 1
il ne sait pls combien ou s il y a des forms
pourquoi ?
merci

voici le code

Public Function fu_InitGrid()
    ' affiche ou ote la grille dans les listes

    Dim li_Grid As Integer
    Dim li_ColCount As Integer
    Dim i As Integer
    Dim i_Boucle As Integer
    Dim i_Form As Integer
    Dim o_Object As Object
    Dim ig_Grid As Variant

    i_Form = Forms.Count - 1

    For i_Boucle = 1 To i_Form
        If UCase(TypeName(Forms(i_Boucle))) = "MDIFORM" Then
        Else
            For Each o_Object In Forms(i_Boucle)
                If UCase(TypeName(o_Object)) = "DBGRID" Then
                    Set ig_Grid = o_Object
                    ig_Grid.RowDividerStyle = 1
                    li_ColCount = ig_Grid.Columns.Count - 1
                    For i = 0 To li_ColCount
                        ig_Grid.Columns(i).DividerStyle = 1
                    Next
                ElseIf UCase(TypeName(o_Object)) = "SSDBGRID" Then 'Pour les
Sheridan

                    Set ig_Grid = o_Object
                    ig_Grid.DividerType = 3
                End If
            Next
        End If
    Next

    Set o_Object = Nothing
    Set ig_Grid = Nothing

End Function

--
                                           _\\|//_
                                            (-o-O-)
---------------------------------------ooO-(_)-Ooo---------------------
Philippe Cazaux-Moutou
Courbevoie  - France
.
phcm@easynet.fr
philippe.cazauxmoutou@francetelecom.fr
ICQ : 4597055
-----------------------------------------------------------------------