Discussion :

[Alpha31]

Bonjour,

lorsque je crée un bouton pour lancer un autre formulaire par ex avec "l'assistant automatique", celui ci me crée le code suivant :

Private Sub Bt_Consult_Click()

On Error GoTo Err_Bt_Consult_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Formulaire_de_Consultation"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Bt_Consult_Click:
Exit Sub

Err_Bt_Consult_Click:
MsgBox Err.Description
Resume Exit_Bt_Consult_Click

End Sub

Si je l'avais fait personnellement, je n'aurai écrit au final que :

DoCmd.OpenForm "Formulaire_de_Consultation"

les

On Error GoTo Err_Bt_Consult_Click

les

Exit_Bt_Consult_Click:
Exit Sub

les

stLinkCriteria

et les

Err_Bt_Consult_Click:
MsgBox Err.Description
Resume Exit_Bt_Consult_Click

Sont il vraiment bien necessaire, pour simplement lancer un autre formulaire,
En ce qui me concerne je n'en vois pas l'interet.

Si ce sont pour gérer des exeptions, quel genre d'exeption est il vraiment necessaire de gérer dans ce cas je ne vois pas bien quand pourrait intervenir "On error"

Est ce grave si je ne met pas tout cela ?

Merci pour ces plus amples précision.

Alpha

[pschmidtke]

tu peux par exemple avoir une erreur lorsque le formulaire que tu appelles avec DoCmd n'existe pas. Dans ce cas là tu gère l'exception avec ces lignes, au lieu d'avoir une erreur incompréhensible (première vue) lors de l'éxécution.