VBA, MS Access MS Access в примерах

Коллекция рисунков - Очистка

Private Sub PurgeSharedImages()
  Dim i As Integer
  For i = CurrentProject.Resources.Count - 1 To 0 Step -1
    If CurrentProject.Resources(i).Type = 1 Then
      CurrentProject.Resources(i).Delete
    End If
  Next i
End Sub
Назад ToTop
L.E. 29.06.2022
Рейтинг@Mail.ru