добрый всем знатокам.

прошу подсказать в чем может быть проблема
есть форма, на ней есть combobox. Заполнен 12-ю значениями. При этом выбраны галочками в разных записях разное кол-во значений. В данном случае - языков.
Прописал цикл на событие AfterUpdate

Private Sub proсРасчетГрафКолво()
Dim varКолвоЯзыков As Integer, I As Long

For I = 0 To [cmbЯзыки].ListCount - 1
If [cmbЯзыки].Selected(I) = True Then
varКолвоЯзыков = varКолвоЯзыков + 1
End If
Next I

[fldКолвоЯзыков].Value = varКолвоЯзыков

End Sub

Работает как надо, после выбора галочками нужных языков и нажатия ОК на combobox, в зеленой графе указывается подсчитанное кол-во языков.
Требуется чтобы при смене записей обновлялось поле "Кол-во языков", т.к. его значение нигде не хранится, а просто выводится для информации. Прикручиваю тот же код на Form_Current - не работает. Смотрю по отладчику, строка [cmbЯзыки].Selected(I) на каждой записи цикла дает значение НОЛЬ, соответственно, в ячейке отображается общее кол-во НОЛЬ. В чем может быть проблема? как подправить чтобы работало на событии Form_Current.

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

http://www.sql.ru/forum/1304524/podschet-vybrannyh-v-combobox

День добрый. Делаю базу данных магазина, в ней есть таблица с расписанием. По ней сделала отчёт, формирующийся по запросу - расписание для заданного сотрудника на месяц. Теперь надо подсчитать и вывести в отчёте количество дней, которые должен отработать сотрудник в месяц. Но в расписании у меня разделение на смены, то есть в отчет выводится примерно так
01.01.2018 1 смена
01.01.2018 2 смена
02.01.2018 1 смена
Количество смен легко посчитать обычным каунтом, но как посчитать в отчёте именно уникальные дни? Я примерно понимаю, как написать это на sql, но не понимаю, как впихнуть это именно в отчёт, чтобы подсчитывалось в нём. Куда именно надо вставить текст запроса? И можно ли вообще это осуществить.
Спасибо.

http://www.sql.ru/forum/1304495/podschyot-unikalnyh-znacheniy-v-otchyote

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

http://www.sql.ru/forum/1304480/esli-pole-pustoe

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

Планируется наличие четырех групп пользователей:
1. С полным доступом
2. Аналитики - работа с отчетами (непрямая, через формы)
3 и 4. Регистраторы - непосредственно наполняют базу данных, они двух типов, при этом большая часть регистрируемых данных одинакова, различия в дополнительных данных, т.е. в принципе буду наполнять одну основную таблицу, но некоторые поля будут различаться.

Хотелось бы услышать ваше мнение о наиболее оптимальном способе предоставления доступа в применении к данной ситуации.

Сам вообще думал:
1. создавать разные формы для каждого типа и в зависимости от введенного пароля менять свойства доступа.

или

2. На главной форме опять же по результату проверки пароля менять свойство Visible элементов управления.

Данная база - первый проект, больший чем таблица + 2 формы + отчет, так что прошу сильно не критиковать идеи ))))

http://www.sql.ru/forum/1304472/organizaciya-dostupa

Доброго дня, форумчане! Просьба помочь с решением проблемы.
Начал делать базу данных для печати дополнительных соглашений из Access путем вывода данных с формы в шаблона Word (данные заполняются в шаблон из формы "Печать додугод").
Вроде бы все шло хорошо (данные выводились в шаблон так как надо), пока не столкнулся с необходимостью ввода на форме номера и даты допсоглашения.
Т.к. у одного и того же перевозчика может быть несколько соглашений, нужно добавить на форму два поля - номер и дата соглашения, с возможностью ручного ввода данных в эти поля и чтобы они сохранялись в таблице "Додугоди". Ну и соответственно выводились бы в шаблон потом. Попал в ступор с решением этой задачки.
Заранее благодарен за советы и помощь.

http://www.sql.ru/forum/1304471/sozdanie-formy-dlya-vyvoda-dannyh-iz-access-v-shablon-word

