Discussion :

[afrodje]

Salut

Voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 Do Until (IsNumeric(prix))
            'chr(13) et 10 permette le saut de ligne et revenir au debut de ligne
            prix = InputBox("Entrez le montant du nouveau frais fixe " & Chr(13) & Chr(10) & " Seulement des nombres", "Ajout de donnée")
        Loop

Mon problème est que si l'utilisateur veut annulé l'opération (avec le bouton annulé du InputBox ), il ne peut pas car le Do...Until boucle.

Comment l'empêcher?

[boubounne]

tu pourrais mettre uèn peu pus de code que je test stp, sinon, si tu rajoute une condition or dans ton do until ??

[afrodje]

oui j'ai déjà fais ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Do Until (IsNumeric(prix) Or prix Is DBNull.Value)

Voila le code entier mais cela ne te servira pas plus, je n'ai mis que l'essentiel.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
  Private Sub but_ajouter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles but_ajouter.Click
        Dim nom As String
        Dim prix As String
 
        nom = InputBox("Entrez le nom du nouveau frais fixe", "Ajout de donnée")
 
        Do Until (IsNumeric(prix) Or prix Is DBNull.Value)
            prix = InputBox("Entrez le montant du nouveau frais fixe " & Chr(13) & Chr(10) & " Seulement des nombres", "Ajout de donnée")
        Loop
        requete_insert_into_frais_fixe(nom, prix)
 
    End Sub

[boubounne]

bon je l'admet c'est pas propre.... mais ca marche ^^, je regarde si je trouve mieux..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim nom As String
        Dim prix As String
 
        nom = InputBox("Entrez le nom du nouveau frais fixe", "Ajout de donnée")
 
        prix = "test"
        Do Until (IsNumeric(prix) Or prix = "")
            prix = InputBox("Entrez le montant du nouveau frais fixe " & Chr(13) & Chr(10) & " Seulement des nombres", "Ajout de donnée")
            MessageBox.Show(prix)
        Loop
 
    End Sub

[afrodje]

bon je l'admet c'est pas propre.... mais ca marche ^^, je regarde si je trouve mieux..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim nom As String
        Dim prix As String
 
        nom = InputBox("Entrez le nom du nouveau frais fixe", "Ajout de donnée")
 
        prix = "test"
        Do Until (IsNumeric(prix) Or prix = "")
            prix = InputBox("Entrez le montant du nouveau frais fixe " & Chr(13) & Chr(10) & " Seulement des nombres", "Ajout de donnée")
            MessageBox.Show(prix)
        Loop
 
    End Sub

Tant que ça marche !

[boubounne]

ben ca marche mais si tu met pas de valeur et que tu clic sur OK il quitte ...