Access 2002. Íà ôîðìå èìååòñÿ ïðîñòîå Ïîëå6, ãäå ââîäèòñÿ ñòðîêà äëÿ ïîèñêà
è ÏîëåÑîÑïèñêîì39 íàçíà÷åíèå êîòîðîãî îòêðûòü äëÿ þçåðà ñïèñîê ñòðîê ñ âõîæäåíèÿìè ïîèñêîâîé ñòðîêè
â ñîáûòèè "ïîñëå îáíîâëåíèÿ" äëÿ Ïîëå6 òàêîé êîä:
m_zak_list_find = Trim(UCase(Me.Ïîëå6))
DoCmd.GoToControl ("ÏîëåÑîÑïèñêîì39")
SendKeys "%{DOWN}"
èñòî÷íèê äàííûõ äëÿ ÏîëåÑîÑïèñêîì39 òàêîé:
SELECT Çàêàçíîé_ëèñò_ÍÅÎÐÈÃ_find.key_z, Çàêàçíîé_ëèñò_ÍÅÎÐÈÃ_find.txt, Çàêàçíîé_ëèñò_ÍÅÎÐÈÃ_find.findtxt FROM Çàêàçíîé_ëèñò_ÍÅÎÐÈÃ_find WHERE (((Çàêàçíîé_ëèñò_ÍÅÎÐÈÃ_find.findtxt) Like '*' & get_m_zak_list_find() & '*'));
ñîáûòèå "âõîä" äëÿ ÏîëåÑîÑïèñêîì39 òàêîé:
Me.ÏîëåÑîÑïèñêîì39 .Requery
Èìååò ìåñòî òàêîå ÿâëåíèå
ïîñëå ââîäà ïîèñêîâîé ñòðîêè îòêðûâàåòñÿ ñïèñîê ÏîëåÑîÑïèñêîì39 íàæàòèå Enter íå ïðèâîäèò ê ãåíåðàöèè ñîáûòèÿ "Ïîñëå îáíîâëåíèÿ" ñîîòâåòñòâåííî ïîçèöèîíèðîâàíèå çàëîæåííîå
â ñîáûòèè "Ïîñëå îáíîâëåíèÿ":
Set rst = Forms![Çàêàçíîé_ëèñò_main]![Çàêàçíîé_ëèñò_íåîðèã].Form.RecordsetClone
rst.FindFirst "[key_z] = " & CStr(ko)
If Not rst.EOF Then Forms![Çàêàçíîé_ëèñò_main]![Çàêàçíîé_ëèñò_íåîðèã].Form.Bookmark = rst.Bookmark
â ïîä÷èí¸ííîé ôîðìå íå ïðîèñõîäèò.
Åñëè æå ù¸ëêíóòü ìûøêîé â ñòðîêó â îòêðûâøåìñÿ ÏîëåÑîÑïèñêîì39, òî âñ¸ ïðîèñõîäèò êàê íàäî â ëþáûõ ñèòóàöèÿõ.
À õîòåëîñü áû âñåãäà Enter -îì.
Êàê ýòî èñïðàâèòü óæå íå çíàþ. Ïåðåïðîáîâàë, êàê ìíå êàæåòñÿ, ìíîãî âñåãî.
Enter ñðàáàòûâàåò, åñëè ñîäåðæèìîå ÏîëåÑîÑïèñêîì39 èçìåíèëîñü.
êàê òîëüêî îäó è òó æå ïîèñêîâóþ ñòðîêó ââîäèøü ðàçà äâà ïîäðÿä, íà÷èíàåòñÿ îòðèöàòåëüíîå ÿâëåíèå.
Ïîäîáíóþ êîíñòðóêöèþ ïðèìåíÿþ âî ìíîãèõ ôîðìàõ, íî èìåííî íà ýòîé ñóùåñòâóåò òàêîé ñïîòûê.
Ïîìîãèòå èñïðàâèòü.
http://www.sql.ru/forum/1216843/v-pole-so-spiskom-vybor-enter-om-ne-privodit-k-generacii-sobytiya-posle-obnovleniya