Ïîíåäåëüíèê, 23 Íîÿáðÿ 2015 ã. 02:00
+ â öèòàòíèê
Ïîäñêàæèòå ïîæàëóéñòà, êàê îðãàíèçîâàòü ñëåäóþùåå: Åñòü íåñêîëüêî òàáëèö â áàçå. Íà ôîðìå åñòü ýëåìåíò ïîëå ñî ñïèñêîì, ãäå ïðåäñòàâëåíû âñå òàáëèöû. Íà ýòîé æå ôîðìå åñòü ñïèñîê, âûâîäÿùèé ïîëÿ òàáëèöû. Íóæíî ÷òîáû ïîñëå âûáîðà òàáëèöû â ïîëå ñî ñïèñêîì ïîÿâëÿëèñü ðàçëè÷íûå äàííûå â ñïèñêå, â çàâèñèìîñòè îò âûáðàííîé òàáëèöû
Âûáèðàþòñÿ äàííûå â ñïèñîê
Private Sub ÑïèñîêÊëèåíòîâ_AfterUpdate()
Dim s
s = "select Äàòà, ÍîìåðÊîðÑ÷åòàÊëèåíòà,ÈííÊîíòðàãåíò,Êðåäèò, Äåáèò, Ïðèìå÷àíèÿ from Ëèñò1 where Êîíòðàãåíò='" & Me.ÑïèñîêÊëèåíòîâ.Column(0) & "'"
Me.Ñïèñîê.RowSource = s
Âûáèðàþòñÿ òàáëèöû èç áàçû
Private Sub ÏîëåÑîÑïèñêîì74_AfterUpdate()
Dim s1
s1 = "select Name from Çàïðîñ3 "
Me.ÏîëåÑîÑïèñêîì74.RowSource = s1
Ïðîáîâàë ÷òî-òî òàêîå - íå ïîëó÷àåòñÿ
Private Sub ÑïèñîêÊëèåíòîâ_AfterUpdate()
Dim s
s = "select Äàòà, ÍîìåðÊîðÑ÷åòàÊëèåíòà,ÈííÊîíòðàãåíò,Êðåäèò, Äåáèò, Ïðèìå÷àíèÿ from [b]Me.ÏîëåÑîÑïèñêîì74[/b] where Êîíòðàãåíò='" & Me.ÑïèñîêÊëèåíòîâ.Column(0) & "'"
Me.Ñïèñîê.RowSource = s
http://www.sql.ru/forum/1186652/vyvod-dannyh-iz-tablic
-
Çàïèñü ïîíðàâèëàñü
-
0
Ïðîöèòèðîâàëè
-
0
Ñîõðàíèëè
-