Программы "Простой софт" www.prostoysoft.ru

ВНИМАНИЕ! РЕКЛАМНЫЕ СООБЩЕНИЯ И ГИПЕРССЫЛКИ В ФОРУМЕ ЗАПРЕЩЕНЫ (посты удаляются автоматически)
Текущее время: 22.11.2024 08:17

Часовой пояс: UTC + 4 часа




Начать новую тему Ответить на тему  [ Сообщений: 4 ] 
Автор Сообщение
СообщениеДобавлено: 28.07.2021 17:37 
Не в сети

Зарегистрирован: 10.04.2015 13:32
Сообщения: 159
Добрый день, коллеги!

Вот такая задача:

Есть таблица tblSales и подчиненная tblSalesProducts

В главной таблице написана команда vbscript, завязанная на горячую клавишу.


Dim s
ExecuteSQL("INSERT INTO tblSales (DocumentDate) VALUES (GETDATE())")
RefreshActiveTable
s = ExecuteSQL("SELECT Max(ID) FROM tblSales")
'MsgBox s
GoToTableAndRecord ("qdfSales", s)


Какую команду нужно дописать в конце кода, чтобы автоматически фокус стал на подчиненной таблице tblSalesProducts и можно было сразу сканировать штихкод сканером штрихкодов?


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: 28.07.2021 19:51 
Не в сети
Администратор

Зарегистрирован: 15.02.2006 20:16
Сообщения: 3690
Откуда: Санкт-Петербург
Есть такая команда
SetFocus Field

То есть в случае поля подтаблицы надо попробовать так
SetFocus "qdfSubTable.BarCode"

А если не заработает, обратитесь, пжл, к нам в поддержку с копией БД и уже прописанной командой.
Для нашего удобного тестирования и доработки.

_________________
2B OR NOT 2B = TRUE


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: 29.07.2021 13:42 
Не в сети

Зарегистрирован: 10.04.2015 13:32
Сообщения: 159
Отправил базу в поддержку


Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 4 ] 

Часовой пояс: UTC + 4 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 15


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group
Русская поддержка phpBB