powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Переход из формы работает, а из субформы нет, почему?
5 сообщений из 5, страница 1 из 1
Переход из формы работает, а из субформы нет, почему?
    #32819282
AlexRom
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Есть ленточная форма ОбновлениеКлиенты, в которой отражаются только новый записи за последнюю неделю.
Задача простая, при клике в форме ОбновлениеКлиенты на конкретном клиенте открывается форма Клиенты на выбранной записи.
Код: plaintext
1.
2.
3.
4.
Private Sub Имя_DblClick(Cancel As Integer)
    DoCmd.OpenForm "Клиенты", acNormal, "", "", , acNormal
    DoCmd.GoToControl "[КОД]"
    DoCmd.FindRecord Forms!ОбновлениеКлиенты.КодКлиента, acEntire, False, , False, acCurrent, True
End Sub
Проблема в том, что всё работает, если открыть одну форму ОбновлениеКлиенты, а если она является субформой, выдает ошибку.
Вопрос: где эта пресловутая ошибка?
...
Рейтинг: 0 / 0
Переход из формы работает, а из субформы нет, почему?
    #32819317
Фотография Svetlana_613
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Private Sub Имя_DblClick(Cancel As Integer)
Dim klient
Klient=Me!КодКлиента
DoCmd.OpenForm "Клиенты"
DoCmd.GoToControl "[КОД]"
DoCmd.FindRecord klient
End Sub

Thks/Regards
Svetlana :-)
...
Рейтинг: 0 / 0
Переход из формы работает, а из субформы нет, почему?
    #32819327
AlexRom
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо, всё ОК
Кроме событий на Украине
...
Рейтинг: 0 / 0
Переход из формы работает, а из субформы нет, почему?
    #32819331
Фотография Svetlana_613
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
нема за що :-)
Thks/Regards
Svetlana :-)
...
Рейтинг: 0 / 0
Переход из формы работает, а из субформы нет, почему?
    #32819340
Фотография Программист-Любитель
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
DoCmd.OpenForm "Клиенты", acNormal, "", "", , acHidden
with Forms("Клиенты")
    .Recordset.FindFirst("КОД=" & CStr(Me!КодКлиента))
    if .NoMatch Then
        MsgBox "Нету !"
        DoCmd.Close acForm, "Клиенты"
    else
        .Visible = True
    end if
end with
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Переход из формы работает, а из субформы нет, почему?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]