Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Переход к записи в форме... 
:(
    Опции темы
mws
Дата 23.5.2008, 14:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 22.5.2008

Репутация: нет
Всего: нет
В одной БД в форме для перехода к записи через ComboBox используется код:

Код

Private Sub ПолеСоСписком167_AfterUpdate()
    ' Поиск записи, соответствующей этому элементу управления.
    Dim rs As Object
    Dim strSQL As String

    Set rs = Me.Recordset.Clone
    strSQL = "([Фамилия] = '" & Me.ПолеСоСписком167.Column(0) & "') AND " & _
             "([Имя] = '" & Me.ПолеСоСписком167.Column(1) & "') AND " & _
             "([Отчество] = '" & Me.ПолеСоСписком167.Column(2) & "')"
    rs.FindFirst strSQL
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
А в другой базе в списке для перехода используются поля Учреждение и Дата, т.е. разный тип данных, как в этом случае изменится код?

Это сообщение отредактировал(а) Akina - 23.5.2008, 15:25
PM MAIL   Вверх
bopoha
Дата 24.5.2008, 17:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

Репутация: 21
Всего: 21
Цитата(mws @  23.5.2008,  14:30 Найти цитируемый пост)
А в другой базе в списке для перехода используются поля Учреждение и Дата, т.е. разный тип данных, как в этом случае изменится код?


Учреждение - абсолютно не говорит о типе. Если текст, то его в результирующей строке необходимо обрамить кавычками. С числом делать ничего не нужно.
Дата - ее необходимо привести к формату так - Format(дата, "#mm/dd/yyyy#").


--------------------
Как создавать приложения на MS Access
PM MAIL WWW ICQ Skype GTalk   Вверх
mws
Дата 26.5.2008, 11:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 22.5.2008

Репутация: нет
Всего: нет
Попробовал Format - ругается на #  Что-то не получается, а надо...
Akina - сорри за "Код", сначала не въехал.

Код

Private Sub ПолеСоСписком40_AfterUpdate()
Dim rs As Object
    Dim strSQL As String

    Set rs = Me.Recordset.Clone
    strSQL = "[наименование учреждения] = '" & Me.ПолеСоСписком40.Column(0) & "' AND  Format([отчетная дата], "#mm/dd/yyyy#") = " & Format(Me.ПолеСоСписком40.Column(1), "#mm/dd/yyyy#")
    rs.FindFirst strSQL
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub


Это сообщение отредактировал(а) Akina - 26.5.2008, 11:49
PM MAIL   Вверх
Akina
Дата 26.5.2008, 11:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454
Цитата(mws @  26.5.2008,  12:05 Найти цитируемый пост)
Akina - сорри за "Код", сначала не въехал.

Использовать научился? теперь научись выбирать правильный тип кода - и все будет прелестно smile

Добавлено через 1 минуту и 20 секунд
Цитата(mws @  26.5.2008,  12:05 Найти цитируемый пост)
Попробовал Format - ругается на #

Где именно? И зачем форматировать и данные из формы, и данные из таблицы?


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
mws
Дата 26.5.2008, 12:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 22.5.2008

Репутация: нет
Всего: нет
Цитата(Akina @ 26.5.2008,  11:50)
Цитата(mws @  26.5.2008,  12:05 Найти цитируемый пост)
Попробовал Format - ругается на #

Где именно? И зачем форматировать и данные из формы, и данные из таблицы?

Вот выкладываю файл, а то толком объяснить вряд ли смогу. А Format использовал по совету bopoha, да видно зря...

В форме "учреждения" есть список для перехода, при его использовании и ругается...

Модератор: Прикрепленный файл удален. Причина - не убран автозапуск формы.

Это сообщение отредактировал(а) Akina - 26.5.2008, 14:16
PM MAIL   Вверх
bopoha
Дата 26.5.2008, 15:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

Репутация: 21
Всего: 21
Немного ошибся в формате даты для поиска - #dd.mm.yyyy#.


--------------------
Как создавать приложения на MS Access
PM MAIL WWW ICQ Skype GTalk   Вверх
mws
Дата 27.5.2008, 09:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 22.5.2008

Репутация: нет
Всего: нет
Вот выкладываю файл, а то толком объяснить вряд ли смогу. А Format использовал по совету, да видно зря...

В форме "учреждения" есть список для перехода, при его использовании и ругается...


Присоединённый файл ( Кол-во скачиваний: 9 )
Присоединённый файл  base.zip 78,69 Kb
PM MAIL   Вверх
Akina
Дата 27.5.2008, 09:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454
Код

Private Sub ПолеСоСписком40_AfterUpdate()
    Dim rs As Object
    Dim strSQL As String

    Set rs = Me.Recordset.Clone
    strSQL = "[наименование учреждения] = '" & _
             Me.ПолеСоСписком40.Column(0) & _
             "' AND  CStr([отчетная дата]) = '" & _
             Me.ПолеСоСписком40.Column(1) & _
             "'"
    rs.FindFirst strSQL
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
bopoha
Дата 27.5.2008, 18:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

Репутация: 21
Всего: 21
Цитата(Akina @  27.5.2008,  09:20 Найти цитируемый пост)
"' AND  CStr([отчетная дата]) = '" & _
             Me.ПолеСоСписком40.Column(1) & _
             "'"


С таким успехом можно было бы написать:
Код

"' AND  [отчетная дата] = CDate(" & _
             Me.ПолеСоСписком40.Column(1) & _
             ")"


Тоже будет работать.


--------------------
Как создавать приложения на MS Access
PM MAIL WWW ICQ Skype GTalk   Вверх
Akina
Дата 27.5.2008, 18:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454
bopoha, написАл первое, что в голову пришло...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
mws
Дата 28.5.2008, 07:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 22.5.2008

Репутация: нет
Всего: нет
Народ, огромное спасибо, с меня идет! Будете у нас в Архангельске - милости просим (только не надо отвечать - нет, уж лучше вы кнам)
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "MS Access"
Akina
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] и [code=sql][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | MS Access | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1008 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.