Message et module

Bonjour,
Je souhaite faire un module car j'ai ~10 Form et sur chaque Form les memes messages reviennent tres regulerement (Suppression, Annulation ,Modif... et leur traitement)

Comment faire un module regroupant tous les messages concernant mon appli ayant plusieurs Form (sur fermeture, sur suppression de fiche, sur creation de fiche, sur modification de fiche d'une BDD...) afin de minimiser mon code
et etre transposable si possible a d'autres applis.

Merci

tu pourrai faire ça avec des fonctions :

Public function drawmsg(txt as string) msgbox txt End Function

Comme c'est une fontion publique, je croi qu'elle est accessible depuis tte les forms(sinon met la ds un module)

Slt
franchement gwen49 avec ce que tu a dit ca ne change pas grand chose entre:

MsgBox "Suppression de fiche"

et

drawmsg "Suppression de fiche"

en plus ya plus de truc a ecrire ;-)
tu peux donner plusieur s exemple de message complet PCH stp, pour donner une reponse plus precise:
j'ai petete une petite idée par exemple tu peux mettre sur le bounton de suppression:

DrawMsg sup

et dan un module tu mettra

Public function drawmsg(txt as string) if txt="sup" then msgbox "la fiche a bien été supprimé",vbInformation,"SUPPRESSION DE FICHE" end if if txt="mod" then msgbox "la fiche a bien été modifié",vbInformation,"MODIFICATION DE FICHE" end if '... End Function

voila voila




Ne vous fiez pas à l'apparence...

oula désolé pour les feutes d'orthographe du genre:
supprimée

si la fontion plante écrit alor plutot

Public function drawmsg( byval txt as string)

Ne vous fiez pas à l'apparence...

ou le 'e' de feutes à la place de fautes d'ailleurs ;-)


Ne vous fiez pas à l'apparence...

En cherchant j'ai trouvé cette solution qui n'est peut etre pas terrible ????

Dans un module
Public Msg As String
Public Reponse1 As String

Public Function MsgModif()
'Boite de dialogue demande de confirmation
Msg = "Attention vous allez modifier cette fiche." + Chr$(13) + Chr$(10)
Msg = Msg + "informations." + Chr$(13) + Chr$(10)
Msg = Msg + "" + Chr$(13) + Chr$(10)
Msg = Msg + "Etes vous certain de continuer?" ' Définit le message.
Style = vbYesNo + vbExclamation + vbDefaultButton1 ' Définit les boutons.
Title = "Mise à jour informations" ' Définit le titre.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then Reponse1 = 6 'dans VB vbYes=6
If Response = vbNo Then Reponse1 = 7 'dans VB vbNo=7
End Function

Public Function Reponse()
'Confirmation de la reponse
Reponse = Reponse1
End Function


Et dans mon Form

Call MsgModif
If Reponse() = vbYes Then ' L'utilisateur a choisi Oui.
' Effectue une action.
'Mise à jour de l'enregistrement modifié
majADO.Update
majADO.Requery

MsgBox "Modification effectué
End If

C vrai mon code est environ = à msgbox, mais après on peu le personaliser, c'est vous qui voyez!!!

si je reprend ton code PCH il y a quelque truc a modif:
PS: j'ai ajouter aussi la possibilité d'ajouter une description de la fiche (voir la variable Desc dans le module)

'Et dans mon Form If MsgModif("description de la fiche") = 6 Then ' L'utilisateur a choisi Oui. ' Effectue une action. 'Mise à jour de l'enregistrement modifié majADO.Update majADO.Requery MsgBox "Modification effectué" End If

' dans un module 'Boite de dialogue demande de confirmation Public Function MsgModif(ByVal Desc As String) Dim msg As String msg = "Attention vous allez modifier cette fiche." + Chr$(13) + Chr$(10) msg = msg + "informations." + Chr$(13) + Chr$(10) msg = msg + Desc + Chr$(13) + Chr$(10) msg = msg + "Etes vous certain de continuer?" ' Définit le message. Style = vbYesNo + vbExclamation + vbDefaultButton1 ' Définit les boutons. Title = "Mise à jour informations" ' Définit le titre. 'Response = MsgBox(Msg, Style, Title, Help, Ctxt) 'If Response = vbYes Then Reponse1 = 6 'dans VB vbYes=6 'If Response = vbNo Then Reponse1 = 7 'dans VB vbNo=7 If MsgBox(msg, Style, Title, Help, Ctxt) = vbYes Then MsgModif = 6 Else MsgModif = 7 End If End Function

j'ai enlever ainsi tes deux variable globales, la fonction retourne une valeur, j'ai enlevé la deuxième fonction et j'ai raccourci le code
voial voila
a+



Ne vous fiez pas à l'apparence...

dsl les mot qui sont barré, normalement je les avait souligné pour que tu les repere bien! alor les supprime pas il sont utile et indispensable dans mon code ;-)


Ne vous fiez pas à l'apparence...

Merci bien TheLordFreddy pour tes precisions