Мне нужно поле которое имело бы только 3 значения: -1; 0; 1. Какой тип выбрать лучше?

http://www.sql.ru/forum/1192043/pole-tolko-s-3-mya-znacheniyami-1-0-1

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

http://www.sql.ru/forum/1191962/iskluchenie-iz-spiska-vybrannyh-poziciy

Доброго времени суток!

Ищу книгу
К. Гетц, П. Литвин, Э. Бэрон
Access. Сборник рецептов для профессионалов (+ CD-ROM)

С продажи снята, в поисковике ничего найти не получается, выручайте!

http://www.sql.ru/forum/1191936/access-sbornik-receptov-dlya-professionalov-cd-rom-k-getc-p-litvin-e-beron

Здравствуйте,

я - школьный учитель - сделал БД Access 2013 для медицинских работников школы (одна из задач -- отбор учеников, родившихся в том или ином месяце). Все работает. Но в одном из подразделений школы (к нам присоединили и другие школы) компьютеры старые и старый Access. Для них я на базе имевшейся у меня БД .mdb создал эту медицинскую путем импорта всех объектов из 2013. На старом Access все процедуры обработки событий не работают (без сообщений об ошибках или т.п.). Макросы (естественно -- ?) работают.
Что можно (нужно) сделать? Спасибо.
Дмитрий

http://www.sql.ru/forum/1191881/v-bd-formata-mdb-ne-rabotaut-procedury-obrabotki-sobytiy-importirovannye-iz-bd-accdb

Посмотрите пожалуйста, правильно ли я расставил ключи и связи. На всякий случай добавил исходник (Access.rar)

Само задание:


Разработать прикладное программное обеспечение деятельности регистратуры ведомственной поликлиники.
Работники регистратуры организуют запись пациентов на прием к врачам поликлиники. Так как поликлиника ведомственная, медицинское обслуживание работников предприятия – бесплатное (за счет средств предприятия).
«Посторонние» пациенты также могут воспользоваться услугами поликлиники, полностью оплатив затраты на лечение. Определение стоимости лечения и выдача платежных документов для таких больных входит в круг обязанностей работников регистратуры. Врач ведет прием всегда в одном кабинете. Приемные дни занесены в расписание работы поликлиники.
На каждого пациента в регистратуре заводится карточка. В начале приема карточки больных, записавшихся на прием, доставляются работником регистратуры в кабинет врача.

http://www.sql.ru/forum/1191840/proverit-pravilno-li-rasstavleny-kluchi-i-svyazi

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

http://www.sql.ru/forum/1191809/kak-sdelat-dvoynuu-filtraciu-v-lentochnoy-forme

Доброго времени суток! Нужна помощь со следующим заданием:

Начисление происходит по правилам: если нет двоек, то студент получает базовую стипендию; без троек- полторы базовых; отличник- 2 базовых.
Кроме того, все студенты получают надбавку за питание.
Студенты, имеющие льготы(сироты, с детьми, чернобыльцы и пр.), получают всегда 2 базовых стипендии, независимо от успеваемости.

Разработать информационную систему, выполняющую следующие функции:

Учёт континенгента студентов по группам;

Ежемесячное начисление студентам стипендии с возможностью просмотра на экране результатов начисления по группам;

Формирование и печать стипендиальной ведомости.

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

В данный момент думаю над тем, как заполнять таблицу сессия. Делаю запрос на добавление полей% из таблицы Студенты в таблицу Сессия

http://www.sql.ru/forum/1191797/nachislenie-stipendii

Всем привет. Помогите чайнику, блуждаю уже три дня. есть две таблицы с данными продаж (вложил). Нужно запросом эти продажи сложить подневно. Когда за один день запись одна - все складывает корректно, но если их несколько (а в реальности их несколько) начинаются чудеса и непонятные цифры.

Выложу кратко структуру, может кто сразу пойдем без заглядывания во вложение.
Таблицы: Таблица1:
Код Дата Продажи
1 01.12.2015 50000
2 02.12.2015 36000
3 30.11.2015 10000
4 01.12.2015 3000
5 01.12.2015 500

Таблица 2:

