Удаление записи из таблицы через подчиненную форму в другой форме - PullRequest
Новая
       23

Удаление записи из таблицы через подчиненную форму в другой форме

0 голосов
/ 15 апреля 2019

У меня есть форма Serch form, которая содержит подчиненную форму projects_subform, и подчиненная форма связана с таблицей Projects.

Теперь я хочу удалить запись из подчиненной формы, которая фактически удалит эту же запись из таблицы.Пожалуйста, найдите ниже мой код для операции удаления.

https://i.stack.imgur.com/0j699.jpg

Ответы [ 2 ]

1 голос
/ 15 апреля 2019

Вы можете использовать RecordsetClone : 

Private Sub cmdDelete_Click() 

    Dim rs As DAO.Recordset

    Msg = "You are about to delete this record." 
    Style = vbOKCancel + vbQuestion + vbDefaultButton2 
    Title = "Continue?" 

    Response = MsgBox(Msg, Style, Title) 
    If Response = vbOK Then
        Set rs = Me.Projects_subform.Form.RecordsetClone    
        rs.FindFirst "Bookmark = Me.Projects_subform.Form.Bookmark
        rs.Delete
    Else 
        MsgBox "No record deleted", vbOKOnly, "No changes made" 
    End If 

End Sub
0 голосов
/ 15 апреля 2019

Если источник записи (базовая таблица или запрос) имеет тип Dynaset, а свойство «Разрешить удаление» имеет значение «Да», вы можете удалить записи в форме, выбрав запись и нажав клавишу «Удалить» на клавиатуре ( Форма Свойства ).

В качестве альтернативы вы можете выбрать запись и нажать «Удалить» в строке меню «Главная» в верхней части приложения ( Домашняя панель ).

...