ник: Гоблин
Не в том дело. Там как-то обобщенно. Примеры есть, но что бы их применить надо как-то знать что им сопутствует. Тут типа как из большого кода выдернута серидина. Естественно не работает. Общие понятия есть, а скопировать что бы посмотреть что это будет - никак. (с привязкой к своему)
Функции цикла как там написано применить не удалось, в оформлении msgbox значения кнопок и значка в окне перепутаны местами (методом тыка дошел что к чему), окно диалога
Private Sub Кнопка251_Click()
Dim dlgSaveAs As FileDialog
Set dlgSaveAs = Application.FileDialog(DialogType:=msoFileDialogSaveAs)
dlgSaveAs.Show
MsgBox dlgSaveAs.SelectedItems(1)
End Sub
Не работает никак.
Этот вопрос задавал ранее. Перепробовал все. Нихрена на выходе. Не пахает. Выделяет Set dlgSaveAs = Application.FileDialog(DialogType:=msoFileDialogSaveAs) и что ему там не так так и не выяснено.
Функции цикла - не циклят. Зато через 4 часа борьбы с ними зациклился я сам.
Вывод: Лучше IF ничего нет. По книге работать могут только программеры. Самое надежное - как раньше. На форму кучу форм видимых и невидимых с различными свойствами и связами и поочередно показывать то одни то другие. Работают без замечаний и сбоев нежели с фильтрами, списками, блокировками и т.д. Запросы только из конструктора. И т.д.
Ну не утверждаю что это так правильно. Обидно блин, книга дорогая.