Код Дата Продажи
1 01.12.2015 50000
2 02.12.2015 36000
4 30.11.2015 10000
5 29.11.2015 10000
6 29.11.2015 5000
7 01.12.2015 4000
8 02.12.2015 4000

Запрос:

SELECT Таблица1.Дата, Sum(Таблица1.Продажи+Таблица2.Продажи) AS Всего
FROM Таблица1, Таблица2
WHERE Таблица1.Дата=Таблица2.Дата
GROUP BY Таблица1.Дата
HAVING (((Таблица1.Дата)>=#12/1/2015#)) AND (((Таблица1.Дата)<=#12/31/2015#));

Что он вернул:

Дата Всего
01.12.2015 269000
02.12.2015 112000

А должно быть:

Дата Всего
01.12.2015 107500
02.12.2015 76000

http://www.sql.ru/forum/1191771/summirovat-podnevno-iz-raznyh-tablic

Acc2003. Есть простенький код, вида

            DoCmd.SetWarnings False
            DoCmd.RunSQL "DELETE * FROM " & strImportTable
            DoCmd.SetWarnings True
            DoCmd.TransferText acImportDelim, "spec_HomeCredit_TXT", strImportTable, strInputFileName
            DoCmd.SetWarnings False
            DoCmd.RunSQL "UPDATE " & strImportTable & " SET PostalType = 'NOR'"     'normal package
            DoCmd.SetWarnings True

Потом эти данные разбираются на заголовок, данные и подпись и обрабатываются в на сервере в трансакции, и, допустим, падают с rollback'ом. И ВСЁ!!! Второй раз этот код безнадёжно виснет на строчке DoCmd.TransferText Причём окончательно и бесповоротно - больше этот код из этой MDB не работает, более того, если создать пустой файл и импортировать в него всё, то этот код опять же не работает! Работает только оригинальная версия, на которой этот код запускается впервые 8-о Причём, даже если просто попытаться запустить этот кусок кода 2 раза, второй запуск виснет наглухо, и, опять же, в этом файле аццесса уже всегда будет виснуть. При зависании внизу экрана появляется строка статуса импорта, как будто там не 10 строчек, а 100500, а импортировалось только 2%, и она не двигается.

ЧТО ЗА ###ня?!?

http://www.sql.ru/forum/1191766/zavisaet-docmd-transfertext

Мир Вам!
Есть проблемка! Применяю Dsum к моей здоровенной базе а она думает по пол года! Какая есть более быстрая альтернатива Dsum?
Для примера прикладываю файл.

http://www.sql.ru/forum/1191646/est-li-alternativa-dsum

Добрый день,

подскажите пожалуйста, можно ли в Access 2010 импортировать несколько строк в одну стандартными инструментами ?

Например:

Last PO 4511098696 00720 dtd 15.02.2011
1001236502 ТРУБКА,ФИКС,УТЯЖЕЛИТЕЛ,SLB,D080-0005-601 H15 10XXXX
12574313 00010 10,00 ЕД D 20.07.2011 RU25 2596
B U NB 20.05.2011 M06
Last PO 4511098696 00200 dtd 15.02.2011
1001121692 ПР-ЛАЙЗЕР,R-ПЗТ-PUMP-387,ТЕХНОПРОТЕКТ H15 10XXXX
12574315 00010 30,00 ЕД D 20.07.2011 RU25 2596
B U NB 20.04.2011 M06
Last PO 4511098696 00490 dtd 15.02.2011
1001003862 ТЕЛЕМЕТРИЯ НАЗЕМ,SLB,100189002,UNICONN H15 10AAAA
12574319 00010 10,00 ЕД D 20.07.2011 RU25 2596
B U NB 20.05.2011 M06
Last PO 4511098696 00090 dtd 15.02.2011
1000960850 СЕКЦИЯ НАСОСА,БОРЕЦ,10.1ЭЦНМИК5А-320(5М) H15 10DGBA
12769890 00010 1,00 ЕД D 20.06.2011 RU25 2596
N U NB 21.03.2011 M06

Должно получиться в приложенном файле


Спасибо !

http://www.sql.ru/forum/1191605/import-neskolkih-strok-v-odnu

База отдельно, приложение отдельно. Через приложение надо чтобы на некоторые таблицы можно было редактировать, на некоторые таблицы только для чтения. Возможно ли это?

http://www.sql.ru/forum/1191531/svyazat-s-nekotoroy-tablicoy-bazy-akses-tolko-dlya-chteniya

Прошу помочь решить задачу:
Есть файл1 базы данных MS Access (.accdb) где хранятся данные (таблицы);
Есть файл2 базы данных MS Access (.accdb) - приложение, интерфейс пользователя (формы, основанные только на adodb.Recordset)
При выводе формы, содержащей элементы управления подчиненных форм, в режим просмотра, а также и на печать данные главной формы выводятся, а данные подчиненных форм не выводятся (возникает ошибка, Access пишет, что не может найти источник данных и предлагает установить свойство форм Recordsource. Но ведь это свойство формами не используется, а данные задаются через свойство форм Recordset).
Каким образом полноценно выводить в режим просмотра и на печать (на бумагу) главную форму, включая данные в элементах подчиненных форм (чтобы были видны данные подчиненных форм)?

Заранее благодарен.

http://www.sql.ru/forum/1191483/pechat-podchinennoy-formy-osnovannoy-na-adodb-recordset-ms-access

Силы на исходе. не понять как правильно объявить массив.

Dim i As Integer
Dim j, pos, k As Integer
Dim p As Integer
Dim txt
Dim code
Dim stok As String
Dim lt As Integer

1 Private Sub Кнопка5_Click()
2   Dim tmp
3   txt = text1.Value
4    lt = Len(txt)
5     'MsgBox (lt)
6    txt = LCase(txt)
7    MsgBox (txt)
8    k = CInt(Int((10 * Rnd()) + 1))
9    'MsgBox (k)
    
10    For i = 1 To lt
11    p = Abs(k - code)
12    tmp = Mid(txt, i, 1)
13    code = InStr(p, bl, tmp)
14    MsgBox (CStr(code))
15    Next i
16    stok = ""
17    For i = 1 To lt
18        stok = stok & CStr(code(i))
19        Next
20      MsgBox (stok)
21    End Sub

Ставлю code as long, вылезает Expected array в 18 строке.
14ю использую просто для просмотра(убедиться что работает)

Помогите, пожалуйста!застряла на этом месте и дальше никак((((

http://www.sql.ru/forum/1191458/type-mismatch-kak-korrektno-obyavit-massivy

Здравствуйте, мне нужно сравнить между собой 2 строки(bl и txt) и в code записать позиции символов txt в строке bl.
Такой вариант выдает 0.
Не могу найти другое решение.
Помогите сочинить работающий код))Спасибо

Private Sub Кнопка_Click()

txt = text1.Value
lt = Len(txt)
' MsgBox (lt)

k = CInt(Int((1000 * Rnd()) + 1))
' MsgBox (k)

For i = 1 To lt
code = InStr(k, bl, txt, vbBinaryCompare)
Next

MsgBox (code)

End Sub

http://www.sql.ru/forum/1191410/kak-pravilno-sravnit-stroki-po-simvolno

Подкинули мне одну программку на доработку.
Разработчики во всю использовали стандартное контекстное меню для сортировки и фильтрации. А сейчас надо приспособить программу для работы в среде Access RunTime. А как известно в среде Runtime стандартные контекстные меню не работают. Надо писать своё. И ли садить на кнопки на форме.
Сортировку по столбцам я написал. Фильтрацию по выделенному значению или исключение выделенного значения - тоже. А вот по части строки не получается. Не знаю как сделать.

Для фильтрации использовал команды (это если на кнопки, а не на контекстное меню)

' фильтр по выделенному
    Screen.PreviousControl.SetFocus
    DoCmd.RunCommand acCmdFilterBySelection

' фильто - исключить выделенное
    Screen.PreviousControl.SetFocus
    DoCmd.RunCommand acCmdFilterExcludingSelection

' отключить фильтр по выделенному столбцу
    Screen.PreviousControl.SetFocus
    DoCmd.RunCommand acCmdRemoveFilterFromCurrentColumn

А что надо взять для фильтрации по части поля и по условию (ну там *раз*, >16, <=10)


-------------------------------------------------------------
А ты вложил уже свой кровный рубль в 50-ти миллиардное состояние Билла Гейтса?

http://www.sql.ru/forum/1191355/opyat-o-runtime-kontekstnom-menu-sortirovke-i-filtrah

В конструкторе таблиц попытался поставить строку счетчик
Выдало ошибку (на картинке). Какие есть способы поставить этот счетчик? общее кол-во строк - 3 919 532.

http://www.sql.ru/forum/1191305/kak-postavit-schetchik

Написал я года 3 назад небольшую программку для гостиницы и вёл потихоньку. Регистрация постояльцев, расчёт оплаты, формирование счетов, отчётов, аналитика и т.п. Ну и формирование отчётов в ФМС. Раньше принимали текстовые файлы в определённом формате, и всё было хорошо. А теперь вышел "Регламент информационного взаимодействия территориальных органов ФМС России с поставщиками учётных данных" от 05.03.2014. И пункте 5 этого регламента написано, что "Информационные пакеты создаются в формате XML с использованием XML Sxema (XSD)." Кто-нибудь сталкивался с этим? Попытка достать информацию о форматах не увенчалась успехом. С большим трудом удалось достать в УФМС архив этих XSD, причём битый. А там под 30 этих XSD на все случаи жизни. от оформлении утери паспорта до получения визы. УФМС на сотрудничество не идёт, утверждает, что мы не можем разобраться и настоятельно рекомендует приобрести их программу для формирования нужных отчётов. Для пользователей это двойная работа. Вносить одинаковые данные в две программы.

Может кто-нибудь что-нибудь подскажет,

-------------------------------------------------------------
А ты вложил уже свой кровный рубль в 50-ти миллиардное состояние Билла Гейтса?

http://www.sql.ru/forum/1191238/kto-nibud-formiroval-otchyoty-dlya-fms-v-xml

Всем привет.

Суть в следующем:

Есть таблица "Табель", с полями : Дата, отметка, объем, ФИО и табельный номер.

При создании запроса без условия просто выводятся все записи из таблицы.
При добавлении условия на табельный номер или на конкретный месяц (остальные условия не пробовал) почему то выводятся данные только за сегодняшнее число.

Запрос выглядит следующим образом:
SELECT Табель.Дата, Табель.Отметка, Табель.[Объем трудозатрат], Табель.[Табельный номер]
FROM Табель
WHERE (((Табель.[Табельный номер])="А6982"));

Выводит только одну запись (в таблице с таким табельным их много больше).
Как будто автоматически создается условие на сегодняшнюю дату, но его нигде нет.

http://www.sql.ru/forum/1191203/pomozhite-kto-chem-mozhet-gluk-pri-formirovanii-zaprosa-s-usloviem

Представим конкретную ситуацию:

Есть форма, в ней ListBox, в нем 2 столбца.
Задача: перебираем по очереди все элементы списка, при определенном значении поля(столбец1,строка(i)) текст в строке(i) красится в красный цвет.

For i =0 to Me.ListBox1.ListCount - 1

If Me.ListBox1.ItemData(i) = {Нужное значение} Then
Как тут Текст строки(i) сделать красным?
End If

Next i

Ситуация вторая:

Есть форма, в ней ListBox определенной ширины, в него попадают записи различной длины.
Задача: Настроить ListBox так, чтобы в зависимости от длины текста, строка ListBox-a расширялась и текст переносился, как например в Excel.

Сразу предвидя "популярные" ответы скажу:
Ссылки на подобные темы кидать ненужно, я их перелопатил уже миллион, там всегда тысяча страниц месива из букв и цифр и ничего более, в крайнем случае, лучшие из ответов это что-то типа "Вот моя программа, я ее писал с рождения, примерно уже 40 лет, там стопицот тясяч строчек, и где-то в ее недрах вы сможете откопать косвенное упоминание о решении этой проблемы" ну или главный соперник этого ответа по популярности это инструкция из 1-2 пунктов, где 70% текста это сленг и т.д.

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

http://www.sql.ru/forum/1191176/voprosy-o-vechnom-perenos-tekta-v-listbox-i-raskraska-teksta-v-nem-zhe