UserForm qui se ferme sans que je le veuille

[nougitch]

Bonjour,

J'ai un USF.
Sur le INITIALIZE, j'exécute une requête pour loader des données dans une liste déroulante.
Mais à chaque lancement de ce USF, il se ferme aussitôt.

Mon code USF est le suivant :

Private Sub UserForm_Initialize()

    Dim dCountry    As Dictionary:  Set dCountry = CreateObject("Scripting.Dictionary")

    Set oConnection = New ADODB.Connection
    oConnection.Open DatabasePath

    Set oADO = New Recordset
    With oADO
        .CursorLocation = adUseClient
        .ActiveConnection = oConnection
        .CursorType = adOpenStatic
        .LockType = adLockOptimistic
            sQuery = ""
            sQuery = sQuery & "SELECT               "
            sQuery = sQuery & "         C.fId,      "
            sQuery = sQuery & "         C.fName     "
            sQuery = sQuery & "FROM                 "
            sQuery = sQuery & "         tCountry C  "
            sQuery = sQuery & "ORDER BY             "
            sQuery = sQuery & "         C.fName ASC "
        .Source = sQuery
        .Open
    End With

    Do While Not oADO.EOF
        dCountry.Add oADO(0), oADO(1)
        oADO.MoveNext
    Loop

    Me.cbxCountry.List = dCountry.Items

    Me.cbxCountry.ListIndex = 0

    Set oADO = Nothing

    oConnection.Close

End Sub

Mon code dans le module, qui lance l'USF est le suivant :

Public Sub mcrSSF()

    Application.ScreenUpdating = False

    On Error Resume Next

    frmSSF.Show

End Sub

Quand j'enlève une partie du code de la requête SQL, l'USF se lance.

Merci par avance pour votre aide !

 

[nougitch]

Re : UserForm qui se ferme sans que je le veuille

Voici le fichier en pj.
Merci pour votre aide.