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

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

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

 

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

 -Ñòàòèñòèêà

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


Ïîëó÷åíèå çíà÷åíèÿ ïîëÿ òàáëèöû (ñîäåðæàùåãî ñïèñîê äàííûõ) ÷åðåç VBA

Ïîíåäåëüíèê, 26 Ìàÿ 2014 ã. 18:39 + â öèòàòíèê
Äîáðîå âðåìÿ ñóòîê! Äîëãî ìó÷àþñü íàä (êàê ìíå ñïåðâà ïîêàçàëîñü) åðóíäîâîé çàäà÷åé, õî÷ó ðàçîáðàòüñÿ ÷òî ÿ äåëàþ íå òàê. Ñóòü â ñëåäóþùåì. Åñòü áàçà äàííûõ, â íåé äâå òàáëèöû.

Ïåðâàÿ òàáëèöà "Ïåðå÷åíü", â íåé âñåãî 2 ïîëÿ:

1) "Êîä", òèï ïîëÿ "Ñ÷¸ò÷èê".
2) "Öâåò", òèï ïîëÿ "Òåêñòîâîå", íî çàïîëíÿåòñÿ îíî ÷åðåç ñïèñîê. Èñòî÷íèê ñòðîê: çàïðîñ êî âòîðîé òàáëèöå. Ðàçðåøåí ââîä íåñêîëüêèõ çíà÷åíèé.

Âòîðàÿ òàáëèöà "Öâåòà", â íåé òàê æå 2 ïîëÿ:

1) "Êîä", òèï ïîëÿ "Ñ÷¸ò÷èê".
2) "ÍàèìåíîâàíèåÖâåòà", òèï ïîëÿ "Òåêñòîâîå".

 èñòî÷íèêå äàííûõ ïîëÿ "Öâåò" ïåðâîé òàáëèöû èñïîëüçóåòñÿ çàïðîñ: SELECT Öâåòà.ÍàèìåíîâàíèåÖâåòà FROM Öâåòà;

Òàêèì îáðàçîì ÷åðåç ðåæèì òàáëèöû ÿ ìîãó âûáðàòü îäíî èëè íåñêîëüêî çíà÷åíèé äëÿ êàæäîãî ïîëÿ "Öâåò" â ïåðâîé òàáëèöå. Åñëè ÿ âûáåðó íåñêîëüêî çíà÷åíèé äëÿ ïåðâîé çàïèñè â òàáëèöå (ñêàæåì âûáåðó "Êðàñíûé", "Çåëåíûé", "Ñèíèé" - ñðàçó 3), òî â ðåæèìå òàáëèöû ÿ áóäó âèäåòü âñå 3 çíà÷åíèÿ: îíè áóäóò ïåðå÷èñëåíû ÷åðåç ";" (÷åðåç òî÷êó ñ çàïÿòîé). Åñëè æå ïîñëå ýòîãî ÿ âûïîëíþ çàïðîñ "SELECT Ïåðå÷åíü.Öâåò FROM Ïåðå÷åíü WHERE Ïåðå÷åíü.Êîä=1" òî â ðåçóëüòàòå çàïðîñà ÿ óâèæó 3 ñòðîêè. Âñ¸ âðîäå áû ðàáîòàåò êàê ïîëîæåíî. Ïðîáëåìû íà÷èíàþòñÿ äàëüøå... Òåïåðü ìíå íóæíî ïðîäåëàòü òîæå ñàìîå ÷åðåç VBA. Òî åñòü íóæíî ñôîðìèðîâàòü çàïðîñ ê ïåðâîé òàáëèöå ("Ïåðå÷åíü") è ïîëó÷èòü èç íå¸ ñïèñîê âñåõ öâåòîâ, ïåðå÷èñëåííûõ â ïîëå "Öâåò".

Äåëàþ ñëåäóþùåå:

Set RST = CurrentDb.OpenRecordset("SELECT Ïåðå÷åíü.[Öâåò] FROM Ïåðå÷åíü WHERE Ïåðå÷åíü.[Êîä]=1")
Do While Not RST.EOF
    values = RST_NewsTag.Fields(0).Value
    For Each v In values
         Name = v.Value
    Next v
    RST.MoveNext
Loop


Ïðîáëåìà â òîì, ÷òî êîãäà äîõîäèò äî ñòðîêè "Name = v.Value" â ïåðåìåííóþ "Name" çàïèñûâàåòñÿ òîëüêî ïåðâîå çíà÷åíèå ïîëÿ "Öâåò". Òóäà ïîïàäàåò çíà÷åíèå "Êðàñíûé" (áåç òî÷êè ñ çàïÿòîé), òîãäà êàê â ýòîì ïîëå äîëæíî õðàíèòüñÿ (è çàïðîñ ê òàáëèöå ýòî ïîäòâåðæäàåò) âñå 3 çíà÷åíèÿ. Íî ÷åðåç VBA âèäíî òîëüêî îäíà.

Ïîìîãèòå ðàçîáðàòüñÿ - ÷òî ÿ äåëàþ íå òàê?

http://www.sql.ru/forum/1096911/poluchenie-znacheniya-polya-tablicy-soderzhashhego-spisok-dannyh-cherez-vba


 

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

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

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

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