Поиск в базе данных MS Access по данным из поля формы

@Lampard7 · Регистрация: 13.05.2009

Студворк — интернет-сервис помощи студентам

Всем привет.Стоит такая задача : реализовать поиск по одной таблице.В форме есть поле.Данные из поля нужны для поиска.После поиска вывести соответствующую строчку из таблицы.Я так понимаю без VBA не обойтись.Но ничего в нем не шарю.Помогите кто чем могёт

@Lampard7 · 20.05.2011, 12:27 **[ТС]**

Сообщение от Agapov_stas

Вот пример кода.Думаю дальше сами разберетесь:-)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
' Сортировка по критериям
Private Sub Кнопка25_Click()
On Error Resume Next
Dim sQ As String
 
sQ = " SELECT TblZarplata.* " & _
     " FROM TblZarplata " & _
     " WHERE (TblZarplata.[Data]) " & _
     " BETWEEN #" & Format(Me.Поле13, "mm\/dd\/yy") & _
     "# AND #" & Format(Me.Поле15, "mm\/dd\/yy") & "# " & _
     " AND ((TblZarplata.idChief)=[Forms]![FrmZarplataChief]![ПолеСоСписком11] OR [Forms]![FrmZarplataChief]![ПолеСоСписком11] Is Null)" & _
     " ORDER BY TblZarplata.[Data] DESC "
 Me![PodZarplataChief].Form.RecordSource = sQ
 Me![PodZarplataChief].Form.Requery
 
End Sub

Скажите а можно ли формат даты изменить на dd/mm/yy?
И вот смысл этого не понятен :
(TblZarplata.idChief)=[Forms]![FrmZarplataChief]![ПолеСоСписком11]
что за поле idChief и зачем нам поле со списком?

@Agapov_stas · 20.05.2011, 12:30

Скажите а можно ли формат даты изменить на dd/mm/yy?

Акс воспринимает дату в американском формате.Так что, - нужно именно так(mm\/dd\/yy).

И вот смысл этого не понятен :
(TblZarplata.idChief)=[Forms]![FrmZarplataChief]![ПолеСоСписком11]
что за поле idChief и зачем нам поле со списком?

Моё это, - МОЁ!

Я же написал, - это пример(вытащил из СВОЕЙ базы

) кода, - дальше сами разберетесь.
Просто идет дальше условия для фильтрации после даты.

@Lampard7 · 20.05.2011, 12:32 **[ТС]**

Понятно.А вы не пробовали сделать выбор дат выпадающими списками? Это красивее походу

@Agapov_stas · 20.05.2011, 12:35

Сообщение от Lampard7

А вы не пробовали сделать выбор дат выпадающими списками? Это красивее походу

Нет, но примеры баз в которых реализовано,есть.
Красивее?...Ну,может Вы и правы.Оригинальне,конечно,чем простой вызок кнопочкой.Смотрится лучше.
Соб-сно, тут "на вкус и цвет.."

Да и самих ведь календариков много(ну лично я где-то около 5-и видел..)

@Lampard7 · 20.05.2011, 12:45 **[ТС]**

А в форму нельзя случайно вставить поле с выбором дат? При заполнении таблицы в правом нижнем углу выскакивает календарик маленький и можно выбирать.А в форме возможно поставить такой же?

Добавлено через 4 минуты

Сообщение от Agapov_stas

Акс воспринимает дату в американском формате.Так что, - нужно именно так(mm\/dd\/yy).

У меня дата в записях в кратком виде дд/мм/гг.По другому не могу сделать так как там нету представления мм/дд/гг.При сравнении здесь не будет проблем?

@Agapov_stas · 20.05.2011, 12:52

У меня дата в записях в кратком виде дд/мм/гг.По другому не могу сделать

это сюдЫ не отностися:-) Так и сотавляйте. АКС вопринимает дату в американском формате, а на форме и в таблах храните в кратком виде.
У меня тоже в таблах именно так.

А в форму нельзя случайно вставить поле с выбором дат?

Вообще-то НУЖНО

@Lampard7 · 20.05.2011, 13:06 **[ТС]**

Я так понял это элемент ActiveX.Не подскажете как он называется а то их тут до чёрта?

Добавлено через 9 минут
Фух,все разобрался.Называется Microsoft Data and Time Picker.Все работает.
Осталось добавить форму удаления желаемой записи и все.
У Вас кстати, Стас, не найдется такого примера? Чтоб выбрал запись щелчком и "Удалить"

@Agapov_stas · 20.05.2011, 15:48

Сообщение от Lampard7

Я так понял это элемент ActiveX

Нет..(ну в смысле и да и нет

)
Есть микрософтовский(который Вы нашли), а есть просто сторонние.

Сообщение от Lampard7

Чтоб выбрал запись щелчком и "Удалить"

Не понял...Если одиночная форма, то можно ничего не искать, уже все сделано до нас

