требуется помощь с VBA Access

[ger_kar]

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

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

Private Sub Form_Timer()
    If Вкладка5.Controls("ЗаявкаНаНаличку").Form.Recordset.RecordCount > 1 Then _
       Вкладка5.Controls("ЗаявкаНаНаличку").Form.Recordset.AddNew
       Form.TimerInterval = 0
End Sub

Интервал в свойствах выставить 100

[Gurren]

Аааа.... с "Ввод данных" все понятно. Тогда отставлю "Ввод данных" на "ДА")))

По поводу обновления связанных таблиц не совсем все работает. Возле меня человек с буком сидит, пробовали перекинуть ему на бук прогу. В итоге "Приветствие" и "форма входа" почему то работают, а остальные формы, таблицы, запросы не открывает. Фиг знает в чем проблема... но пишет - "C:\Documents in setting\................. . Убедитесь в том что форма связана с сервером" Короче путь показывает не верный...

Вот файлы:

Proga.rar

(441.04 Кб) Скачиваний: 149

посмотри их....

Только запусти сразу как разархивируешь... ничего не меняй. По идее прога у тебя дальше "форма входа" не уйдет... В чем промах мой?

[Gurren]

что то не дошло. Зачем таймер? о_О
У меня приметив... должно переходить на addnew и все типо)

[ger_kar]

У меня все работает. Если у тебя не пашет обновление, то единственное, что приходит на ум, это то, что видимо возникает проблема с путями на ноуте. Где ты пробуешь стопудово имя пользователья русскими буквами. Попробуй другие директории, где пути покороче и без кириллицы.
Ща, я тебе свой вариант в ЛС зашлю. Посмотришь какой больше понравиться. Мой с кодом или твой со свойством формы

[Gurren]

Твой вариант сто пудово лучше) все заработало, и на буке друга тоже) Спасибо тебе большое за помощь
А можно будет задавать вопросы сдесь по ходу дальнейшей разработки моего ПП?
Я тя наверное за эти 2 дня запарил уже

[Gurren]

Не знаю считается ли это флудом или нет, но друг попросил узнать как можно возвести в модуль по средством VBA. вот пример формулы: |a*2|
Модуль - все отрицательные значения делает положительными.

a1,a1 - это а

Я ему предложил во так:

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

sub TupoButtonXD_click()
     if cells(a1,a1) < 0 then (cells(a1,a1)*(-1))*2 else cells(a1,a1)*2
end sub

Как то так короче...

А теперь вопрос - Есть ли стандартные функции типо этого какие нить???

[Хакер]

Не знаю считается ли это флудом или нет, но друг попросил узнать как можно возвести в модуль по средством VBA

Не флуд, а оффтопик. В почти всех языках мира функция называется Abs.

[Gurren]

Аааааааа! Фак! как же я про такое мог забыть... позор мне

[ger_kar]

Для того, что-бы успешно программировать в VB и VBA нужно для начала хорошо изучить встроенные возможности и функции языка. В этом тебе поможет справочник, который я тебе заслал ЛС.
Но кроме стандартных средств можно еще и недокументированные возможности среды вовсю использовать, а для этого тебе нужно просмотреть внимательно данную конференцию и особенно статьи написанные ХАКЕРОМ, я например узнал для себя очень много нового и полезного.

[Gurren]

Спасибо за советы и справочник) Думаю справочник поможет)

[dormouse]

что бы при закрузке формы, программа переходила на самую последнюю запись (та которая для заполнения)

Я вот не пойму, а зачем эти ласты и нексты, если есть DoCmd.GoToRecord ,,acNewRec? Инициируется создание новой пустой записи. Это дублирует кнопку со звёздочкой в области перехода

[Gurren]

пипец... сработал acNewRec а мы парились) Ну и за объяснение работы acNext и acLast спасибо)
Отдельное спасибо ger_kar... это человек который не смотря на мою тупость возился со мной

Я просто только не давно стал изучать VBA... всех функций не знаю...

[dormouse]

А их особо и не надо знать. Надо уметь пользоваться перечнем объектов и всего такого по F2. Ну и когда пишешь в коде имя функции, у тебя должен выпасть список доступных констант для параметров. Уж там-то легко найти то, что тебя устроит, даже если ты не знаешь, что хочешь.