Ïîìîãèòå. Çàïðîñ äëÿ äîáàâëåíèÿ èç VBA çíà÷åíèé 2-õ äàò èç ïîëåé ôîðìû.
|
|
Ïÿòíèöà, 20 Ìàÿ 2016 ã. 15:52
+ â öèòàòíèê
Åñòü:
1. Ôîðìà íà îñíîâå ãëàâíîé òàáëèöû.
2. Íóæíî ïî íàæàòèþ êíîïêè âñòàâèòü äâå äàòû èç ïîëåé ýòîé ôîðìû (ñâîáîäíûå ïîëÿ, êðàòêèé ôîðìàò äàòû, çàïîëíÿþòñÿ ïðåäâàðèòåëüíî) â òàáëèöó, ñâÿçàííóþ ñ ãëàâíîé òàáëèöåé, íî òîëüêî â òå ïîëÿ, êîòîðûå â ïîëå "Âûáîð" èìåþò çíà÷åíèå ÈÑÒÈÍÀ.
Ò. å. ñíà÷àëà äåëàþ çàïðîñ íà äîáàâëåíèå ñ óñëîâèåì âûáîðêè "Âûáîð" èìååò çíà÷åíèå Èñòèíà, íî âñòàâèòü â ñâÿçàííóþ òàáëèöó çíà÷åíèÿ äàò èç ôîðìû íå ïîëó÷àåòñÿ.
Çíàþ, ÷òî ìîæíî ðåøàòü ðàçíûìè ñïîñîáàìè, íî ïðîáóþ ñ ïîìîùüþ ñîñòàâëåíèÿ SQL çàïðîñà èç ìîäóëÿ ôîðìû. Ïîìîãèòå ïðàâèëüíî ñîñòàâèòü SQL çàïðîñ.
Ïîêà ïîëó÷àåòñÿ òàê:
Dim dtREG, dtSROK As Date 'Îáúÿâëÿþ ïåðåìåííûå
'Çàäàþ çíà÷åíèÿ èç ñâîáîäíûõ ïîëåé ñ êðàòêèì ôîðìàòîì äàííûõ ýòîé ôîðìû
dtREG = Me!ÏîëådtREG
dtSROK = Me!ÏîëådtSROK
DoCmd.RunSQL "INSERT INTO Ïðèáûòèå ([Äàòà ðåãèñòðàöèè ÓÔÌÑ], [Ñðîê îêîí÷àíèÿ ðåãèñòðàöèè ÓÔÌÑ]) SELECT Ïðèáûòèå.[Äàòà ðåãèñòðàöèè ÓÔÌÑ], Ïðèáûòèå.[Ñðîê îêîí÷àíèÿ ðåãèñòðàöèè ÓÔÌÑ] FROM Ðàáîòíèêè INNER JOIN Ïðèáûòèå ON Ðàáîòíèêè.[Êîä ðàáîòíèê] = Ïðèáûòèå.[Êîä ðàáîòíèê] WHERE (((Ðàáîòíèêè.Âûáîð)=Yes));"
Íî íóæíî êóäà-òî âñòàâèòü çíà÷åíèÿ VALUES (dtREG, dtSROK).
Ïîìîãèòå ïðàâèëüíî íàïèñàòü êîä.
http://www.sql.ru/forum/1214844/pomogite-zapros-dlya-dobavleniya-iz-vba-znacheniy-2-h-dat-iz-poley-formy
-
Çàïèñü ïîíðàâèëàñü
-
0
Ïðîöèòèðîâàëè
-
0
Ñîõðàíèëè
-