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 ?

[Pol63]

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 ?!?

+1

mg est un string
vbno est un nombre entier
et en tout cas je peux dire tout de suite il ne seront jamais égaux, donc pas la peine de faire un IF

tu devrais reellement prendre des cours de programmation ou lire des tutoriels comme je te l'avais dit
parce que là c'est un peu flagrant ce qui va pas ...

[loverdev]

Merci beaucoup LeSeb pour votre précieuse aide .
Voici le code après correction pour ceux qui auront le même pb que moi

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
16
17
18
19
20
21
22
 
Private Sub Btnsupp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsupp.Click
        Dim cnx As New OleDbConnection
        Try
            If MessageBox.Show("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", "Confirmation", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button3, MessageBoxOptions.RtlReading, False) = Windows.Forms.DialogResult.No Then
            ElseIf MessageBox.Show("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", "Confirmation", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button3, MessageBoxOptions.RtlReading, False) = Windows.Forms.DialogResult.Yes Then
                cnx.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =C:\Documents and Settings\Administrateur.STANDARD\Mes documents\Projet Budget\Budget\Budget\Marches.mdb"
                cnx.Open()
                Dim command As New OleDbCommand("delete * from Abonnement where Num_abonnement='" & Cbxnumab.Text & "'")
                Dim cmd As New OleDbCommand("delete * from Factureabonnement where Num_abonnement='" & Cbxnumab.Text & "'")
                command.Connection = cnx
                cmd.Connection = cnx
                command.ExecuteNonQuery()
                cmd.ExecuteNonQuery()
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        MsgBox("Votre opération a été effectuée avec succès.", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)
        Me.Dispose()
        Frmprincipale.Show()
    End Sub