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

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> Простейший поиск, Форма поиска 
:(
    Опции темы
Bull-DoG
  Дата 2.11.2005, 18:11 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Помогите пожалуйста человеку, который ничего не понимает в Access'e.
Нужна простейшая форма поиска котрая бы по нескольким полям формы отбирала подходящие строки в таблице и выводила их на экран, а также считала количество найденых совпадений.
Буду очень благодарен ответам!
Зарание спасибо!
  Вверх
Guest
Дата 3.11.2005, 17:29 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Извеняюсь, конечно, за такой банальный вопрос... просто в первые в жизни столкнулся с Access'om и так в лоб....
Я програмист-любитель на С++ и Delphi а вот с Basic'ом последний раз имел дело очень давно... сначала с GW потом перешел уже на QBasic...
Вот... вроде в основном разабрался... теперь еще вопросик:

На кнопку ставлю саб:


Код

Private Sub Кнопка18_Click()
Rem MsgBox Me.Результаты.Form.Filter
Me.Результаты.Form.Filter = "[Дата окончания исполнительного производства] BETWEEN '" & Me!ОДатОт & "' AND '" & Me!ОДатДо & "'"
Me.Результаты.Form.FilterOn = True
End Sub




На что аксесс мне выдает: Предидущая операция прервана пользовалетем...
Подскажите пожалуйста как с етим справиться...
Код
  Вверх
Bull-DoG
Дата 3.11.2005, 17:57 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Пока добился чтобы без ошибок работало ето:
Код

Dim sSQL As String

sSQL = "Select * From [База должников] Where [Дата окончания исполнительного производства] Between " & Format(Me!ОДатОт, "dd\/mm\/yyyy") & " And " & Format(Me!ОДатДо, "dd\/mm\/yyyy")
MsgBox sSQL
Me.Результаты.Form.RecordSource = sSQL
Me.Результаты.Requery


Оно работает но ничего не находит, так как у меня в базе дата в формате dd.mm.yyyy

Помогите пожалуйста с етим вопросом, а то время совсем поджимает... =(
  Вверх
Bull-DoG
Дата 3.11.2005, 18:03 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
УРА!!!!
Заработала!!!!
Код

Private Sub Кнопка18_Click()

If (Me.ОДатОт > 0) And (Me.ОДатДо > 0) Then

  Dim sSQL As String
  sSQL = "Select * From [База должников] Where [Дата окончания исполнительного производства] Between #" & Format(Me!ОДатОт, "mm\/dd\/yyyy") & "# And #" & Format(Me!ОДатДо, "mm\/dd\/yyyy") & "#"
  Me.Результаты.Form.RecordSource = sSQL
  Me.Результаты.Requery

End If

End Sub

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

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

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

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

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

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


 




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


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

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