Уважаемые форумчани, подскажите пожалуйста каким образом можно релизовать таймер на форме.
К примеру:
Мая форма обробатывает события по таймеру,
и к концу всех событий начинает из обробатывать заного.
В конце всех событий стоит таймер:

Current_22 = Timer * 1000
Do Until (Timer * 1000) - Current_22 > 2000000
DoEvents
Loop

Как в форме вывести обратный отсчет?


******
Чудесен и меркантилен, рванными мыслями мир!

http://www.sql.ru/forum/1078567/taymer-na-forme

Имеется ленточная форма остнованная на запросе из хранимой процедуры. При отсутсвии фильтров в форму загружается около 2000 записей, но внутри процедуры много чего выполняется и в итоге загрузка идет долго. Пользователи часто не пользуются фильтрами, а "крутят" колесико для поиска нужной строки. Запретить я это не могу по "административным" причинам. :)
Возникла мысль сделать "страничную" загрузку данных, в хранимой процедуре я это решил легко с помощью

...offset @offset rows    
fetch next 50 rows only

В форму добавлена переменная котролирующая офсет, и которая будет менятся при достижении следующей/предыдущей страницы.

А вот как контроллировать достижение последней/первой строки в форме при любом виде скролинга или при перемещении по строкам клавишами?

http://www.sql.ru/forum/1078536/kontrol-prokrutki-v-lentochnoy-forme

Создал форму (Форма1) с текстовым полем. Её функция - появляться после двойного клика по определённому текстовому полю из материнской формы. Затем оператор либо кликает по текстовому полю Форма1, если выбирает находящиеся там данные, или кликает вне Форма1, после чего форма должна закрыться (как альтернатива Esc для отмены). Для того чтобы Форма1 держала заданные ей размеры, свойству Всплывающее окно присвоил Да (нашел такой совет на страницах форума). Но вот после этого по клику вне Форма1 событие Form_Deactivate() не происходит, соответственно Форма1 не закрывается и висит. Как помочь моему горю?

Option Explicit

Dim MustClose As Boolean

Private Sub Form_Load()
    DoCmd.MoveSize 0, 0, 1035, 284
End Sub

Private Sub Form_Open(Cancel As Integer)
    Call TransForm(Me)
End Sub

Private Sub Form_Timer()
   If MustClose Then DoCmd.Close acForm, "Форма1"
End Sub

Private Sub Form_OnLoad()
  Me.TimerInterval = 0
End Sub

Private Sub Form_Deactivate()
    Beep
    MustClose = True ' будет закрыта по таймеру
    Me.TimerInterval = 100 ' закрытие через 100 мс
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 27 Then DoCmd.Close acForm, "Форма1"
End Sub

http://www.sql.ru/forum/1078533/vsplyvaushhee-okno

Добрый день всем!
такой вопрос:
На форме есть несколько контролов.
Надо массово установить некоторые свойства этих контролов, например - видимость.
Как это сделать, не перечисляя в коде наименование каждого элемента?

Например, имеем на форме N флажков.
как реализовать нечто такое:

for i = 1 to N
  контрол(i).visible = false
next N

http://www.sql.ru/forum/1078518/izmenit-svoystva-neskolkih-kontrolov

Dim R As Recordset
Dim Mem As String

Set R = CurrentDb.OpenRecordset("SELECT ТекстМанипуляций.Текст as Текст FROM (ТекстМанипуляций RIGHT JOIN Товары ON ТекстМанипуляций.Код = Товары.Текст) RIGHT JOIN (Заказы RIGHT JOIN Заказано ON Заказы.КодЗаказа = Заказано.КодЗаказа) ON Товары.КодТовара = Заказано.КодТовара WHERE (((Заказы.КодЗаказа) = " & Me.Заказы_КодЗаказа & ")) GROUP BY ТекстМанипуляций.Текст HAVING (((ТекстМанипуляций.Текст) Is Not Null)) ORDER BY Var(Товары.Артикул);")

While Not R.EOF
Mem = Mem & R("Текст") & vbCrLf
R.MoveNext
Wend

Me.MEMO.Caption = Mem

Set R = Nothing

http://www.sql.ru/forum/1078481/podskazhite-gde-rezhet-peremennuu

