Commondialog et le bouton annulé

Question

Bonjour,

voila, j'ai un gros souci:

j'ai suivi la méthode pour gerrer l'erreur 32755, mais ca ne marche pas.
j'ai bien fixé la proprieté cancelerror à "true", mais rien.

En fait, ca que je voudrais faire, c'est lorsque l'on appuis sur un bouton, effectuer une action, et que si une erreur survient ( ici, erreur d'ouverture de base de données = 3044) on ouvre la boite de dialogue ouverture pour choisir une DB.

c'est la que la gestion ne fonctionne pas, car je veux que la boite de dialogue ne se referme que si un chemin valide est selectionné.

Voici le bout de code que j'ai ecris:


Private Sub Command2_Click()

       On Error GoTo eRRo
|
traitement
|

eRRo:

    If Err.Number = 3044 Then
               
        MsgBox msgDll(289), vbInformation + vbOKOnly, msgDll(290)
        CommonDial1.CancelError = True
        On Error GoTo ErrHandler
        CommonDial1.ShowOpen
        txtDataB.Text = CommonDial1.Filename
        Set db = DAO.OpenDatabase(txtDataB.Text, False, False)
    End If
    
     If Err.Number = 32755 Then
        Reponse = MsgBox("Le programme ne peut fonctionner sans base de données valide." & Chr(10) & _
        "Veuillez en selectionner une", vbOKCancel, "Erreur")
            If Reponse = vbCancel Then
                End
            Else: CommonDial1.ShowOpen
            End If
    End If
    
    
    'save next date of backup
    Open BackuP For Output As #1
    
        Write #1, dBacK, I
        
    Close

end sub



Si vous avez des Zidées, je suis preneur

merciiii   ;) 

 8-)   THE Kazzz

cs_kazimir · Answer

Flute, j'ai oublié d'effacer un bout qui sert a rien:

Ne pas tenir compte de :
"On Error GoTo ErrHandler"

c'etait un essai :-p 
 8-)   THE Kazzz

cs_EBArtSoft · Answer

C'est cette meme methode qui a poussé les programmeurs
a utiliser les api recuperer un nom de fichier. Pour la corriger je te conseil la classe commondialog de remplacement disponible sur a peu pres toute mes sources ici. la syntaxe est simple :

If Commondialog.showOpen then
'...
else
'...
endif

@+

E.B.

BruNews · Answer

TEST INTERNE CS

ciao...
BruNews, Admin CS, MVP Visual C++

cs_ITALIA · Answer

On Error GoTo ErrHandler

' Ton Code

Exit Sub
ErrHandler:
  'L'utilisateur a cliqué sur Annuler
Exit Sub

' c normal que tu ais un Exit Sub et un  End Sub à la Fin 

It@li@

Commondialog et le bouton annulé

4 réponses

Discussions similaires