Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Access
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.07.2013, 10:52   #21
duh_si
Форумчанин
 
Регистрация: 18.04.2013
Сообщений: 118
По умолчанию

в примере все работает, но когда переношу на основную программу в другом запросе не работает. При добавление таблицы Roli_emp (хотя изначально ее в запросе не было) возникает вот такая ошибка,(см.рис)... может есть способ как изночально было, сделать в публичную функцию
Изображения
Тип файла: jpg зап.JPG (79.6 Кб, 149 просмотров)
duh_si вне форума Ответить с цитированием
Старый 09.07.2013, 12:13   #22
Myhaylo
Форумчанин
 
Регистрация: 19.07.2012
Сообщений: 520
По умолчанию

Или избавьтесь от "стрелочки" в виде связи (перейти к номеру 1 - INNER JOIN), или свяжите EmployerProject.Сотрудник и Roli_Emp.Сотрудник (один к одному).
Окупант, руки прочь от Украины!!! Слава Героям!
Myhaylo вне форума Ответить с цитированием
Старый 09.07.2013, 14:26   #23
duh_si
Форумчанин
 
Регистрация: 18.04.2013
Сообщений: 118
По умолчанию

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

Отправил вам на почту БД
duh_si вне форума Ответить с цитированием
Старый 09.07.2013, 15:20   #24
Myhaylo
Форумчанин
 
Регистрация: 19.07.2012
Сообщений: 520
По умолчанию

1. Замените содержимое модуля "Модуль2" на:

Option Compare Database
Option Explicit

Public Function CurrentUser() As Long
CurrentUser = TempVars!namel
End Function

2. Запрос "ДоступныеПроектыПослеАвторизац ии":

SELECT [Employee-Projects].Проект, Employee.Фамилия, [Employee-Projects].Сотрудник
FROM Employee RIGHT JOIN [Employee-Projects] ON Employee.Код = [Employee-Projects].Сотрудник
WHERE ((([Employee-Projects].Сотрудник)=CurrentUser()));
Окупант, руки прочь от Украины!!! Слава Героям!
Myhaylo вне форума Ответить с цитированием
Старый 09.07.2013, 15:40   #25
Myhaylo
Форумчанин
 
Регистрация: 19.07.2012
Сообщений: 520
По умолчанию

3. "ПОЛНЫЙ ЗАКАЗ С ФИЛЬТРОМ":

SELECT [Employee-Projects].Код, [Employee-Projects].Проект AS project, Employee.Фамилия AS person, ПОЛНЫЙЗАКАЗ.Поставщик, ПОЛНЫЙЗАКАЗ.Заказ.Номер, ПОЛНЫЙЗАКАЗ.Дата, ПОЛНЫЙЗАКАЗ.Статус, ПОЛНЫЙЗАКАЗ.ВЗаказе.Номер, ПОЛНЫЙЗАКАЗ.ВЗаказе.Заказ, ПОЛНЫЙЗАКАЗ.[Начало производства], ПОЛНЫЙЗАКАЗ.[Окончание производства], ПОЛНЫЙЗАКАЗ.[Начало доставки], ПОЛНЫЙЗАКАЗ.[Окончание доставки], ПОЛНЫЙЗАКАЗ.Проект, ПОЛНЫЙЗАКАЗ.НомерЗаказа, ПОЛНЫЙЗАКАЗ.[Номер счета], ПОЛНЫЙЗАКАЗ.[Дата счетеа], ПОЛНЫЙЗАКАЗ.СтатусПФ, ПОЛНЫЙЗАКАЗ.СтатусОбразец, ПОЛНЫЙЗАКАЗ.СтатусОплат, ПОЛНЫЙЗАКАЗ.[Last-Принято_], ПОЛНЫЙЗАКАЗ.НомерЗаказаУпоставщика, ПОЛНЫЙЗАКАЗ.[Окончание доставки План], ПОЛНЫЙЗАКАЗ.LeadMan, ПОЛНЫЙЗАКАЗ.Подпроект, ПОЛНЫЙЗАКАЗ.[Подтв произ], ПОЛНЫЙЗАКАЗ.[Подтв оконч], ПОЛНЫЙЗАКАЗ.[Подтверж загр], ПОЛНЫЙЗАКАЗ.[Подтвержд дост], ПОЛНЫЙЗАКАЗ.OrderMan, ПОЛНЫЙЗАКАЗ.Фамилия
FROM ПОЛНЫЙЗАКАЗ INNER JOIN (Employee INNER JOIN [Employee-Projects] ON Employee.Код = [Employee-Projects].Сотрудник) ON ПОЛНЫЙЗАКАЗ.Проект = [Employee-Projects].Проект
WHERE ((([Employee-Projects].Сотрудник)=CurrentUser()));
Окупант, руки прочь от Украины!!! Слава Героям!
Myhaylo вне форума Ответить с цитированием
Старый 09.07.2013, 15:46   #26
duh_si
Форумчанин
 
Регистрация: 18.04.2013
Сообщений: 118
По умолчанию

Myhaylo Спасибо за помощь
duh_si вне форума Ответить с цитированием
Старый 09.07.2013, 17:06   #27
duh_si
Форумчанин
 
Регистрация: 18.04.2013
Сообщений: 118
По умолчанию

Это уже какой то бред начинается, все сделал, все собрал во едино, все работает, но как только я закрыл программу и потом снова запустил(Делал проверку на вшивость) как только начинаю логиниться при нажатии кнопки ОК появляется ошибка, ошибка в модуле2 на выделенной строке
Изображения
Тип файла: jpg ошибка.JPG (100.4 Кб, 129 просмотров)
duh_si вне форума Ответить с цитированием
Старый 10.07.2013, 12:57   #28
Myhaylo
Форумчанин
 
Регистрация: 19.07.2012
Сообщений: 520
По умолчанию

В форме login перед строкой

DoCmd.OpenForm "Главная"

добавьте

TempVars.Add "namel", Forms!login!sLogin.value
Окупант, руки прочь от Украины!!! Слава Героям!
Myhaylo вне форума Ответить с цитированием
Старый 10.07.2013, 13:45   #29
duh_si
Форумчанин
 
Регистрация: 18.04.2013
Сообщений: 118
По умолчанию

Myhaylo низкий вам поклон)) очень помогли
duh_si вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблемы с кодом MrFlaSh Microsoft Office Access 4 03.06.2013 20:49
проблемы с кодом sergio11 C# (си шарп) 2 07.03.2011 19:14
Проблемы с кодом schtefan PHP 1 22.11.2010 13:46
Проблемы с кодом __Demon__ Win Api 0 13.11.2010 17:49