На панели инструментов выберите "Кнопка" и установите ее к себе на форму.Появится окошко, выберите пункт обработка записей-->удалить запись.
Все.
Или Вы о чем-то ином говорите?

@Lampard7 · 20.05.2011, 15:57 **[ТС]**

Всё сделал как выше описано.Выдает ошибку "Команда или макрокоманда "Удалить Запись" в данное время недоступна"

@Agapov_stas · 20.05.2011, 16:08

Если одиночная форма...

Вы текущую запись желаете удалить?или же на подчиненной форме?
Покажите пример,где не получается...

@Lampard7 · 20.05.2011, 16:14 **[ТС]**

На подчиненной форме хочу удалить

@Agapov_stas · 20.05.2011, 16:24

Создаешь кнопку на основной форме.

Visual Basic
1
2
3
4
5
6
7
8
Private Sub Кнопка_Click()
Dim strSQL As String
strSQL = "Delete " & _
" FROM Таблица " & _
" Where Таблица.id=" & Me.ПодчиненнаяФорма.Form.id
DoCmd.RunSQL (strSQL)
Me.ПодчиненнаяФорма.Form.Requery
End Sub

Таблица - таблица, которая является источником для подчиненной формы
id - ключевое поле в твоей таблице.

Пошагово:
Выделяешь или строку в подчиненной форме или установить курсор в ЛЮБОМ( так как id определяется строки) поле и жманаешь Кнопку.

@Lampard7 · 20.05.2011, 16:26 **[ТС]**

Люди говорят с Runом геморно работать.Как такой вариант?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Кнопка2_Click()
On Error GoTo Err_Кнопка2_Click
 
Me.Form2.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
 
Exit_Кнопка2_Click:
    Exit Sub
 
Err_Кнопка2_Click:
    Resume Exit_Кнопка2_Click
    
End Sub

@Agapov_stas · 20.05.2011, 16:31

Сообщение от Lampard7

Люди говорят с Runом геморно работать.

Люди всегда много говорят

Не нравится тогда так напиши:

Visual Basic
1
2
3
4
Private Sub Кнопка_Click()
CurrentDb.Execute "DELETE * FROM Таблица WHERE Таблица.id = " & Me![ПодчиненнаяФорма].Form.id & ";"
Me.[ПодчиненнаяФорма].Form.Requery
End Sub

так людям должно понравиться

Как такой вариант?

не сработает.

@Lampard7 · 20.05.2011, 16:40 **[ТС]**

А вот и работает

@Agapov_stas · 20.05.2011, 16:44

Сообщение от Lampard7

А вот и работает

прикольно,однако...Не знал

Взял на заметку

@Lampard7 · 21.05.2011, 01:10 **[ТС]**

Да я сам это нашел на нашем форуме.Вот собственно эта тема : Удаление записей через подчинённую форму
Говорят при большой базе (>65000 записей) эта тема может не прокатить так что хз

Добавлено через 8 часов 17 минут
еще раз обращаюсь с вопросом : есть задача создать БД юридических договоров.Сделал добавление договора,поиск,удаление договора.Что еще можно добавить?

@Lampard7 · 24.05.2011, 11:32 **[ТС]**

Стас,скажите пож-та почему данный код не работает? Брал из вашего примера поиска.Вот:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Кнопка2_Click()
Dim sQ As String
u = Forms!Форма!ПолеСоСписком9
 
sQ = " SELECT Табл_Договори.* " & _
     " FROM Табл_Договори " & _
     " WHERE (([Табл_Договори].[" & u & "]) Like '*" & Forms!Форма!Поле0 & "*' or Forms!Форма!Поле0 is null) "
 
If Checkbox1.Value = 1 Then
sQ = " SELECT Табл_Договори.* " & _
     " FROM Табл_Договори " & _
     " WHERE (([Табл_Договори].[" & u & "]) Like '*" & Forms!Форма!Поле0 & "*' or Forms!Форма!Поле0 is null) " & _
     " AND (Табл_Договори.[Термін]) " & _
     " BETWEEN #" & Format(Me.DTPicker2, "mm\/dd\/yy") & _
     "# AND #" & Format(Me.DTPicker4, "mm\/dd\/yy") & "# "
    End If
 
 Me![TestForm].Form.RecordSource = sQ
 Me![TestForm].Form.Requery
 
End Sub

Добавлено через 4 минуты
Обычный поиск работает,а вот когда отмечаеш чекбокс на поиск по периодам кажется что толку от этого ноль так как ничего не изменяется.
Вроде раньше работало,сейчас решил проверить - и крыша

@Agapov_stas · 24.05.2011, 11:34

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Кнопка2_Click()
Dim sQ AS String
u = Forms!Форма!ПолеСоСписком9
 IF Checkbox1.Value = 1 Then
