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

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

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

Начало

Forums

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

Форумы

Поиск

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

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

Microsoft Access. Файлы mdb и accdb

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

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

22.04.2008 15:39:32

Admin1

731 сообщения

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

Угадать не получиться.
1. Скачайте с сайта примеры по SQL. http://shops.leadersoft.ru/Product.aspx?ProductID=3794
2. Прочитайте в отладчике всю строку "SELECT Code FROM [Film] Code LIKE '*" & s & "*';" и сравните с примерами по SQL

24.04.2008 14:26:38

Kokubunji

17 сообщения

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

Спасибо, вопрос с "#Имя?" - решил. Не думал, что и в VBA нужно прописать их. Лишь в конструкторе добавил.

Кажется, решил вопрос и с поиском, не подскажете.. правильное ли решение?

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

Потестировал, вроде работает, но может есть какие-то нарекания?

P.S. Еще раз спасибо за огромную помощь.

25.04.2008 9:24:15

Admin1

731 сообщения

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

Правильно. В этом направлении надо работать.

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