Ðåáÿòà ïîìîãèòå, çàìó÷èëàñü óæå, íè÷åãî â ÂÁÀ îñîáî íå ïîíèìàþ.
--Åñòü ôîðìà íàâèãàöèè, â íåé åñòü âêëàäêà "Çàêðåïèòü ÊË çà íàñòàâíèêîì".
--Â íåé ìû âûáèðàåì ÔÈÎ ñòàæåðà, íà îñíîâàíèè åãî äîëæíîñòè ïîäòÿãèâàþòñÿ â ïîëå "Èìÿ êë" êîíòðîëüíûå ëèñòû, êîòîðûå îí ìîæåò ïðîõîäèòü ñîãëàñíî åãî ãðóïïå äîëæíîñòè.
--Ïðè âûáîðå Êîíòðîëüíîãî ëèñòà, â Ñïèñîê ïîäòÿãèâàþòñÿ âñå Íàñòàâíèêè, îíè æå ïðåïîäàâàòåëè, êîòîðûå ìîãóò ïðåïîäàâàòü äàííûé Êîíòðîëüíûé ëèñò.
--À íèæå åñòü ïîä÷èíåííàÿ ôîðìà ïî ïåðåêðåñòíîìó çàïðîñó, êîòîðàÿ ïîêàçûâàåò íàãðóçêó ïî ïðåïîäàâàòåëÿì ïî-íåäåëüíî.
Ìíå íóæíî, ÷òîáû ýòà íàãðóçêà ôèëüòðîâàëàñü â çàâèñèìîñòè îò çíà÷åíèé ïîïàâøèõ â Ñïèñîê, òî åñòü ÷òîáû â íàãðóçêå îòîáðàæàëèñü òîëüêî òå ïðåïîäàâàòåëè, êîòîðûå ìîãóò ïðåïîäàâàòü âûáðàííûé êîíòðîëüíûé ëèñò. Õåëï õåëïïï!!!
Ó êîãî òî íàøëà âîò òàêóþ ïðîöåäóðó, ïðè âûáîðå èç ñïèñêà ãîðîäà, îòîáðàæàþòñÿ âñå æèòåëè êîòîðûå òàì æèâóò, è ìîæíî âûáèðàòü íåñêîëüêî ãîðîäîâ ïî ñïèñêó... íî îò íåäîñòàòêà óìà íèêàê íå ìîãó àäàïòèðîâàòü ê ñâîåìó âàðèàíòó:
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 |
http://www.sql.ru/forum/1240886/access-i-vba-pomogite