Ñîáûòèå ïåðåä ñîçäàíèåì íîâîé çàïèñè
|
|
Ïÿòíèöà, 28 Èþíÿ 2019 ã. 12:58
+ â öèòàòíèê
Âñåì ïðèâåò!
Âîçíèêëà íåïîíÿòíàÿ ñèòóàöèÿ â ïðîöåññå ìîäåðíèçàöèè áàçû (Access 2003). Ïðîøó ïîìîùè!
Åñòü ïðîñòàÿ ôîðìà äëÿ ðàáîòû ñ çàêàçàìè è ñîçäàþùàÿ íîâûå çàêàçû. Ðàáîòàåò íàïðÿìóþ ñ òàáëèöåé.
Ïðè ñîçäàíèè íîâîé çàïèñè â òàáëèöó àâòîìàòè÷åñêè ïîäñòàâëÿåòñÿ òåêóùàÿ äàòà â [ÄàòàÇàêàçà] - çíà÷åíèå ïî óìîë÷àíèþ Date(), à â [ÄàòàÃîòîâíîñòè] ïðîïèñûâàåòñÿ çíà÷åíèå ïî óìîë÷àíèþ Date() + 9. Äàëåå ââîäÿòñÿ ðàçíûå äàííûå: ÔÈÎ çàêàç÷èêà, íîìåð çàêàçà è ïðî÷åå...
Ò.å. ïðè ïåðåõîäå ôîðìû â ðåæèì íîâîé çàïèñè (ñòàíäàðòíàÿ êíîïêà âíèçó ôîðìû - ñòðåëêà âïðàâî ñî çâåçäî÷êîé), [ÄàòàÇàêàçà] è [ÄàòàÃîòîâíîñòè] óæå çàïîëíåíû äàííûìè.
Ïðè äâîéíîì êëèêå ïî âûøåóêàçàííûì êîíòðîëàì îòêðûâàåòñÿ êàëåíäàðèê, ãäå ìîæíî âûñòàâèòü ëþáóþ äàòó.
Õî÷ó ñäåëàòü òàê: ñðàçó ïðè ïåðåõîäå â ðåæèì íîâîé çàïèñè, åñëè
[ÄàòàÃîòîâíîñòè] ïîïàäàåò íà ñóááîòó èëè âîñêðåñåíüå, òî ñðàçó àâòîìàòè÷åñêè îòêðûâàëñÿ ýòîò êàëåíäàðèê äëÿ âîçìîæíîñòè âðó÷íóþ ñêîððåêòèðîâàòü äàòó ìåíåäæåðîì.
×òî-òî òèïà òàêîãî:
Private Sub Äàòà_ãîòîâíîñòè_BeforeInsert(Cancel As Integer)
'åñëè äàòà ïîïàäàåò íà íà ñóááîòó èëè âîñêðåñåíüå - îòêðûòü êàëåíäàðèê äëÿ êîððåêöèè äàòû
If Format(Me.Äàòà_ãîòîâíîñòè, "w", 2) = 6 Or Format(Me.Äàòà_ãîòîâíîñòè, "w", 2) = 7 Then
Me.Äàòà_ãîòîâíîñòè.SetFocus
DoCmd.OpenForm "DatePicker"
End If
End Sub
Ïðîáîâàë íà ðàçíûå ñîáûòèÿ ïðîïèñûâàòü: BeforeInsert, AfterInsert, AfterUpdate, Dirty, Enter... Íåò íèêàêîé ðåàêöèè!
Ïîäñêàæèòå, ÷òî íå òàê?
Êàê ïðàâèëüíî ñäåëàòü?
https://www.sql.ru/forum/1314215/sobytie-pered-sozdaniem-novoy-zapisi
-
Çàïèñü ïîíðàâèëàñü
-
0
Ïðîöèòèðîâàëè
-
0
Ñîõðàíèëè
-