ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Обновить контрол формы
25 сообщений из 27, страница 1 из 2
  1  все
Обновить контрол формы
    #32883163
Tyr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tyr
Гость
Следующая проблема:
ввожу в поле на форме текст. После каждого нажатия клавиши (изменения в поле) нужно обновлять значение поля для считывания значения и внесения ее в переменную. помогите кодом.
...
Рейтинг: 0 / 0
25.01.2005, 18:13:57
| Ответить | Цитировать | Написать  
Обновить контрол формы
    #32883243
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Событие OnChange контрола, Me!MyField.Requery
...
Рейтинг: 0 / 0
25.01.2005, 18:58:28
| Ответить | Цитировать | Написать  
Обновить контрол формы
    #32883729
Tyr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tyr
Гость
Выдает ошибку 2118: необходимо сохранить текущее поле перед выполнением макрокоманды Обновление.
...
Рейтинг: 0 / 0
26.01.2005, 09:34:23
| Ответить | Цитировать | Написать  
Обновить контрол формы
    #32883735
Фотография Программист-Любитель
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программист-Любитель
Участник
В Change разумеется нельзя делать такие манипуляции. Но можно каждый раз перезаписывать текущее содержимое Control.Text в вашу переменную.

А зачем все это надо ? Может если шире описать задачу другие методы можно применить ?
...
Рейтинг: 0 / 0
26.01.2005, 09:37:28
| Ответить | Цитировать | Написать  
Обновить контрол формы
    #32883801