sQ = " SELECT Табл_Договори.* " & _
     " FROM Табл_Договори " & _
     " WHERE (([Табл_Договори].[" & u & "]) Like '*" & Forms!Форма!Поле0 & "*' or Forms!Форма!Поле0 is null) " & _
     " AND (Табл_Договори.[Термін]) " & _
     " BETWEEN #" & Format(Me.DTPicker2, "mm\/dd\/yy") & _
     "# AND #" & Format(Me.DTPicker4, "mm\/dd\/yy") & "# "
    End IF
 
 Me![TestForm].Form.RecordSource = sQ
 Me![TestForm].Form.Requery
 
End Sub

Добавлено через 57 секунд

Сообщение от Agapov_stas

IF Checkbox1.Value = 1

Кстати,а что это?
Может правильнее так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Кнопка2_Click()
Dim sQ AS String
u = Forms!Форма!ПолеСоСписком9
 IF Checkbox1.Value <>0 Then
sQ = " SELECT Табл_Договори.* " & _
     " FROM Табл_Договори " & _
     " WHERE (([Табл_Договори].[" & u & "]) Like '*" & Forms!Форма!Поле0 & "*' or Forms!Форма!Поле0 is null) " & _
     " AND (Табл_Договори.[Термін]) " & _
     " BETWEEN #" & Format(Me.DTPicker2, "mm\/dd\/yy") & _
     "# AND #" & Format(Me.DTPicker4, "mm\/dd\/yy") & "# "
    End IF
 
 Me![TestForm].Form.RecordSource = sQ
 Me![TestForm].Form.Requery
 
End Sub

@Lampard7 · 24.05.2011, 11:37 **[ТС]**

Дак вот в этом то и весь прикол.Пока не отметил чекбокс - обычный поиск,отметил - поиск по периоду.Ты просто кусок скопировал

Добавлено через 1 минуту
Checkbox1 - это там где птенчик ставиш.Так вот он принимает значения либо 0 либо 1.Если чекбокс не отмечен идет просто поиск,если отмечен идет поиск с учетом того что дата заключения должна попадать в выставленый DTPickerами период

Новые блоги и статьи Все статьи Все блоги /
[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .
попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .	Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .

@Lampard7 4 / 4 / 0 Регистрация: 13.05.2009 Сообщений: 106

	Поиск в базе данных MS Access по данным из поля формы 19.05.2011, 16:39. Показов 44301. Ответов 108 Метки нет (Все метки) Всем привет.Стоит такая задача : реализовать поиск по одной таблице.В форме есть поле.Данные из поля нужны для поиска.После поиска вывести соответствующую строчку из таблицы.Я так понимаю без VBA не обойтись.Но ничего в нем не шарю.Помогите кто чем могёт 0

@Lampard7 4 / 4 / 0 Регистрация: 13.05.2009 Сообщений: 106
	20.05.2011, 12:32 [ТС]
	Понятно.А вы не пробовали сделать выбор дат выпадающими списками? Это красивее походу 0

@Lampard7 4 / 4 / 0 Регистрация: 13.05.2009 Сообщений: 106
	20.05.2011, 13:06 [ТС]
	Я так понял это элемент ActiveX.Не подскажете как он называется а то их тут до чёрта? Добавлено через 9 минут Фух,все разобрался.Называется Microsoft Data and Time Picker.Все работает. Осталось добавить форму удаления желаемой записи и все. У Вас кстати, Стас, не найдется такого примера? Чтоб выбрал запись щелчком и "Удалить" 0

@Lampard7 4 / 4 / 0 Регистрация: 13.05.2009 Сообщений: 106
	20.05.2011, 15:57 [ТС]
	Всё сделал как выше описано.Выдает ошибку "Команда или макрокоманда "Удалить Запись" в данное время недоступна" 0

@Lampard7 4 / 4 / 0 Регистрация: 13.05.2009 Сообщений: 106
	20.05.2011, 16:14 [ТС]
	На подчиненной форме хочу удалить 0

@Lampard7 4 / 4 / 0 Регистрация: 13.05.2009 Сообщений: 106
	21.05.2011, 01:10 [ТС]
	Да я сам это нашел на нашем форуме.Вот собственно эта тема : Удаление записей через подчинённую форму Говорят при большой базе (>65000 записей) эта тема может не прокатить так что хз Добавлено через 8 часов 17 минут еще раз обращаюсь с вопросом : есть задача создать БД юридических договоров.Сделал добавление договора,поиск,удаление договора.Что еще можно добавить? 0

@Lampard7 4 / 4 / 0 Регистрация: 13.05.2009 Сообщений: 106
	24.05.2011, 11:37 [ТС]
	Дак вот в этом то и весь прикол.Пока не отметил чекбокс - обычный поиск,отметил - поиск по периоду.Ты просто кусок скопировал Добавлено через 1 минуту Checkbox1 - это там где птенчик ставиш.Так вот он принимает значения либо 0 либо 1.Если чекбокс не отмечен идет просто поиск,если отмечен идет поиск с учетом того что дата заключения должна попадать в выставленый DTPickerами период 0