Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Перенести "...

Re: Перенести "Контекстный Поиск"

21.04.2008 13:51:13

Kokubunji

17 сообщения

Re: Перенести "Контекстный Поиск"

1. У меня остался лишь один вопрос (остальные вроде решил): Чтоб привязать к полю куда вбиваешь для поиска информацию функцию поиска, нужно лишь открыть VB, выбрать эту вкладку и прописать:

Private Sub myBooks_Change()
Dim s As String
s = Me.myBooks.Text 'Определяем текст
With Me.myFind3.Form 'Выбираем форму
If Len(s) <> 0 Then
s = " WHERE Left([Книга]," & Len(s) & ") = '" & s & "'"
Else
s = ";"
End If
.RecordSource = "SELECT Книга FROM [1-Мои книги]" & s
.Requery 'Меняем запрос
End With
End Sub

только переделанную под мою базу? Или же другие вкладки так же нужно привязать?

2. В том лесу даже не ко всем кнопкам информация есть. Не говоря уже о функциях.

21.04.2008 14:16:10

Admin1

731 сообщения

Re: Перенести "Контекстный Поиск"

1 myBooks_Change - событие изменения поля myBooks.
   Срабатывает каждый раз, когда наживаем на клавиатуре кнопку. Обрабатываем для создания переменной s

2. После нужно менять запрос для формы
   .RecordSource = "SELECT Книга FROM [1-Мои книги] Книга LIKE '*ихий до*';" - частный случай
   .RecordSource = "SELECT Книга FROM [1-Мои книги] Книга LIKE '*" & s & "*';" - общий случай

3. .Requery Найдет книгу Тихий Дон и отобразит ее на экране.

21.04.2008 15:11:13

Kokubunji

17 сообщения

Re: Перенести "Контекстный Поиск"

Спасибо большое, буду пытаться разобраться.

22.04.2008 14:00:18

Kokubunji

17 сообщения

Re: Перенести "Контекстный Поиск"

Admin1написал

2. После нужно менять запрос для формы
.RecordSource = "SELECT Книга FROM [1-Мои книги] Книга LIKE '*ихий до*';" - частный случай
.RecordSource = "SELECT Книга FROM [1-Мои книги] Книга LIKE '*" & s & "*';" - общий случай

Еще раз спасибо огромное за помощь, но остались, надеюсь, последние два вопроса. Надеюсь, что с ними вы сможете помочь.

Нашел в интернете, случайно, картинку, где к кнопке прикрепляли функцию. По ней я и понял, как именно прикреплять VB-прописи, через "Обработка событий".

Когда я вставил:

Private Sub find_Change()
Dim s As String
s = Me.find.Text 'Определяем текст
With Me.myFind3.Form 'Выбираем форму
If Len(s) <> 0 Then
s = " WHERE Left([Code]," & Len(s) & ") = '" & s & "'"
Else
s = ";"
End If
.RecordSource = "SELECT Code FROM [Film]" & s
.Requery 'Меняем запрос
End With
End Sub

сработало, но вот при попытке подставить:
.RecordSource = "SELECT Code FROM [Film] Code LIKE '*" & s & "*';" - нет.
Пробовал удалять последние знаки.. так же не получилось. Может я не так понял?

И вторая проблема. Я добавил еще столбца поля "NameR" и "NameEn", при отборе (.RecordSource = "SELECT Code FROM [FILM]" & s) вместа значений в этих столбцах выдаются ошибки "#Имя?".
Можно ли с этим что-нибудь сделать?

22.04.2008 15:39:02

Kokubunji

17 сообщения

Re: Перенести "Контекстный Поиск"

После подстановки, как Вы написали выше, получилось:

Private Sub find_Change()
Dim s As String
s = Me.find.Text 'Определяем текст
With Me.myFind3.Form 'Выбираем форму
If Len(s) <> 0 Then
s = " WHERE Left([Code]," & Len(s) & ") = '" & s & "'"
Else
s = ";"
End If
.RecordSource = "SELECT Code FROM [Film] Code LIKE '*" & s & "*';"
.Requery 'Меняем запрос
End With
End Sub

Страница 2 из 3

Программирование

Microsoft Access. Файлы mdb и accdb

Перенести "...

Поиск

Список форумов

Начало | Forums