04-06-18, 06:20 PM
(آخر تعديل لهذه المشاركة : 04-06-18, 06:23 PM {2} بواسطة اسلام الكبابى.)
وجدت الحل والحمد لله
انه فى الحدثAfterColEdit
أى أن الكود يكون هكذا
انه فى الحدثAfterColEdit
أى أن الكود يكون هكذا
Private Sub DataGrid1_AfterColEdit(ByVal ColIndex As Integer)
Z = MsgBox(" ", vbYesNo, " هل أنت متأكد؟ ")
If Z = 6 Then Adodc1.Recordset.UpdateBatch adAffectCurrent: GoTo 100
Adodc1.Recordset.CancelBatch adAffectCurrent
100End Sub
Z = MsgBox(" ", vbYesNo, " هل أنت متأكد؟ ")
If Z = 6 Then Adodc1.Recordset.UpdateBatch adAffectCurrent: GoTo 100
Adodc1.Recordset.CancelBatch adAffectCurrent
100End Sub