Народ, доброго всем времени суток! Нет, пользовательская тупизна не победима: в проекте Access, мной, собственноручно, реализована отменная защита от дурака (неправильного ввода данных). Так этот, извиняюсь, ОЛЕНЬ (он же пользователь), по другому назвать его не могу, считает, что программа делает ему несправедливые замечания, относительно некорректного ввода данных. Поборовшись пару минут, далее ОНО плюет на все, нажимает ctrl+alt+del, снимает задачу, выдергивает комп из розетки, выбрасывает системник из окна, звонит мне и говорит, мол, фигня Ваша программа, глючит что-то...
Принятые меры:
1) Системник прибит к полу
2) Питание и остальные шнуры намертво приклеены к системнику, монитору и т.д.
3) Рубильник в электрощитке отломан!
4) С местной электростанцией достигнута договоренность о резервной подаче электроэнергии в случае подрыва трансформатора.
Но:
осталась не перехваченой комбинация клавиш CTRL+ALT+DEL!
Это существенно ставит под угрозу безопасность нашей Родины!
Прошу в этом помочь.
Помнится, я работал с горячими клавишами KeyCode, ASCI, таблицами этих кодов и т.д. Но не нашел этого самого кода на одну из трех вышеперечисленных клавиш, кажется на ALT. Тогда я предположил, что это не спроста... Повидимому Гетц запрещает перехват этой комбинации, в качестве последнего шанса на снятие рухнувшей программы... Хотелось бы думать, что я ошибаюсь. Быть может кто-нибудь подскажет вариант готового решения с перехватом?

http://www.sql.ru/forum/1078463/vozmozhno-li-perehvatit-sochetanie-ctrl-alt-del

У кого получается с MS Access 2013 работать лучше, чем с MS Access ADP 2010. При разработке приложений для MS SQL SERVER.

http://www.sql.ru/forum/1078440/access-2013-ms-sql-vs-access-adp-2010-ms-sql

Здравствуйте, дамы и господа !!!
Помогите пожалуйста !!!
Проблема у меня такая:
Есть таблица - Test_tab с полями: Код, Дата, Оператор, Годность, Брак

Код | Дата | Оператор |Годность | Брак |
----------------------------------------------
1 | 01.01.14 | Иванов | Г | |
2 | 02.01.14 | Иванов | Г | |
3 | 02.01.14 | Иванов | Б | сгорел |
4 | 02.01.14 | Иванов | Г | |
5 | 03.01.14 | Иванов | Б | потух |
6 | 03.01.14 | Иванов | Б | ап |
7 | 01.01.14 | Петров | Г | |
8 | 01.01.14 | Петров | Г | |
9 | 01.01.14 | Петров | Б | красн. |
10 | 01.01.14 | Петров | Б | синий |
11 | 01.01.14 | Петров | Б | синий |
12 | 01.01.14 | Петров | Б | желт. |
13 | 02.01.14 | Петров | Г | |
14 | 02.01.14 | Петров | Г | |

Необходимо сделать сводную таблицу, в которой бы считался процент брака
Т.е. % брака = кол-во. брака (поле Годность = 'Б')/кол-во всего (поле Годность = 'Г'+'Б') * 100
Т.е. сводная таблица должна быть такой:
В поля фильтра помещаем поле - Дата
В поля строк перемещаем поле - Брак (должно содержать только наименования браков и никаких пусто и т.д.)
В поля столбцов перемещаем поле - Оператор

В фильтре задаем период - от 01.01.14 до 03.01.14

И на экране видим:

Иванов
Брак | кол бр| всего|%брака
сгорел | 1 | 6 | 16,66
потух | 1 | 6 | 16,66
ап | 1 | 6 | 16,66

Петров
Брак | кол-во брак| всего|%брака
красн. | 1 | 8 | 12,5
синий | 2 | 8 | 25
желт. | 1 | 8 | 12,5

Помогите, как сделать так чтобы в полях строк были только наименования браков
и в тоже время в поле - 'всего' отображалось количество и браков и годных?
Может надо какой то промежуточный запрос сделать или еще что то?
Помогите, пожалуйста! Заранее благодарен.

http://www.sql.ru/forum/1078414/svodnaya-tablica-itogi-pomogite

Уважаемые форумчане! Помогите плиз с запросом..

Есть таблица
Код товара Склад Артикул Группа товара Количество Цена Сумма
ProductID StoreID ProductCode ProductGroup Quantity Price Amount
100 1 aaa Группа1 2 10 20
100 11 aaa Группа1 3 10 30
100 2 aaa Группа1 1 10 10
101 1 bbb Группа2 1 20 20
101 11 bbb Группа2 1 20 20


