Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вставка результата запроса в текстбокс / 6 сообщений из 6, страница 1 из 1
15.06.2004, 16:01:40
    #32561954
Omar_K
Omar_K
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вставка результата запроса в текстбокс
Private Sub Text0_BeforeUpdate(Cancel As Integer)
StrSQL = "Select elev from results where elev=1"
Set rs.Source = CurrentProject.OpenRecordSet(StrSQL)

End Sub

как теперь вставить значение рекордсета в конторл Text0
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.06.2004, 16:05:00
    #32561965
paparome
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вставка результата запроса в текстбокс
ИМХО - то что вы написали работать не будет :(

А может проще воспользоваться функцией DLookUP, а не мучаться с rs?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.06.2004, 16:05:40
    #32561968
маяк
маяк
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вставка результата запроса в текстбокс
Omar_KPrivate Sub Text0_BeforeUpdate(Cancel As Integer)
StrSQL = "Select elev from results where elev=1"
Set rs.Source = CurrentProject.OpenRecordSet(StrSQL)

End Sub

как теперь вставить значение рекордсета в конторл Text0text0.value="ну чего ты хочешь?".

Вообще-то результат выполнения запроса - это рекордсет. А текстбокс - это контейнер для данных типа стринг. Домашнее задание: вставляем событие OnLoad в чекбокс.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.06.2004, 16:07:13
    #32561973
Shark
Shark
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вставка результата запроса в текстбокс
Dim strSQL as string
strSQL="blablabla"
With CurrentPoject.Execute(strSQL)
Me!Text0=.Fields(0)
End With
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.06.2004, 16:07:25
    #32561977
маяк
маяк
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вставка результата запроса в текстбокс
Omar_KPrivate Sub Text0_BeforeUpdate(Cancel As Integer)
StrSQL = "Select elev from results where elev=1"
Set rs.Source = CurrentProject.OpenRecordSet(StrSQL)

End Sub

как теперь вставить значение рекордсета в конторл Text0Ах да, ещё мелочь затерялась. Даже если ты напишешь

Код: plaintext
1.
2.
3.
4.
5.
Private Sub Text0_BeforeUpdate(Cancel As Integer)
...
text0.value="чушь"
...
end sub
то у тебя всё равно чушь не возникнет в этом текстбоксе - он же как раз меняется после отработки твоего замечательного события. Или возникнет, но будет глючить. Впрочем, какая разница?..
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.06.2004, 16:07:55
    #32561980
Shark
Shark
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вставка результата запроса в текстбокс
И никаких мук:-)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вставка результата запроса в текстбокс / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 650ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1673843]:
 0ms
get settings:
 7ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 360ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 210ms
total:  650ms
x
x
Закрыть


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