Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Переход из формы работает, а из субформы нет, почему? / 5 сообщений из 5, страница 1 из 1
08.12.2004, 17:19:51
    #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
08.12.2004, 17:32:31
    #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
08.12.2004, 17:35:34
    #32819327
AlexRom
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход из формы работает, а из субформы нет, почему?
Спасибо, всё ОК
Кроме событий на Украине
...
Рейтинг: 0 / 0
08.12.2004, 17:37:02
    #32819331
Svetlana_613
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход из формы работает, а из субформы нет, почему?
нема за що :-)
Thks/Regards
Svetlana :-)
...
Рейтинг: 0 / 0
08.12.2004, 17:39:50
    #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
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Переход из формы работает, а из субформы нет, почему? / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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