Ïðîèãðàòü äëÿ îòêðûòîé ôîðìû ñîáûòèå Form_Current åùå ðàç áåç ïåðåõîäà íà äðóãóþ çàïèñü.
|
|
Âîñêðåñåíüå, 10 Äåêàáðÿ 2017 ã. 22:48
+ â öèòàòíèê
Äðóçüÿ, äîáðîãî âðåìåíè ñóòîê! Òàêîé âîïðîñ: åñòü îòêðûòàÿ îäèíî÷íàÿ ôîðìà, êîòîðàÿ òóïî ïðèâÿçàíà ê òàáëèöå è, ñîîòâåòñòâåííî, îòîáðàæàåò îäíó èç çàïèñåé ýòîé òàáëèöû. Èç ýòîé ôîðìû êíîïêîé áûëà âûçâàíà âòîðàÿ ôîðìà (íèêàê íå ñâÿçàííàÿ ñ ïåðâîé), ñ ïîìîùüþ êîòîðîé ðàçëè÷íûìè ìàíèïóëÿöèÿìè áûëè âíåñåíû èçìåíåíèÿ â çàïèñü, îòîáðàæàåìóþ ôîðìîé ¹1. Ïðè çàêðûòèè ôîðìû ¹2 ýòè èçìåíåíèÿ ïîÿâèëèñü íà ôîðìå ¹1 (íå ïðèøëîñü äåëàòü íè Refresh, íè ÷òî-òî â ýòîì æàíðå). Íî âîò áåäà, îò ïîëÿ, â êîòîðîì èçìåíèëîñü çíà÷åíèå, çàâèñèò êíîïêà, êîòîðàÿ äîëæíà àêòèâèðîâàòüñÿ â òîì ñëó÷àå, åñëè íîâîå çíà÷åíèå îòëè÷íî îò íóëÿ.
Ïðè ïåðåõîäå ïî çàïèñÿì íà ñîáûòèå Form_Current ñäåëàíà ïðîöåäóðà, êîòîðàÿ ñìîòðèò, êàêîå çíà÷åíèå ïîëå¹1 ïîÿâëÿåòñÿ ïðè îòîáðàæåíèè î÷åðåäíîé çàïèñè. Åñëè áîëüøå 0, òî Êíîïêà àêòèâèðóåòñÿ, ìåíüøå - áëîêèðóåòñÿ. Òàêæå ñäåëàíî íà After_Update ïîëå ¹1. Íî íàñêîëüêî ÿ ïîíÿë, èçìåíåíèå "íå ðóêàìè" çíà÷åíèÿ íå ÿâëÿåòñÿ ñîáûòèÿìè íè After_Update íè Before_Update... :(:(
Ïðîáîâàë ÿ ïðè çàêðûòèè âòîðîé ôîðìû äåëàòü òàê:
If CurrentProject.AllForms("MainListForm").IsLoaded = True Then Forms![MainListForm].Form.Rrefresh
ðåàêöèè - 0 :(
Òî æå ñàìîå ñ Recalc, Repaint... À Requery - íå ãîäèòüñÿ, òàê êàê ñáðàñûâàåò ôîðìó ê ïåðâîé çàïèñè...
×åì áû çàñòàâèòü ïðîèãðàòüñÿ åùå ðàçîê ñîáûòèå Form_Current íà ýòîé íåñ÷àñòíîé ôîðìå? Óæ îíî òî áû ðàçáëîêèðîâàëî òî÷íî ýòó ÷åðòîâó êíîïêó... È ôîðìà áû îñòàëàñü íà òåêóùåé çàïèñè, áåç âñÿêèõ ïåðåñêîêîâ...
Çàðàíåå ñïàñèáî.
http://www.sql.ru/forum/1279688/proigrat-dlya-otkrytoy-formy-sobytie-form-current-eshhe-raz-bez-perehoda-na-druguu-zapis
-
Çàïèñü ïîíðàâèëàñü
-
0
Ïðîöèòèðîâàëè
-
0
Ñîõðàíèëè
-