|
 |
 |
 |
| |
Effacer une ligne d'un MSFlexGrid en double-cliquant dessus 
Rien de plus facile !!
Il suffit de suivre les indications suivantes :
Dans la procédure DblClick() copiez ceci :
Dim reponse
Dim moi
reponse = MsgBox("Êtes-vous sûr de vouloir éffacer cette ligne ?", vbYesNo, "SUPPRESSION D'ENREGISTREMENT")
If reponse = vbYes Then
moi = MSFlexGrid1.RowSel
Data1.RecordsetType = vbRSTypeDynaset
Data1.Refresh
Data1.Recordset.Edit
Data1.Recordset.AbsolutePosition = moi - 1
Data1.Recordset.Delete
Data1.Refresh
End If
Ce qui doit donner ceci :
Private Sub MSFlexGrid1_DblClick()
Dim reponse
Dim moi
reponse = MsgBox("Êtes-vous sûr de vouloir éffacer cette ligne ?", vbYesNo, "SUPPRESSION D'ENREGISTREMENT")
If reponse = vbYes Then
moi = MSFlexGrid1.RowSel
Data1.RecordsetType = vbRSTypeDynaset
Data1.Refresh
Data1.Recordset.Edit
Data1.Recordset.AbsolutePosition = moi - 1
Data1.Recordset.Delete
Data1.Refresh
End If
End Sub
|
|
 |
|
 |
|
IDDN Certification