Tyr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tyr
Гость
Описую задачу:
есть поле (контрол 1), которое необходимо для осуществления отбора в списке (контрол 2) (ввел букву и через SQL запрос выбрали все варианты, которые подходят - WHERE [] like 'буква*'
Поэтому надо после кадого нажатого символа - передавать его значение в переменную.
Для этого нужно после начатия клавиши обновлять значение в поле (контрол 1).
...
Рейтинг: 0 / 0
26.01.2005, 10:05:58
| Ответить | Цитировать | Написать  
Обновить контрол формы
    #32883909
Alexus12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexus12
Участник
читай сюда
http://www.sql.ru/forum/actualthread.aspx?tid=151196&hl=txtfindseller
...
Рейтинг: 0 / 0
26.01.2005, 10:44:34
| Ответить | Цитировать | Написать  
Обновить контрол формы
    #32884016
Tyr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tyr
Гость
У меня это не работает (видо по тому что не все в этом понимаю):
Вопрос в принципе один: что делает эта строчка:
Set rs = .Execute
...
Рейтинг: 0 / 0
26.01.2005, 11:16:32
| Ответить | Цитировать | Написать  
Обновить контрол формы
    #32884054
Фотография Программист-Любитель
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программист-Любитель
Участник
Откуда .Execute ?

В примере все уже расписано - примените к своей форме, таблице и т.д.
...
Рейтинг: 0 / 0
26.01.2005, 11:27:51
| Ответить | Цитировать | Написать  
Обновить контрол формы
    #32884077
Tyr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tyr
Гость
Вот откуда (жирным выделил)
Применить попробовал - не работает

Private Sub SearchField_Change()

Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
Dim rs As ADODB.Recordset

With cmd
.ActiveConnection = CurrentProject.Connection
.CommandText = "SELECT Clients.ClientID, Rekveziti.Name FROM dbo.Rekveziti INNER JOIN" _
& " dbo.Clients ON dbo.Rekveziti.ClientID = dbo.Clients.ClientID WHERE Name Like N'%" & Me.SearchField.Text & "%'"


Set rs = .Execute
If rs.RecordCount > 0 Then
Me.SearchField.RowSource = "SELECT Clients.ClientID, Rekveziti.Name FROM dbo.Rekveziti INNER JOIN" _
& " dbo.Clients ON dbo.Rekveziti.ClientID = dbo.Clients.ClientID WHERE Name Like N'%" & Me.SearchField.Text & "%'"
Else
MsgBox ("Не найдено")
Me.SearchField.RowSource = ""
End If

End With
End Sub
...
Рейтинг: 0 / 0
26.01.2005, 11:34:52
| Ответить | Цитировать | Написать  
Обновить контрол формы
    #32884091
Tyr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tyr
Гость
Ввожу в поле поиска букву - а поиск после нажатия не осуществляется.
НУжно обновить содержания поля, в котором вводится текст для поиска.
Вот мой код:

Dim rst As ADODB.Recordset
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
Const strSQL = "SELECT тблСправочникКонтрагентов.ОКПО, тблСправочникКонтрагентов.Контрагент, тблСправочникКонтрагентов.Тип FROM тблСправочникКонтрагентов " _
& "WHERE тблСправочникКонтрагентов.Контрагент like '"

With cmd
.ActiveConnection = CurrentProject.Connection
.CommandText = strSQL & Me!полПоискОКПО.Value & "*';"

Set rst = .Execute
Me!спКонтрагенты.RowSource = strSQL & Me!полПоискОКПО.Value & "*';"


End With
...
Рейтинг: 0 / 0
26.01.2005, 11:38:47
| Ответить | Цитировать | Написать  
Обновить контрол формы
    #32884105
Фотография Программист-Любитель
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программист-Любитель
Участник
1. Открывать рекордсет чтобы проверить есть ли записи - ну, ну. Dcount'а на это с лихвой хватает.

2. Судя по синтаксису это SQL сервер ?

3. Читал, не смог понять - при изменении контрола в НЕГО же заталкивается новый рекордсоурсе ? Противоречит описанной вами постановке задачи с двумя контролами.

В общем, сумятица.
...
Рейтинг: 0 / 0
26.01.2005, 11:41:46
| Ответить | Цитировать | Написать  
Обновить контрол формы
    #32884153
Tyr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tyr
Гость
Так блин делал все как советовали.
Может Вы предложете как обновить содержание поля, после каждого нажатия клавиши?
...
Рейтинг: 0 / 0
26.01.2005, 11:54:15
| Ответить | Цитировать | Написать  
Обновить контрол формы
    #32884175
Фотография Программист-Любитель
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программист-Любитель
Участник
Как только вы внятно сформулируете сколько у вас контролов и что все-таки должно происходить по условию задачи.
...
Рейтинг: 0 / 0
26.01.2005, 12:00:49
| Ответить | Цитировать | Написать  
Обновить контрол формы
    #32884199
Tyr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tyr
Гость
Задача:
Существует 2 контрола:
1. Список. В данном контроле будет отражаться таблица с данными
2. Поле. В данном контроле будет вводиться текст, для осуществления поиска в контроле 1.

Мне необходимо - чтобы после нажатия клавиши (при условии что текст вводится в контрол 2) в контроле 1 осуществлялся отбор тех позиций, которые частично совпадают с введенным текстом в контроле 2.

Так понятно?
...
Рейтинг: 0 / 0
26.01.2005, 12:09:00
| Ответить | Цитировать | Написать  
Обновить контрол формы
    #32884246
Фотография Программист-Любитель
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программист-Любитель
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
SearchBox - строка для поиска
ObjectList - список с данными ,  1 -й столбец (скрытый) код,  2 -й - наименование
tblObject - таблица данных iObjectID, sObjectName 

SearchBox_Change()

    if Len(Me.SearchBox) >  0  then
        Me.ObjectList.Rowsource = & _
            "SELECT iObjectID, sObjectName " & _
            "FROM tblObject " & _
            "WHERE sObjectName LIKE '" & Me.SearchBox.Text & "'* " & _
           "ORDER BY sObjectName"
    end if

End sub
...
Рейтинг: 0 / 0
26.01.2005, 12:22:53
| Ответить | Цитировать | Написать  
Обновить контрол формы
    #32884265
Фотография Программист-Любитель
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программист-Любитель
Участник
Тьфу!

Код: plaintext
должно быть Len(Me.SearchBox.Text) и еще "*'" вместо "'*" в LIKE
...
Рейтинг: 0 / 0
26.01.2005, 12:26:06
| Ответить | Цитировать | Написать  
Обновить контрол формы
    #32884299
Tyr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tyr
Гость
Огромное спасибо - моя проблема была в том, что я делал все через:
Me.SearchBox.Value
а не через
Me.SearchBox.Text
опишите если можно этот метод.
Заранее спасибо
...
Рейтинг: 0 / 0
26.01.2005, 12:34:07
| Ответить | Цитировать | Написать  
Обновить контрол формы
    #32884310
Фотография Программист-Любитель
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программист-Любитель
Участник
Внутри событие Change свойство .Text - самое оно.

Значения пока нет и не будет до выхода из контрола. Сохранять или анду делать нельзя.

А .Text, .SelStart .SelLength - часто используются.
...
Рейтинг: 0 / 0
26.01.2005, 12:36:25
| Ответить | Цитировать | Написать  
Обновить контрол формы
    #32884334
Tyr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tyr
Гость
А где можно найти описание этих методов
Дело в том, что у меня нет Хелпа (и не будет)
Помочь можете - ссылками?
...
Рейтинг: 0 / 0
26.01.2005, 12:42:07
| Ответить | Цитировать | Написать  
Обновить контрол формы
    #32884351
Фотография Программист-Любитель
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программист-Любитель
Участник
Оборудуйте свое рабочее место всем необходимым, в том числе MSDN'ом, справками... Иначе горе а не работа.
...
Рейтинг: 0 / 0
26.01.2005, 12:45:56
| Ответить | Цитировать | Написать  
Обновить контрол формы
    #32884383
Tyr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tyr
Гость
А где можно найти описание этих методов
Дело в том, что у меня нет Хелпа (и не будет)
Помочь можете - ссылками?
...
Рейтинг: 0 / 0
26.01.2005, 12:51:01
| Ответить | Цитировать | Написать  
Обновить контрол формы
    #32884668
Tyr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tyr
Гость
А где можно найти описание этих методов
Дело в том, что у меня нет Хелпа (и не будет)
Помочь можете - ссылками?
...
Рейтинг: 0 / 0
26.01.2005, 13:54:05
| Ответить | Цитировать | Написать  
Обновить контрол формы
    #32884693
Фотография Программист-Любитель
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программист-Любитель
Участник
Ну как это у себя хелп не поставить!

1) Решить организационно проблему со своими админами.

2) Переписать по сети с машины, где нормально установлен офис.

3)

4) Читать он-лайн с MSDN'a
...
Рейтинг: 0 / 0
26.01.2005, 14:02:54
| Ответить | Цитировать | Написать  
Обновить контрол формы
    #32884710
Фотография Программист-Любитель
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программист-Любитель
Участник
Куда делось ?

http://www.microsoft.com/downloads/details.aspx?FamilyID=B66F9558-3416-48CD-A037-90AAAD43EC11&displaylang=EN
...
Рейтинг: 0 / 0
26.01.2005, 14:06:43
| Ответить | Цитировать | Написать  
Обновить контрол формы
    #32884823
Tyr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tyr
Гость
А где можно найти описание этих методов
Дело в том, что у меня нет Хелпа (и не будет)
Помочь можете - ссылками?
...
Рейтинг: 0 / 0
26.01.2005, 14:38:24
| Ответить | Цитировать | Написать  
25 сообщений из 27, страница 1 из 2
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Обновить контрол формы
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32884383&tid=1669041]:
 0ms
get settings:
 8ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 162ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 60ms
get tp. blocked users:
 1ms
others: 206ms
total:  477ms
созд. / загр.: 477ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]