Удаление записи из таблицы (странности) |
MyDb.TableDefs.Refresh
If DCount("*", TBL_NAME, USLOVIE) = 0 Then
Me!messag = Me!messag & vbCrLf & "Запись " & USLOVIE & " УЖЕ удалена из " & TBL_NAME
& " базы: " & BAZA_NAME
Else
MyDb.Execute "DELETE FROM " & TBL_NAME & " where " & USLOVIE
Me!messag = Me!messag & vbCrLf & "Запись " & USLOVIE & " удалена из " & TBL_NAME & "
базы: " & BAZA_NAME
End If
DCount("*", TBL_NAME, USLOVIE) = 1
https://www.sql.ru/forum/1305369/udalenie-zapisi-iz-tablicy-strannosti
| Комментировать | « Пред. запись — К дневнику — След. запись » | Страницы: [1] [Новые] |