Поиск записи в Access

[EnergyUzh]

Нету возможности писать "пробел" в поле Поиск. После нажатия на него, предидущий поиск как бы отменяеться:)

[HandKot]

поле Поиск - это текстовое поле?

[EnergyUzh]

Да, Текст Бокс

[HandKot]

так вроде в текст бокс не запрещено писать "пробел"

объясните подробнее никак не пойму

[EnergyUzh]

Спасибо уже разобрался.

[saintrough]

Подскажите пожалуйста, как решить следующую задачу:

Код:

Private Sub MyTextBox_Change()
    Dim rst As DAO.Recordset, intI As Integer

    Set rst = Form.Recordset
    rst.FindFirst "[MyField] like '" & MyTextBox.Text & "*'"
    Debug.Print rst.NoMatch
    MyTextBox.SelStart = Len(MyTextBox.Text)
    
End Sub

тут всё работает отлично, но хотелось бы, чтобы в форме также отображались и остальные записи, соответствующие тексту в поле, причём остальные записи не только текстовые, но и числа, даты и т.д.

[HandKot]

если правильно понял, то на форме расположите грид
источником данных у грида сделайте рекордсет rst
и при установке фильтра на рекордсете rst.Filter в гриде будут отображатся отфильтрованные записи

ЗЫЖ за указание правильности свойств не отвечаю, но такие точно есть

[saintrough]

Спасибо! надо будет попробовать)

[Johann]

Если не в тот топик, извините, хотя смысл моего вопроса похож на смысл присутствующих в этой теме вопросов.

Итак, имеется БД в access 2007.

Не могу реализовать следующее:
Чтобы при введении записи в поле на форме, проверялись совпадения этого поля с полем в таблице и если совпадений нет, то добавлять запись в таблицу. А если есть, то выводить сообщение об ошибке.

Пример.
Таблица - students (Поля: id, fio, zachetka)
Форма - form (Поля: id, fio, zachetka)
Если у определенного студента номер зачетки совпадает с вводимым номером, то выводить ошибку. (Такой номер зачетки уже есть у студента "такого-то". Введите другой номер зачетки.)

Помогите пожалуйста. На мой взгляд объяснил доступно.
Заранее всем спасибо.

[RXL]

Johann, попробуй создать уникальный индекс по этому полю: если при вставке такое значение в столбце уже есть, то выдаст ошибку.

[Johann]

Ну вот мне желательно бы без индексов. Я реализовывал такое с помощью поля: "Индексирование поля" при создании структуры таблицы, но мне нужно именно путем VBA решить проблему!

[RXL]

Тогда сперва сделай запрос на наличие такого значения. Только без индекса оно будет выполняться медленно (если конечно таблица не из 100 записей).

[Johann]

А подробнее?))

Записей в таблице действительно не много.

P.s прошу прощения сразу за мою непонятливость. Работаю с акцесс всего пару месяцев вынужденно, поэтому много непонятного для меня. Мне много ближе веб-программирование.

[RXL]

Johann, сформулируй вопрос - что не понятно?

[Johann]

Как сделать запрос на наличие значения.

[Johann]

А еще конкретнее, я хочу сделать цикл с параметром, который начиная с первого значения и кончая самым последнем проверяет есть ли запись с таким значением, если есть - ошибка, нет - вставляем запись.
Просто я не знаю как реализовать это в VBA, а времени читать литературу нет, поэтому обратился к вам.
Точнее, я читал некоторые фрагменты по циклам в VBA, но никак не смог сделать так, чтобы он из таблицы значения проверял.

[RXL]

Как же ты веб-программированием занимаешься без баз?

Код:

SELECT id FROM tab WHERE id = $new_value;

[Johann]

Брр, ну это понятно. Прочти выше пост.

[RXL]

Johann, см. в MSDN описание объектов ADO - это не сложно. Примером сейчас помочь не могу.
Можно тут статьи про ADO почитать: https://club.shelek.ru/view.php?id=17

[Johann]

Спасибо за советы. Сделал все. Даже больше чем нужно было!

[Spirit]

подскажите пожалуйста..
При работе в форме с текущей таблицей пользуюсь FindFirst - проблем никаких не возникает.
А при открытии из той же формы другой таблицы (например, Set rstDao = CurrentDb.OpenRecordset("Склад"))
FindFirst не работает!!!  Проверял - таблица точно прицеплена. В чем может быть причина?

[RXL]

Если курсор однонаправленный, то перемотка невозможна.

[Spirit]

А есть какой либо правильный путь?
Задание таково: есть две таблицы  приход и склад. При вводе данных в приход (поле товар) должно проверяться наличие  таково же товара  в  таблице складе. если есть - запрос на объединение, нет - на дополнение. Все работает но вручную. Как в VB лучше оформить
поиск для дальнейшей обработки

[RXL]

Алгоритм прост:

1. открыл
2. проверил на конец
3. прочитал
4. перешел к следующему (п.2)
5. закрыл

[slb51]

Я попробовал реализовать этот код. Работает без проблем.

Код:

Private Sub MyTextBox_Change()
    Dim rst As DAO.Recordset, intI As Integer

    Set rst = Form.Recordset
    rst.FindFirst "[MyField] like '*" & MyTextBox.Text & "*' OR [MyField2] like '*" & MyTextBox.Text & "*'"
    Debug.Print rst.NoMatch
    MyTextBox.SelStart = Len(MyTextBox.Text)
    
End Sub

Однако, в этой связи у меня возникло два вопросов. Во-первых, как сделать, чтобы MyTextBox был на главной форме, а поиск происходил по подчинённой форме? И, во-вторых, если это единичная форма, в смысле нет у неё подчинённой формы, а поиск ведётся прямо в ней же, можно ли сделать, чтобы форма была в режиме таблицы и на ней было бы видно MyTextBox?

Добавлено через 1 час, 37 минут и 50 секунд:

вроде в текст бокс не запрещено писать "пробел"

Спасибо, уже разобрался

А я не разобрался. Объясните, пожалуйста.

[HandKot]

поиск происходил по подчинённой форме

замените на нужную форму

Код:

Set rst = FormПодчиненная.Recordset

форма была в режиме таблицы и на ней было бы видно MyTextBox

тут я не знаю.
но что мешает на форме разместить грид?

[slb51]

Так не получается.

Set rst = FormПодчиненная.Recordset

Здесь Form - это же не имя формы.

Добавлено через 8 часов, 2 минуты и 51 секунду:
Разобрался:

Set rst = FormПодчиненная.Recordset

Почти правильно. Только надо вот так:

Код:

Set rst = Подчиненная.Form.Recordset

[ivanov2000]

EnergyUzh,

Нету возможности писать "пробел" в поле Поиск. После нажатия на него, предидущий поиск как бы отменяеться:)

, та же проблема, как решить?

[HandKot]

давно это было....
расскажите о Вашей проблеме более конкретно, что, где, как

[ivanov2000]

давно это было....
расскажите о Вашей проблеме более конкретно, что, где, как

Имеется форма:

и

Код:
Private Sub Поиск_Change()
   
    Dim rst As DAO.Recordset
    Set rst = Form.Recordset
    rst.FindFirst "[ЛПУ] like '*" & Поиск.Text & "*'"
    Debug.Print rst.NoMatch
    Поиск.SelStart = Len(Поиск.Text)

End Sub

Когда пытаюсь найти конкретную аптеку в поле Поиск, например Аптека № 4 /85, то не могу ввести пробелы. Поле Поиск - это текстовое поле!