Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Помогите плз!  [new]
almaz85
Member

Откуда: москва
Сообщений: 299
Суть вот в чем.

есть форма КЛИЕНТ
есть таблица Клиент
есть форма [Ввод пароля]
на форме КЛИЕНТ записи из таблицы Клиент выводятся в ленточной форме.
также есть кнопка ПРОЕКТ
в таблице Клиент есть поле Proekt логическое.
в таблице КЛиент есть поле Menedger.
нужно сдлеать так, чтобы при нажатии на кнопку Начать работу на форме [Ввод пароля] и форма КЛИЕНТ открывалась с тем кол-вом записей, которое отвечает условию
Таблица Клиент. поле [Proekt]=Истина

Предполагаю, что надо сделать программно на VBA такую вот вещь...
Private Sub Proect_Click()

  Me.RecordSource = BasicSQL1
    Me.OrderBy = "Клиент.НАименование"
    Me.OrderByOn = True
    Me.Refresh
    DoCmd.Maximize
     '-------Доступ по проекту"---------
  BasicSQL1 = BasicSQL1 + "(1=2 "
  BasicSQL1 = BasicSQL1 + IIf(Me![Proekt], " OR [Клиент]![Proekt1]='5'", "")
  BasicSQL1 = BasicSQL1 + ") "
End Sub
17 янв 06, 15:09    [2262160]     Ответить | Цитировать Сообщить модератору
 Re: Помогите плз!  [new]
Программист-Любитель
Member

Откуда:
Сообщений: 16839
almaz85
Суть вот в чем.

в таблице Клиент есть поле Proekt логическое.
в таблице КЛиент есть поле Menedger.
нужно сдлеать так, чтобы при нажатии на кнопку Начать работу на форме [Ввод пароля] и форма КЛИЕНТ открывалась с тем кол-вом записей, которое отвечает условию
Таблица Клиент. поле [Proekt]=Истина

Private Sub Proect_Click()

  Me.RecordSource = BasicSQL1
    Me.OrderBy = "Клиент.НАименование"
    Me.OrderByOn = True
    Me.Refresh
    DoCmd.Maximize
     '-------Доступ по проекту"---------
  BasicSQL1 = BasicSQL1 + "(1=2 "
  BasicSQL1 = BasicSQL1 + IIf(Me![Proekt], " OR [Клиент]![Proekt1]=[b]'5'[/b]", "")
  BasicSQL1 = BasicSQL1 + ") "
End Sub


Как-то "логическое" с пятёркой не стыкуется.

Какие сущности и как они связаны ? Проект один или несколько ? Как связаны Проекты и Клиенты ? Один клиент может быть связан с несколькими проектами ?
17 янв 06, 15:28    [2262264]     Ответить | Цитировать Сообщить модератору
 Re: Помогите плз!  [new]
Программист-Любитель
Member

Откуда:
Сообщений: 16839
Эх, хотел '5' жирным выделить - промахнулся...
17 янв 06, 15:33    [2262289]     Ответить | Цитировать Сообщить модератору
 Re: Помогите плз!  [new]
almaz85
Member

Откуда: москва
Сообщений: 299
автор
Как-то "логическое" с пятёркой не стыкуется.

Какие сущности и как они связаны ? Проект один или несколько ? Как связаны Проекты и Клиенты ? Один клиент может быть связан с несколькими проектами ?


значит так.
Есть атблица КЛИЕНТ
пример
ООО "Ромашка" | телефон | адрес | логическое поле Proekt |
так вот
"5"- это ошибка... должно быть истина/ложь
суть в том, что у одного клиента одна галочка в поле Proekt и он не может иметь енсколько проектов...
Здесь проект, означает просто пометка... занчит клиент интеерсный...
17 янв 06, 16:19    [2262576]     Ответить | Цитировать Сообщить модератору
 Re: Помогите плз!  [new]
Программист-Любитель
Member

Откуда:
Сообщений: 16839
DoCmd.OpenForm "frmClient", acNormal, , "boolFlag=True", acFormEdit, acWindowNormal

Побрюзжу: Menedger, Клиент и КЛиент, Proekt
За счет сумбурности объяснение и талантливого выбора имен для полей вам удалось успешно отсрочить время получения правильной (?) подсказки.
17 янв 06, 16:27    [2262628]     Ответить | Цитировать Сообщить модератору
 Re: Помогите плз!  [new]
almaz85
Member

Откуда: москва
Сообщений: 299
Программист-Любитель
DoCmd.OpenForm "frmClient", acNormal, , "boolFlag=True", acFormEdit, acWindowNormal

Побрюзжу: Menedger, Клиент и КЛиент, Proekt
За счет сумбурности объяснение и талантливого выбора имен для полей вам удалось успешно отсрочить время получения правильной (?) подсказки.



Спасибки...
получилось... даже добавила еще функцию... ну да ладно..
а на счет "Побрюзжу"
странно, но что-то в этом есть знакомое...
17 янв 06, 17:03    [2262872]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить