-Ïîèñê ïî äíåâíèêó

Ïîèñê ñîîáùåíèé â rss_sql_ru_access_programming

 -Ïîäïèñêà ïî e-mail

 

 -Ïîñòîÿííûå ÷èòàòåëè

 -Ñòàòèñòèêà

Ñòàòèñòèêà LiveInternet.ru: ïîêàçàíî êîëè÷åñòâî õèòîâ è ïîñåòèòåëåé
Ñîçäàí: 16.03.2006
Çàïèñåé:
Êîììåíòàðèåâ:
Íàïèñàíî: 4


Access è VBA, ïîìîãèòå!!!

×åòâåðã, 01 Äåêàáðÿ 2016 ã. 05:31 + â öèòàòíèê
Ðåáÿòà ïîìîãèòå, çàìó÷èëàñü óæå, íè÷åãî â ÂÁÀ îñîáî íå ïîíèìàþ.
--Åñòü ôîðìà íàâèãàöèè, â íåé åñòü âêëàäêà "Çàêðåïèòü ÊË çà íàñòàâíèêîì".
--Â íåé ìû âûáèðàåì ÔÈÎ ñòàæåðà, íà îñíîâàíèè åãî äîëæíîñòè ïîäòÿãèâàþòñÿ â ïîëå "Èìÿ êë" êîíòðîëüíûå ëèñòû, êîòîðûå îí ìîæåò ïðîõîäèòü ñîãëàñíî åãî ãðóïïå äîëæíîñòè.
--Ïðè âûáîðå Êîíòðîëüíîãî ëèñòà, â Ñïèñîê ïîäòÿãèâàþòñÿ âñå Íàñòàâíèêè, îíè æå ïðåïîäàâàòåëè, êîòîðûå ìîãóò ïðåïîäàâàòü äàííûé Êîíòðîëüíûé ëèñò.
--À íèæå åñòü ïîä÷èíåííàÿ ôîðìà ïî ïåðåêðåñòíîìó çàïðîñó, êîòîðàÿ ïîêàçûâàåò íàãðóçêó ïî ïðåïîäàâàòåëÿì ïî-íåäåëüíî.

Ìíå íóæíî, ÷òîáû ýòà íàãðóçêà ôèëüòðîâàëàñü â çàâèñèìîñòè îò çíà÷åíèé ïîïàâøèõ â Ñïèñîê, òî åñòü ÷òîáû â íàãðóçêå îòîáðàæàëèñü òîëüêî òå ïðåïîäàâàòåëè, êîòîðûå ìîãóò ïðåïîäàâàòü âûáðàííûé êîíòðîëüíûé ëèñò. Õåëï õåëïïï!!!

Ó êîãî òî íàøëà âîò òàêóþ ïðîöåäóðó, ïðè âûáîðå èç ñïèñêà ãîðîäà, îòîáðàæàþòñÿ âñå æèòåëè êîòîðûå òàì æèâóò, è ìîæíî âûáèðàòü íåñêîëüêî ãîðîäîâ ïî ñïèñêó... íî îò íåäîñòàòêà óìà íèêàê íå ìîãó àäàïòèðîâàòü ê ñâîåìó âàðèàíòó:


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


 

Äîáàâèòü êîììåíòàðèé:
Òåêñò êîììåíòàðèÿ: ñìàéëèêè

Ïðîâåðêà îðôîãðàôèè: (íàéòè îøèáêè)

Ïðèêðåïèòü êàðòèíêó:

 Ïåðåâîäèòü URL â ññûëêó
 Ïîäïèñàòüñÿ íà êîììåíòàðèè
 Ïîäïèñàòü êàðòèíêó