Êàê â ñëó÷àå îøèáêè êîäà, ñäåëàòü ÷òîáû çàïóñêàëàñü íóæíàÿ ôîðìà. |
If
Set rs32 = CurrentDb.OpenRecordset("select * from [Êðòî÷êà ó÷åòà ïîä÷èíåííàÿ] where Êîä=" & Me.Êîä)åñëè äàííàÿ ñòðîêà âûäà¸ò îøèáêó òî,
Then
DoCmd.Close
oshibka = "Íå óêàçàíî èëè êîððåêòíî óêàçàíî îêîíå÷íîå óñòðîéñòâî, â çàêëàäêå ""ÒÕÎ"""
DoCmd.OpenForm "Ô_Îøèáêà"
Exit Sub
Else
End If
https://www.sql.ru/forum/1312863/kak-v-sluchae-oshibki-koda-sdelat-chtoby-zapuskalas-nuzhnaya-forma
| Êîììåíòèðîâàòü | « Ïðåä. çàïèñü — Ê äíåâíèêó — Ñëåä. çàïèñü » | Ñòðàíèöû: [1] [Íîâûå] |