| alex; |
|---|
Sub bbb()
Dim frm As Form, ec As EmptyCell, ct As Control
DoCmd.OpenForm "3 Импорт XML - КолХозяйствЖивотные", acDesign
Set frm = Forms("3 Импорт XML - КолХозяйствЖивотные")
For Each ct In frm.Controls
If ct.ControlType = acEmptyCell Then
DeleteControl frm.Name, ct.Name
End If
Next
End Sub
не удаляет пустые ячейки
что делать? |
Вот чисто интересно, а что такое
EmptyCell в разрезе Microsoft Access?
ТС, можешь объяснить простыми словами, что ты хочешь получить в результате?
Меня терзают смутные сомнения ©