привет такая проблема есть 2 таблицы отличающиеся количеством столбцов нужно сравнить по 3 столбцам (фамилия, дата, номер называются в обоих таблицах данные стоблюцы одинаково) и если запись из второй таблице есть в первой то в первой таблице в логическом поле ставится значение истина,
помогите пожалуйста а то чета с этим не могу справиться

http://www.sql.ru/forum/1304395/access-sravnenie-tablic-i-zapis-rezultata

Добрый день. Есть таблица TAB1 ее необходимо преобразовать в TAB2 см. снимок. Подскажите, пжл, такое возможно в Access? Если да то как?
Спасибо.

http://www.sql.ru/forum/1304387/kak-iz-tablici-dannyh-sdelat-massiv

Добрый час!
Подскажите с запросом когда в условие необходимо сравнение текстовых значений полей

Text = "DELETE * FROM tbl_tematika WHERE Kod_potoka NOT LIKE " & Forms![frm_uchebnye_potoki]![frm_sub_ tbl_uchebnye_potoki]!Kod_potoka & " and ID_uchebnye_potoki=" & Forms![frm_uchebnye_potoki]![frm_sub_ tbl_uchebnye_potoki]!ID_uchebnye_potoki

Я про место где Kod_potoka сравнивается со строковым значением из формы ?

http://www.sql.ru/forum/1304375/podskazhite-s-zaprosom-kogda-v-uslovie-neobhodimo-sravnenie-tekstovyh-znacheniy-poley

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

У меня вход сделан через логин и пароль, а именно:

_{Private Sub ok_Click()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("Select * from tblusersotpp where username='" & txtUser & "'")
If rst.RecordCount <= 0 Then
MsgBox "Введите ФИО", vbCritical
txtUser.SetFocus
Else
If rst("password") <> txtPassword Then
MsgBox "Введите пароль", vbCritical
txtPassword.SetFocus
Else
DoCmd.Close
DoCmd.OpenForm "Главное меню ОТПП"
End If
End If
End Sub}

Как мне сделать, что бы при изменении в строке табличной формы появилась информация кто изменял запись?
Надо создавать отдельное имя в поле в таблице? А в форме скрытое поле надо ставить?

http://www.sql.ru/forum/1304355/kto-izmenyal-zapis

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

Вот что происходит.

База разделенная.
Файл данных - на одном компьютере, файлы интерфейса - один на машине вместе с данными, остальные на других машинах, в других помещениях.
Всего было задействовано 5-7 компьютеров (сама не видела, это в другом городе).
В течение нескольких недель все нормально работало.
Но с понедельника подключили еще один кабинет, для чего добавили его в сеть (до этого с ним связи не было).
Это делал их системщик.
И началось.
Теперь каждый день по нескольку раз при попытке распечатать документ с "сетевой машины" происходит порча файла с данными (но не каждый раз).
Шлют мне файл, я восстанавливаю, отсылаю обратно.
Пока что файл восстановлению поддается.

Что это может быть, в чем причина?
Понимаю, что "после этого" не значит "вследствие этого".
Но пока мои подозрения падают на сеть, хотя системщик (по телефону и по почте) с этим не соглашается.

Пожалуйста, помогите с поиском версий.
Вот какое сообщение выдается при открытии поврежденного файла (до восстановления):

http://www.sql.ru/forum/1304338/portitsya-fayl-dannyh-iz-za-seti

Всем привет!
Есть база Access 2003, с которой работают уже 11 лет. С некоторых пор начались проблемы со статистикой в результате неправильного или не совсем корректного заполнения базы данными.
Например, в таблице "Заказы" в столбец "ФИО", куда заносили данные клиентов, стали заносить и названия дилеров. Хотя раньше с дилерами немного по другому работали.
В базе есть таблица "Дилеры", с которыми организация работает. Из этой таблицы в выпадающем списке в нужных формах названия дилеров подставляются в записи.
Проблема только в статистике.
При обработке таблицы "Заказы" в списки попадают и дилеры, чего не должно быть.
Как отфильтровать этих дилеров?

SELECT Заказы.ФИО
FROM Заказы
WHERE (((Заказы.ФИО)<>(SELECT Дилеры.НазваниеДилера FROM Дилеры)));

Что-то типа такого...
На деле не работает. Появляется сообщение, что подчиненный запрос должен возвращать не более одной записи.
А как правильно задать весь список в исключение?

