ReSQL.ru
     
powered by simpleCommunicator - 2.0.54     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Access и VBA, помогите!!!
7 сообщений из 7, страница 1 из 1
Access и VBA, помогите!!!
    #39358131
8ecause
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
8ecause
Гость
Ребята помогите, замучилась уже, ничего в ВБА особо не понимаю.
--Есть форма навигации, в ней есть вкладка "Закрепить КЛ за наставником".
--В ней мы выбираем ФИО стажера, на основании его должности подтягиваются в поле "Имя кл" контрольные листы, которые он может проходить согласно его группе должности.
--При выборе Контрольного листа, в Список подтягиваются все Наставники, они же преподаватели, которые могут преподавать данный Контрольный лист.
--А ниже есть подчиненная форма по перекрестному запросу, которая показывает нагрузку по преподавателям по-недельно.

Мне нужно, чтобы эта нагрузка фильтровалась в зависимости от значений попавших в Список, то есть чтобы в нагрузке отображались только те преподаватели, которые могут преподавать выбранный контрольный лист. Хелп хелппп!!!

У кого то нашла вот такую процедуру, при выборе из списка города, отображаются все жители которые там живут, и можно выбирать несколько городов по списку... но от недостатка ума никак не могу адаптировать к своему варианту:


Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Private Sub Town_AfterUpdate()
    Dim i, s, sel
    For Each i In Me.Town.ItemsSelected
        s = s & "," & Me.Town.Column(0, i)
    Next
    s = Mid(s, 2)
    sel = "SELECT Жители.*, Города.[Название города] FROM Города " _
    & " INNER JOIN Жители ON Города.[Код города] = Жители.[Код города] where true "
    If Len(s) > 0 Then
        sel = sel & " and Города.[Код города] in (" & s & ")"
    End If
    Me.Жители.Form.RecordSource = sel
End Sub


Базу сейчас приложу. не может прицепиться что то(
Модератор: Учимся использовать тэги оформления кода - FAQ
...
Рейтинг: 0 / 0
01.12.2016, 05:31
| Ответить | Цитировать | Написать  
Access и VBA, помогите!!!
    #39358243
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
базы мы так и не увидели

Модератор: Тема перенесена из форума "Visual Basic".
...
Рейтинг: 0 / 0
01.12.2016, 10:11
| Ответить | Цитировать | Написать  
Access и VBA, помогите!!!
    #39358272
8ecause
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
8ecause
Гость
...
Рейтинг: 0 / 0
01.12.2016, 10:43
| Ответить | Цитировать | Написать  
Access и VBA, помогите!!!
    #39358274
8ecause
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
8ecause
Гость
Shocker.Pro,
не получилось БД отправить, только картинку
...
Рейтинг: 0 / 0
01.12.2016, 10:43
| Ответить | Цитировать | Написать  
Access и VBA, помогите!!!
    #39358373
Фотография Tarasios
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tarasios
Участник
8ecause, сделайте сжатие базы, и заархивируйте. Возможно, по размеру не получается прикрепить.
...
Рейтинг: 0 / 0
01.12.2016, 12:40
| Ответить | Цитировать | Написать  
Access и VBA, помогите!!!
    #39358430
MrShin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MrShin
Участник
База accdb даже пустая в архиве не влезает в 150Кб. Конвертируйте, если получится в MDB. Не получится - выложите на стороннем сервере, а сюда ссылку.
...
Рейтинг: 0 / 0
01.12.2016, 13:22
| Ответить | Цитировать | Написать  
Access и VBA, помогите!!!
    #39358436
8ecause
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
8ecause
Гость
https://cloud.mail.ru/public/C1KY/JmTQBsmP4 выложила сюда
...
Рейтинг: 0 / 0
01.12.2016, 13:28
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Access и VBA, помогите!!!
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39358131&tid=1612921]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 44ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 359ms
total:  493ms
созд. / загр.: 493ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]