Может есть какие-нибудь современные контролы для работы с БД?
Или известные причины этих глюков






Private Sub grdEquipment_BeforeDelete(Cancel As Integer)
If MsgBox("Действительно удалить?", vbQuestion Or vbYesNo) = vbNo Then
Cancel = True
Else
rstEquipment.Properties("Unique Table").Value = "EquipmentInstalled"
End If
End Sub
.CancelBatch
.Requery '...Сейчас этот форум просматривают: SemrushBot и гости: 9