http://www.sql.ru/forum/1304331/otfiltrovat-opredelennyy-spisok

На SQLServer есть таблица tblTest с нужными полями и primary key и timestamp.
Пусть есть простое представление viewTest с выборкой всех полей(прямо звёздочкой) и простейшим фильтром.
В MSS Management Studio таблица и представление обновляемы.
При связывании их в mdb, таблица обновляема, представление - нет.

Если представление связывать интерактивно и указать на PK вручную - оно обновляемо.
Если представление связывать програмно и выполнить в MDB CREATE INDEX [pk] ON viewTest ([pkviewTest]) WITH PRIMARY; - оно тоже обновляемо.
Т.е. похоже что проблема в неспособности Access самому определить первичный ключ, без чего таблицу/представление не обновить.
Создание на сервере представления с опцией with view_metadata проблемы не решает.

Для таких простых представлений определить програмно и указать первичный ключ - не очень трудно.
Но может есть возможность сделать так, чтобы Access мог определять это автоматически как делает это SQLServer и его Management Studio ?

http://www.sql.ru/forum/1304330/poluchit-obnovlyaemuu-tablicu-pri-svyazi-mdb-s-view-na-sqlserver

Добрый день!
В интернете нет ответа, обращаюсь к вам - гуру Accessa.

Подключил Access к базе Mysql через ODBC драйвер.
Все работает отлично.

Сегодня понял, что текстовое поле с типом VARCHAR заменил на TEXT, так как размер нужен более 255 символов.
Теперь возникла проблема:
1. При открытии таблиц в Access пишет все записи #удалены и только после принудительного обновления f5 таблица отображает данные. Скрин http://prntscr.com/l9rzzp
2. Запросы: если убрать фильтры, то работают норм, если применить фильтр при загрузке (!даже не потекстовому полю), то так же пишет записи #eудалены.

Вопрос 1: почему при работе с типом поля TEXT данные не загружаются при открытии таблицы?
Подразумеваю, что данные в TEXT слишком большие и запрос обрубается, тогда где увеличить время ожидания данных с Mysql?

http://www.sql.ru/forum/1304326/oshibka-pri-rabote-s-text-i-bazoy-mysql

Привет, форумчане!

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

Заранее благодарю!

http://www.sql.ru/forum/1304323/fiksaciya-vremeni-izmeneniya-polya-v-tablice-bez-form

Здравствуйте, уважаемые форумчане!
Помогите, пожалуйста, разобраться как добавить файл ".png" в поле таблицы с типом данных "вложение" програмно. Этот же файл через встроенный интерфейс загружается, а мне надо програмно.
Пытался сделать так, но выдает ошибку: "ошибочный тип данных поля":

Dim dbsRent As Database
Set dbsRent = CurrentDb
Dim rstAdress As DAO.Recordset

Set rstAdress = dbsRent.OpenRecordset("Адреса")

rstAdress.AddNew
rstAdress.Fields("Вложения").LoadFromFile CurrentProject.Path & "\Map.png"
rstAdress.Update

Что я делаю не так?

http://www.sql.ru/forum/1304283/dobavlenie-fayla-v-pole-tablicy-vlozheniya

Всем здравствуйте.
У нас в компании с давних времен работали в Аксесс XP (2002). Сейчас всем уже надоело это старье и светит обновление на новые версии. Сейчас для теста пробую в Аксе 2007 все наши программы. По умолчанию у нас во всех табличных формах прописывались автоматические размеры колонок, и какое-то основное поле растягивалось на всю форму, это обеспечивало отображение всех столбцов на любом экране и размере формы.
В старой версии аксесса при установке параметра поля ColumnWidth = -2 оно в итоге принимало определенное значение и потом можно было следующей манипуляцией вычислить ширину столбца
ctrl3.ColumnWidth = InsideWidth - ctrl1.ColumnWidth - ctrl2.ColumnWidth
а в 2007 уже это значение ColumnWidth = -2 => -2
Сейчас все формы с этим условием, как уже можно понять, растягивают основную колонку на ширину больше видимой области в форме, потому что прибавляют 2 твипа от каждого столбца.

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

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

http://www.sql.ru/forum/1304236/kakaya-shirina-u-columnwidth-2

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

Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer)
If ApplyType = acShowAllRecords Then
Me.OrderBy = "... тут как сортировать"
Me.OrderByOn = True
End If
End Sub

