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

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

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

Начало

Forums

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

Форумы

Поиск

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

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

Microsoft Access. Файлы mdb и accdb

Форма для поиск...

Форма для поиска по двум таблицам.

23.06.2009 12:49:00

Kokubunji

17 сообщения

Форма для поиска по двум таблицам.

Имеются две таблицы с одинаковыми столбцами TC, Code, Article, NameRu. Так же две формы для поиска по этим базам.

Как она строилась: Конструктор форм -> Список элементов (привязанный к одной из баз) -> Поле, которое ищет данные, допустим в столбце Code. Вот скрипт для таблицы New и таблицы Old

Private Sub findCode_Change()
Dim s As String
s = Me.findCode.Text
With Me.myFind.Form
If Len(s) <> 0 Then
s = " WHERE CStr([Code]) Like '*" & s & "*'"
Else
s = ";"
End If
.RecordSource = "SELECT TC, Code, Article, NameRu FROM [NEW]" & s
.Requery
End With
End Sub

Private Sub findCode_Change()
Dim s As String
s = Me.findCode.Text
With Me.myFind.Form
If Len(s) <> 0 Then
s = " WHERE CStr([Code]) Like '*" & s & "*'"
Else
s = ";"
End If
.RecordSource = "SELECT TC, Code, Article, NameRu FROM [OLD]" & s
.Requery
End With
End Sub

Для каждой из этих таблиц пришлось делать отдельные формы. Можно ли сделать один общий поиск? Т.е. сделать одно поле для поиска по Code и два отдельных Списка на одной вкладке (два окна с данными). Набивая Code в поле, чтоб результат отображался в обоих списках.
Заранее спасибо.

23.06.2009 15:25:30

Admin1

731 сообщения

Re: Форма для поиска по двум таблицам.

Все тоже самое надо сделать, только формы должны иметь разное название. Например, одна форма myFind1, а другая myFind2, Requery не надо вызывать.

Private Sub findCode_Change()
Dim s As String
s = nz(Me.findCode.Text,"")
If s <> "" Then s = " WHERE CStr([Code]) Like '*" & s & "*'"
Me.myFind1.Form.RecordSource = "SELECT TC, Code, Article, NameRu FROM [NEW]" & s & ";"
Me.myFind2.Form.RecordSource = "SELECT TC, Code, Article, NameRu FROM [OLD]" & s & ";"

End Sub

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

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

Microsoft Access. Файлы mdb и accdb

Форма для поиск...

Поиск

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

Начало | Forums