LEADERSOFT.ru Разработка на заказ программ и сайтов
Форумы по информационным технологиям
 
Регистрация  |  Вход
left
Форумы Минимизировать
ПоискСписок форумов
  Программирование  Microsoft Access. Файлы mdb и accdb  проблемы с реал...
 проблемы с реализацией поиска с отбором
 
 27.05.2012 17:53:43
Karinator
1 сообщения


проблемы с реализацией поиска с отбором
Доброго времени суток! Постаралась изучить ваши примеры по поиску, но у меня он не правильно работает(( После того как начинаешь вводить символы в поле данные из таблицы просто исчезают... С чем это может быть связано? Может у меня код не правильный? Помогите пожалуйста!!

Private Sub Поле70_Change()
Dim s As String
s = Me.Поле70.Text 'Определяем текст
With Me.Внедренный75.Form 'Выбираем форму
If Len(s) <> 0 Then
s = " WHERE Left([4]," & Len(s) & ") = '" & s & "'"
Else
s = ";"
End If
.RecordSource = "SELECT 4 FROM [таблица1]" & s
.Requery 'Меняем запрос
End With
End Sub
 28.05.2012 21:45:25
Admin1
731 сообщения
1-ый


Re: проблемы с реализацией поиска с отбором

1) .Requery - Лишнее значение. Оно вызовет перезагрузку источника данных, т.е. повторно, т.к. строчкой выше .RecordSource источник данных изменился.

2) Чтобы правильно построить запрос, надо поставить точку прерывания и скопировать в буфер переменную s, а потом в конструкторе запросов написать его с добавлением фильтра. В этом случае, тогда легко можно вычислить ошибку. P.S. Может быть просто кавычки неправильно стоят.

  Программирование  Microsoft Access. Файлы mdb и accdb  проблемы с реал...
ПоискПоиск  Список форумовСписок форумов  
right