MyTetra Share
Делитесь знаниями!
Удаление записей с помощью VBA
Время создания: 16.03.2019 23:43
Раздел: !Закладки - VBA - Access





Private Sub data_DblClick(Cancel As Integer)
    Dim id&
    id = Me.Form.Recordset!id
    With DBEngine(0)
        .BeginTrans
        .Databases(0).Execute "delete from sub_t where tid=" & id
        .Databases(0).Execute "delete from t where id=" & id
        If MsgBox("Удалить?", vbYesNo) = vbYes Then
            .CommitTrans
        Else
            .Rollback
        End If
    End With
    Me.Requery
End Sub



Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования