Складская Acess база с VBA кодом

[AK90]

Вечер добрый, уважаемые программисты и форумчане. Досталось мне наследство от уволившегося программиста - "hand-made" база складского учета, сделана на аксессе, с использованием ВБА кода. Расстроенные женщины - учетчицы мне объяснили, что она работала, а сейчас не работает, но хотелось бы чтоб работало, и именно оно, а не что-то новое, потому что привыкли, а переучиваться не хотят. НУ чтож, поматерился, решил взяться, но осознал, что мне это тяжеловато, поскольку VBA не знаю, а изучать щас, в время сессии некогда. Поэтому, если найдется человек, готовый подсказать так, чтоб понял такой пень в програмировании,как я, а еще лучше, человек, готовый "сделать,чтоб это все работало"(разумеется работать бесплатно я не призываю, денежный вопрос обговорим отдельно и индивидуально,если найдутся желающие) - я буду очень рад. Моя аська для связи 450 859 235. Это была присказка, а теперь - собственно техническая "сказка" - рассказываю то, что понял и заметил в
1) Написано все это было в 2000 аксессе, запускать пытаюсь на 2003(2000 тоже пробовал, не пашет)
2) Состоит база из 2х - SKLAD.mdb(в которой находится основной код + все формы) и sklad_tables.mdb, там, где хранятся все таблицы, как следует из названия.
3)при запуске СКЛАД вылезает клавишная форма, позволяющая выполнять различные опции.

4) Открываем Основную форму, представляющую собой дерево деталей/материалов, позволяюющее добавлять новые, смотреть информацию по имеющимся, настраивать их приход-расход и т п. Внешне все работает, но пр ипопытке ввести новый приход или служебный расход, вылезает ошибка.

Дебаггер ругается на строчку с датой, но что в ней не так - я не знаю, пробовал менять дату, но это не спасает.

Возможно есть еще какие-то баги, но я на них не наткнулся пока.

Сама база(оба файла) лежит в архиве:

http://www.rapidshare.ru/1314021

cпасибо за внимание.

[iGrok]

Полуметровый файлик мог бы и на форум выложить, вместо рапиды. Оттуда фиг скачаешь..

[dormouse]

почему-то MaxDate в начале процедуры объявлена явно, а MinDate - нет. она в результате присвоения значения вполне могла получить текстовый формат
надо или объявить её, как Date или совсем по уму заменить первые строчки на:

Код: Выделить всё

Dim MinDate as Date, MaxDate as Date
DateSerial(Year(Now), forms!form_дерево.month_string, 1)
If forms!form_дерево.month_number = 12 Then
    MaxDate = DateSerial(Year(Now) + 1, 1, 1)
Else
    MaxDate = DateSerial(Year(Now), forms!form_дерево.month_number + 1, 1)
End Sub


а к чему приводит голое Format (без указания этого самого формата в качестве параметра), вообще трудно предположить

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

[alex77755]

Еле скачал. Установил куда затребовалось, Запустил. Проверил. Нигде ничего не велезло. Создаются все накладные.
Вопрос, скорее всего в формате даты. Кто-то залез в региональные настройки. Думаю проверять надо там, раз ругается на дату

[qwertyhp]

При попытке скачать с Рапиды читаем:
_
"Вы хотите скачать файл: SKLAD.rar
объемом 0.51 мегабайт.
Файл был запрошен 23 раз(а).
Файл был скачан 0 раз(а).
Все слоты бесплатного скачивания заняты. Пожалуйста попробуйте еще раз через некоторое время.
Для снятия ограничений Вы можете приобрести VIP доступ. "
_
To ak90: Выложите файл(ы) на ФОРУМЕ - хоть посмотрим.

[SLIM]

Да вы что, парень и сам забыл уже про то что спрашивал.

[qwertyhp]

Но мне-то интересно...
И я не поленился скачать этот архивчик по ссылке - коий и выкладываю.
Заседание продолжается!

[alex77755]

Скачать архивчик мне то удалось с Рапиды, но вот как сделать на этой странице вложение - никак не догоню.

[qwertyhp]

Как сделать на этой странице вложение.
Скачиваем архивчик "Рисунки.zip".
1. Выполняем Рис.1 - т.е. кнопим "ОТВЕТИТЬ"
2. Появляется то, что на Рис.2. Перемещаемся в середину этой страницы и видим аналог Рис.3.
3. Наводим МЫШШ на кнопочку "Обзор...". Провокация в том, что курсор на ней выглядит, как в окне ввода - но это обман зрения. Всё равно кнопим. Выбираем на своих дисках файл для вложения. Далее кнопим "Добавить файл".

[alex77755]

Спасибо, разобрался.

[Денис]

AK90

А вообще, конечно лучше уходить с акцесса. Тут недавно вспоминали, что приложения на нем могут внезапно без предупреждения уходить в даун и ты ничего не восстановишь.

Делай хотябы бекапы каждое утро.