bouton"supprimer" - VB/VBA/VBS - Programmation
Marsh Posté le 09-04-2010 à 09:43:39
Mettre cette demande de confirmation, avant la suppression, donc, vers le début de la subroutine, parait être une bonne place.
Marsh Posté le 09-04-2010 à 13:53:37
Mais la ligne s'efface quelque soit la résponse (soit confirmer ou ignorer la suppression)
Marsh Posté le 09-04-2010 à 14:17:48
Ok, donc la question est "comment" plutôt que "où".
Je n'ai pas accès à VB, mais voici un exemple en VBS qui est semblable :
Sub Suppression_lignes |
Marsh Posté le 09-04-2010 à 05:47:54
Bonjour
Dans ce code,dans une bouton "supprimer",je veux savoir ou mettre un msgbox "etes-vous sure de suuprimer?" avant de confirmer la suppression
Code
-------
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim TextCode = DataGridView1.SelectedRows(0).Cells(0).Value.ToString()
MsgBox(TextCode)
Dim cnx As New SqlConnection
cnx.ConnectionString = ("Data Source=PC\SQLEXPRESS;Initial Catalog=bd;Integrated Security=True;" )
Dim cmd As New SqlCommand("DELETE FROM Fournisseur WHERE Code='" & TextCode & "'", cnx)
If DataGridView1.SelectedRows.Count = 1 Then
Dim row As DataGridViewRow
row = DataGridView1.SelectedRows(0)
DataGridView1.Rows.Remove(row)
End If
cnx.Open()
cmd.ExecuteNonQuery()
MsgBox("supprimé" )
cnx.Close()
End Sub
merci d'avance