Всем привет, сегодня столкнулся с такой проблемой:
Нужно запрограммировать автоматический поиск нужных значений из базы данных, но VBA не понимает переменные для нее. Ввожу Dim База As DataBase, n As Recordset - а он выдает, мол, неизвестный тип переменных. Где-то в настройках можно "подцепить" расширение для Access, но как это сделать я не знаю, может кто подсказать?

все равно не получается: пишет, что какой-то конфликт возник

Спасибо - помогло и переменные заработали.
Только теперь другая проблема, при я написал вот что для поиска:



Модератор: Учимся использовать тэги оформления кода - FAQ


Выдает ошибку, что база по адресу C:/Ograd.mdb не найдена, хотя она именно там и находится. Можете с этим помочь?

а поймет ли так программа, что в соответствии первому столбику нужно присвоить значения трем переменным из трех других столбиков таблицы?

ну не открывает он базу данных и все тут.
Может возможно сделать так, чтобы он искал значения из таблицы в соседнем листе?
Алгоритм такой
Есть название, которое вводим вручную - программа ищет такое название в таблице и выписывает три параметра из соседних столбиков, соответствующих этому названию.

Объясните, пожалуйста, такую проблему (на рисунке): я чего-то не понимаю или это реально мистика

честно говоря, ничего не понял, i - это просто переменная, обозначенная как integer

Вот хоть убейте, а = 0, даже пробовал дополнительную переменную вводить - все одно

как сделать так, чтобы условие выполнялось и при этом все работало?
Написно-то правильно, всегда так писал в 2010-м экселе - проблем не было. А тут какая-то непонятка

Спасибо, заработало, теперь все правильно считает!

сейчас завис на таком этапе: Мы в ячейку 4,3 вводим название ограды, у каждого типа ограды есть три своих параметра: ширина опорных столбиков, количество поясов и размер трубы. Нужно, чтобы программа сама искала по названию соответствующие параметры в таблице. Таблица приведена на втором листе. Понятно, что переменной присваиваем значение "tip as String" и что задаем алгоритм поиска типа do while tip = "Столбец 1" тогда x="столбец 2" и y = "Столбец 3" и z = "Столбец 4" но сделать это все так, чтобы работало, у меня не получается - Я попросту не знаю, как грамотно это все написать. Еще такая проблема: В ячейке 5,3 мы вводим тип калитки. Переменную я сделал тоже "string" и сказал ей реагировать только назначения "левая" или "правая". В зависимости от этого и еще одного фактора программа должна вставлять заранее заготовленный рисунок прямо на рабочий лист. Либо может кто знает как сделать так, чтобы Excel сам рисовал?

Чтобы рисовалась схема расположения секций. Я не знаю, как сделать так, чтобы Excel сам рисовал, и не знаю, возможно ли это вообще! Поэтому и заготовил картинок заранее. Всего 20 штук. Как заложить на программном коде такой смысл

If "условие" Then "вставить картинку (путь такой-то)"
ElseIf "вставить другую картинку (путь такой-то)"

пробовал - не работает
я тут нашел в справочнике такую команду
ActiveSheet.Pictures.Insert ("D:\plan\10.PNG")
нелает как раз то, что нужно, но как сделать так, чтобы картинка вставлялась в определенную ячейку, а то она просто в активную вставляется

просто код пустой - нет ничего. Может глюк какой...

А все, разобрался, спасибо! Я стоп не нажимал просто...

Можно еще такой вопрос: как сделать так, чтобы при поиске оград по алгоритму:

Код
With Sheets(2)
iRow = .Range("A:A" ;) .Find(tip, LookIn:=xlValues).Row
st = .Cells(iRow, 2)
poyas = .Cells(iRow, 3)
tr = .Cells(iRow, 4)
End With


при отсутствии совпадений программа выдавала месседж-бокс, мол, ограды с таким наименование не найдено?
Проще говоря, если программа не нашла введенную ограду, она бы вывела сообщение об этом и остановилась.

не работает(((
Дописываю MSGbox = "такой ограды нет"
выдает ошибку.
И как обозначить переменную result?
Я написал ее как recordset, правильно?