Мне нужно вывести результат в виде
Код товара Артикул ОбщийОстаток Группа товара Количество Цена Сумма
ProductID ProductCode AllQuantity Quantity1 Quantity2 ProductGroup Quantity Price Amount
Т.е. сгруппировать остатки по ProductID , чтобы с столбцах видеть количество на разных складах
AllQuantity = Остаток по всем складам (StoreID), кроме склада 11 (или можно < 11) т.е. StoreID < 11
Quantity1 = Остаток по складу 11
Quantity1 = Остаток по складам =2 или =5

Заранее спасибо! Я в sql пока еще никакой...

http://www.sql.ru/forum/1078375/sozdat-zapros-s-podschetom-v-stolbcah

автор
dbs.Execute ("Insert into ABONENTS_KZ select * from [Лист1$A1:D500] IN 'Tele27.xls' [Excel 5.0;HDR=YES;IMEX=1] where Поле1 > 0 ")

Собственно есть таблица в акцессе надо в нее часто импортировать данные с Excel
пытаюсь сделать форму-интерфейс, что бы можно было выбрать нужную EXCEL таблицу, нажать кнопку и вставить данные из таблицы.

Но не пойму где вставить инструкцию с указанием поля из Excel и в какое поле? и соответственно не работает запрос говорит
" ошибка синтаксиса в INSERT INTO"

Подскажите люди добрые, как быть?

http://www.sql.ru/forum/1078354/ne-poluchaetsya-sdelat-insert-into-in-oshibka-v-sintaksise-pomogite-pliz

Заранее извиняюсь за скорее всего глупые вопросы, но я не смог найти ничего похожего поиском.

Есть таблица :

Адвантан Ж мазь 15г 9 3105 Адельфан-эзидрекс табл. № 250 1 1475 Аджисепт пастилки №24 Классические 5 405 Аджисепт пастилки №24 Мед-лимон 5 350 Адрианол капли наз взр.10мл флак 21 1851

Наименование и количество/сумма

Проблема в том, количество/сумма в одном столбце.
Нужно сделать запрос или таблицу, чтоб все было в одну строчку, чтоб можно было работать дальше.
Не уверен можно ли это сделать запросом без vba.

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

еще раз извиняюсь.

http://www.sql.ru/forum/1078320/dannye-iz-sleduushhey-stroki

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

В форме 2 поля:Дата (Data/time) и Количество (Long number). Форма отсортирована по Дата.
* пользователь не будет менять сортировку.
* источник данных - таблица Таб с одноименными полями.

Необходимо добавить поле Итог с данными из поля Количество с нарастающим итогом.


Спасибо.

http://www.sql.ru/forum/1078295/pole-s-narastaushhim-itogom-v-forme

Здравствуйте, появилась такая задача - подсчитать кол-во значений в нескольких группах при условии, что повторяющиеся значения учитывать нужно только один раз, в наиболее приоритетных группах.

Надеюсь, на примере будет понятнее, вот такая форма:

Повторяющиеся имена значат, что это один и тот же человек
(На поле "ВУЗ" не обращайте внимания)
Вот что с подсчётом:
______________________________________________________________________________________
|__________|_Как_есть:|_Как_должно_быть:_______________________________________________|
|
|Всего_____|___13_____|_9______________________________________________________________|
|Английский|____3_____|_3 _____________________________________________________________|
|Русский___|____5_____|_3_(Ирина и Катя не считаются, т.к. учтены в английском)_____________|
|Польский__|____4_____|_2_(Ирина и Веста не считаются, т.к. учтены в английском или русском)_|
|Другой____|____1_____|_1_____________________________________________________________|
|__________|__________|_______________________________________________________________|
Приоритет по возрастанию: Польский -> Русский -> Английский

Я думаю, можно сделать так:
убрать повторяющиеся значения, тогда число из группы с наименьшим приоритетом будет найдено сразу (Польский = 2),
затем из всех (с повторами) найти число из наивысшего приоритета (Английский = 3)
А потом вычесть из общего числа всё, что имеем и найти среднюю группу (Русский 9 - 2 - 3 - 1 = 3).

Осталось узнать, как убирать повторяющиеся значения из поля?
И наверно есть и вариант получше)

http://www.sql.ru/forum/1078283/podschyot-po-gruppam-bez-uchyota-povtorov

