-Ïîèñê ïî äíåâíèêó

Ïîèñê ñîîáùåíèé â rss_sql_ru_access_programming

 -Ïîäïèñêà ïî e-mail

 

 -Ïîñòîÿííûå ÷èòàòåëè

 -Ñòàòèñòèêà

Ñòàòèñòèêà LiveInternet.ru: ïîêàçàíî êîëè÷åñòâî õèòîâ è ïîñåòèòåëåé
Ñîçäàí: 16.03.2006
Çàïèñåé:
Êîììåíòàðèåâ:
Íàïèñàíî: 4


Êàê â ñëó÷àå îøèáêè êîäà, ñäåëàòü ÷òîáû çàïóñêàëàñü íóæíàÿ ôîðìà.

Ïÿòíèöà, 24 Ìàÿ 2019 ã. 07:20 + â öèòàòíèê
È ñíîâà çäðàâñòâóéòå!
Åñòü ôîðìà, êîòîðàÿ áåð¸ò äàííûå èç çàïðîñà, ÷åðåç VBA ïðèêðåïëåíà åù¸ îäíà òàáëèöà, â êîòîðîé áåðóòñÿ äîïîëíèòåëüíûå äàííûå Êàê â ñëó÷àå îøèáêè êîäà, ñäåëàòü ÷òîáû çàïóñêàëàñü íóæíàÿ ôîðìà, à íå ñòàíäàðòíàÿ ôîðìà ñ çàïóñêîì VBA êîíñòðóêòîðà.
Ïî êîíêðåòèêå ïðèìåðíî òàê:
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


 

Äîáàâèòü êîììåíòàðèé:
Òåêñò êîììåíòàðèÿ: ñìàéëèêè

Ïðîâåðêà îðôîãðàôèè: (íàéòè îøèáêè)

Ïðèêðåïèòü êàðòèíêó:

 Ïåðåâîäèòü URL â ññûëêó
 Ïîäïèñàòüñÿ íà êîììåíòàðèè
 Ïîäïèñàòü êàðòèíêó