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