Inputbox a chaque démarage

Bonjour tout le monde

J'ai le probleme suivant :
Je dois créer un logiciel au sein duquel j'ai une partie modification d'un entraineur (c'est un logiciel de gestion sur le sport universitaire).

Donc, lorsque on clique sur modification , j'ai crée une inputbox afin que l'utilisateur rentre le nom de l'entraineur sur qui elle veut modifier des données.
Jusque la pas de probleme tout est bon.

Mon problème arrive maintenant : une fois que l'on retourne sur le menu, si l'utilisateur reclique sur Modification , mon inputbox ne s'ouvre plus ! Et on est toujours sur la page de modification du premier entraineur rentrée.

J'aimerais que mon inputbox s'ouvre a chaque fois qu'on clique sur modification mais elle s'ouvre qu'a la premiere ouverture et garde le premier nom rentrée..

J'espere que j'ai été assez clair et que vous pouvez m'aider.

?Merci

faudrait voir du code pour répondre

Ben c'est tres simple :

Code lorsqu'on clique sur le bouton modification :

PrivateSub ModifierToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ModifierToolStripMenuItem.Click

Me.Hide()

Timer.Stop()

P9frmModifEntraineur.Show()

EndSub


Codes sur la page modification :

Public

Class P9frmModifEntraineur

Dim Nom AsString

PrivateSub P9frmModifEntraineur_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

Nom = InputBox(

"Veuillez rentrez le nom de l'entraineur", "Nom de l'entraineur à modifier")

lblNom.Text = Nom

EndSub

PrivateSub cmdInit_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdInit.Click

txtMail.Text =

""

txtNiveau.Text =

""

txtPhoto.Text =

""

cbxSport.SelectedItem =

""

EndSub

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

lblNom.Text = Nom

Me.Hide()

P9MDIMenu.Show()

EndSub

PrivateSub cmdQuitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdQuitter.Click

Dim RQ AsInteger

RQ = MsgBox(

"Etes vous sur de vouloir quitter l'application", 52, "Quitter l'application?")

If RQ = 6 Then

MsgBox(

"Merci de votre visite et à bientôt", , "Au revoir")

End

EndIf

EndSub

C'est bon j'ai trouvé!

Tout simplement mettre Me.Close()

Merci beaucoup !