То есть я нажимаю на панели инструментов кнопку "Удалить фильтр", и дальше надо, чтобы пересортировал.

Но это не работает почему-то. А если эти же строки

Me.OrderBy = "... тут как сортировать"
Me.OrderByOn = True

присвоить кнопке в форме, то по нажатию кнопки сортировка работает. Но мне не надо по нажатию кнопке в форме, а надо по нажатию кнопки "Удалить фильтр" на панели инструментов.

Где я ошиблась, подскажите, пожалуйста.

http://www.sql.ru/forum/1304209/sortirovka-posle-otmeny-filtra

Имеется функция

Public Function FUN_IMEEM_LI_ZAPISI_K_VIGRUZKE(KADA As String, PAY_VIDS As String) As Boolean

Dim MYSQL As String
Dim SKOKA As Integer
Dim rst As Object
Dim DB As Object

MYSQL = "SELECT TRANZAKTION_VSE_V_OFISE_TBL.* " _
& " FROM TRANZAKTION_VSE_V_OFISE_TBL " _
& " WHERE (((TRANZAKTION_VSE_V_OFISE_TBL.FOR_PAYMENT) > 0) And ((TRANZAKTION_VSE_V_OFISE_TBL.PAY_VID) " & PAY_VIDS & ") And ((TRANZAKTION_VSE_V_OFISE_TBL." & KADA & ") <> '1') And ((TRANZAKTION_VSE_V_OFISE_TBL.NAL_BEZNAL) Like '*')) "

Set DB = CurrentDb
Set rst = DB.OpenRecordset(MYSQL)

 SKOKA = 0
If rst.RecordCount <> 0 Then
  rst.MoveLast
  rst.MoveFirst
 SKOKA = rst.RecordCount
End If

   If SKOKA <> 0 Then
       FUN_IMEEM_LI_ZAPISI_K_VIGRUZKE = True
   Else
         FUN_IMEEM_LI_ZAPISI_K_VIGRUZKE = False
   End If

End Function

------------------------------------------------------------------------
обращаясь к функции

If FUN_IMEEM_LI_ZAPISI_K_VIGRUZKE("V_INARI", "='ЖКХ'") = True Then
 Forms("ADMIN_MANEGER_FRM").Controls("SPISOK_POSTUPLENIY_PLATEZEY").AddItem "Имеются записи ЖКХ"
End If

получаем ответ "Имеются записи ЖКХ"
=================================================

Как обратиться к функции, что бы узнать есть ли записи, где
TRANZAKTION_VSE_V_OFISE_TBL.PAY_VID " <> 'ГАЗ' And <> 'Ксерокс' And <> 'Снятие заглушки'"
то есть задать условие наподобии:

PEREM_PAY_VID = " <> 'ГАЗ'  And <> 'Ксерокс' And <> 'Снятие заглушки'"

If FUN_IMEEM_LI_ZAPISI_K_VIGRUZKE("V_INARI", PEREM_PAY_VID) = False Then
        MESS "Для выгрузки нет данных. "
       Exit Function

End If

У меня в результате выдаётся ошибка
Ошибка синтаксиса (пропущен оператор) в выражении запроса
Спасибо за ответ.

http://www.sql.ru/forum/1304179/uslovie-otbora-v-zaprose

Добрый вечер.
Пытаюсь создать БД для учёта рабочего времени сотрудников, никак не могу понять одну проблему: проект может состоять из нескольких этапов, а каждому этапу может соответствовать определённый перечень работ, но не каждая работа может быть выполнена на любом этапе. Соответственно, в таблицу "Учёт времени" могут подставляться только те виды работ, которые соответствуют уже введённому в строку этапу проекта.
Как в этом случае правильно настроить связи и подстановку?

http://www.sql.ru/forum/1304177/kak-pravilno-nastroit-svyazi

Всем привет. Углубляюсь в программирование в Access по Литвину и Гетцу. Данное издание за основу берет Access 2002 и соответственно ADO 2.1.
В Access 2007 подключается целая куча библиотек и мне не очень ясно какую целесообразнее использовать и велика ли разница в синтаксисе, а также стоит ли использовать ADOX.

http://www.sql.ru/forum/1304172/biblioteki-vba-v-access2007