Discussion :

[loverdev]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Btnsupp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsupp.Click
        'sql1 = "select * from Factureabonnement where Num_abonnement ='" & Cbxnumab.Text & "'"
        mg = "Etes vous sûre de vouloir supprimer cet abonnement? Attention, la suppression de cet abonnement entraînera la suppression automatique des factures lui afférents."
        If mg = vbNo Then Exit Sub <== msg d'erreur "La conversion de la chaîne "Etes vous sûre de vouloir supprimer ..." en type 'Double' n'est pas valide"
        If mg = vbYes Then
            sql = "delete from Abonnement where Num_abonnement='" & Cbxnumab.Text & "'"
            sql1 = "delete from Factureabonnement where Num_abonnement='" & Cbxnumab.Text & "'"
        End If
        MsgBox("Votre opération a été effectuée avec succès.", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)
        Me.Dispose()
        Frmprincipale.Show()
    End Sub

[flagadda]

Ca vient peu être de moi, mais je comprend pas la demande ...

[loverdev]

En exécutant la suppression d'un enregistrement j'ai ce msg d'erreur qui apparaît au niveau de la ligne indiquée ci dessous

[flagadda]

De quelle type est mg, parce que malgré son nom tres explicite je n'arrive pas à la deviner.

[loverdev]

mg est de type string

[flagadda]

J'suis pas un specialiste en Logiciel Lourd, mais il manque pas une etape dans ton code ?!?
Tu test si ton string est égal à vbNo, il ne faudrait pas plutot tester si une boite de dialogue ayant pour libellé ton string à la valeur vbNo ?!?

[leSeb]

Tu ne peux pas comparer ta variable mg et la constante vbNo, ça n'a aucun sens.

A mon avis, ce que tu veux faire c'est un truc du style

Code :

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

1
2
3
4
5
If MessageBox.Show("Ma question", "Mon titre", vbYesNo, ...) = vbNo Then
 
ElseIf MessageBox.Show("Ma question", "Mon titre", vbYesNo, ...) = vbYes Then
 
End If

[Aspic]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Btnsupp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsupp.Click
        'sql1 = "select * from Factureabonnement where Num_abonnement ='" & Cbxnumab.Text & "'"
        mg = "Etes vous sûre de vouloir supprimer cet abonnement? Attention, la suppression de cet abonnement entraînera la suppression automatique des factures lui afférents."
        If mg = vbNo Then Exit Sub <== msg d'erreur "La conversion de la chaîne "Etes vous sûre de vouloir supprimer ..." en type 'Double' n'est pas valide"
        If mg = vbYes Then
            sql = "delete from Abonnement where Num_abonnement='" & Cbxnumab.Text & "'"
            sql1 = "delete from Factureabonnement where Num_abonnement='" & Cbxnumab.Text & "'"
        End If
        MsgBox("Votre opération a été effectuée avec succès.", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)
        Me.Dispose()
        Frmprincipale.Show()
    End Sub

Quelle est la question ?