[مساعدة]

اتضح أنك تستخدم جدولين DGVAlert وDGV_Users

وأنت احتفظت برقم المؤشر الخاص ب DGV_Users
ولكنك في السطر DGVAlert.CurrentRow.Cells(1).Value أنت تعاملت بالحذف مع DGVAlert وليس DGV_Users

ارجو أن يكون الخطأ اتضح لك

---

تفضل التعديل

كود :

Try
   Dim CurrentRowIndex As Integer = DGVAlert.CurrentRow.Index
   'لتأكيد عملية الحذف
   If MsgBox("هل تريد تأكيد عملية الحذف", MsgBoxStyle.YesNo, "تأكيد الحذف") = DialogResult.Yes Then

       sqlstr = "Delete From TB_Notices Where ID_Format = @ID_Format"
       cmd = New OleDbCommand(sqlstr, conn)
       cmd.Parameters.Add("@ID_Format", OleDbType.VarChar).Value = DGVAlert.CurrentRow.Cells(1).Value
       conn.Open()
       cmd.ExecuteNonQuery()

       MsgBox("تمت عملية الحذف بنجاح", MsgBoxStyle.Information, "الحذف")

       'سب تحميل البيانات
       FillDGVAlert()

       DGVAlert.Rows(CurrentRowIndex).Selected = True
       DGVAlert.FirstDisplayedScrollingRowIndex = CurrentRowIndex

   End If

Catch ex As Exception
   MsgBox("لا توجد  تنبيهات معلقة", MsgBoxStyle.Information, "حذف تنبيه")
Finally
   conn.Close()
End Try