Приветствую всех!
Есть вопрос. Хотелось бы уточнить, а существуют ли коммерческие приложения на этой платформе?
Т.е если смысл использовать ms access для распространения своей программы. Какие могут быть подводные камни?
И хотелось бы посмотреть как могут выглядеть такие приложения

http://www.sql.ru/forum/1078259/komercheskie-prilozheniya-na-ms-access

Нарисовалась еще одна проблемка, не могу записать в фал текст как надо.
Программа создает батничик и включает его.

'Формирование сообщения для отправки
txtText = "@echo off timeout /t 3 /nobreak>nul cd /d %~dp0 sent /u:Soldatov_RO Darvin_DA Antonov_SN Belov_AS"" Warning Server 1 = " & rst.Fields(0) & " C !!!"""
Open CurrentProject.Path & "\meseg.bat" For Output As #1
Print #1, txtText
Close #1

'Отправка сообщения
Dim FLVfile As String
FLVfile = CurrentProject.Path & "\meseg.bat"
ShellExecute 0, "open", FLVfile, "meseg.bat", 0, SW_NORMAL

Код батника должен быть в три строки:
@echo off timeout /t 3 /nobreak>nul
cd /d %~dp0
sent /u:Soldatov_RO " Warning Server 1 = 35 C !!!"

Получается в одну строку:
@echo off timeout /t 3 /nobreak>nul cd /d %~dp0 sent /u:Soldatov_RO " Warning Server 1 = 35 C !!!"

В одну строку батник не срабатывает.

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


******
Чудесен и меркантилен, рванными мыслями мир!

http://www.sql.ru/forum/1078246/zapis-v-fayl-teksta-po-strokam

доброе время суток!

есть два вопроса по отчетам:
1) в отчете есть составное поле в которое выводится ФИО и возраст (

=[Fam] & " " & [Nam] & " " & [Ot] & " " & [age]

)
как сделать, чтобы еще дописывалось "лет"/"года" в зависимости от возраста, как я понимаю условие будет если в возрасте цифры 1-4, 11-14 и т.д то "лет", во всех ост. случаях "года", подскажите как это можно реализовать.

2) в отчете хочу сделать счетчик строк. я создал отдельный текстбокс в данные ему прописал

=[CurrentRecord]

, и в этом случае отчет выдает мне нули, что я не так делаю?

спасибо

http://www.sql.ru/forum/1078213/otchet

Проблема.
Нужно программно скопировать файл на сетевой компьютер,
как при этом указать имя и пароль пользователя, которому это разрешено?

Не получается нагуглить, или не умею. :-(

http://www.sql.ru/forum/1078125/skopirovat-fayl-na-setevoy-komputer

Всем привет. Помогите, пожалуйста, разобраться как разбить текстовое поле:
Исходное поле таблицы:

Кинескоп, LG 1876
помидор красный, хороший 11 шт
Газпром ООО 18-th Street, NY, USA

Нужно в итоге из этого поля получить получить запросом или функцией два поля:
1) поле, содержащее данные ДО первого слева латинского символа или цифры исходного поля
2) поле, содержащее данные ПОСЛЕ первого слева латинского символа или цифры исходного поля

Должно получиться:

Поле1 | Поле2
Кинескоп |LG 1876
помидор красный, хороший |11 шт
Газпром ООО |18th Street, NY, USA

Заранее спасибо за помощь.

http://www.sql.ru/forum/1078117/razdelit-pole-po-russkim-i-nerusskim-simvolam

Уважаемые форумчани, с толкнулся с такой задачей:

В текстовой файл передается текст в котором должны присутствовать кавычки.

txtText = "sent /u:Soldatov_RO " Warning Server 1 = " & rst.Fields(0) & " !!! " "
Open CurrentProject.Path & "\temp.bat" For Output As #1
Print #1, txtText
Close #1

Естественно вба ругается. Есть ли какой небудь способ релизовать это?

******
Перебирай законных прав ингредиенты
И добовляй от жути, с каждого нутра!

http://www.sql.ru/forum/1078097/vechno-kovychki

Здравствуйте ребята. Помогите пожалуйста с MS Access 2010, необходимо чтобы таблица или сам файл имел структуру документа. Если можно в крации расскажите что представляет из себя структура документа.
Я выполняю лабораторную работу, преподавателем было отмечено что таблица не имеет структуры документа. Искал на разных источниках определении структуры, так как нет понимания что это. Помогите пожалуйста.

http://www.sql.ru/forum/1077971/struktura-dokumenta-v-ms-access