ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / InputBox
6 сообщений из 6, страница 1 из 1
InputBox
    #32709415
Iskander68
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Iskander68
Участник
Сорри за примитивный вопрос, но не могу сообразить. Как мне по выбору кнопки
OK или Cancel инпутбокса присвоить или не присваивать значение полю
(учитывая, что значение может быть и не введено, т.е. если я таким образом
хочу очистить значение либо на Cancel сохранить старое)? Что-то не
получается использовать vbOK и vbCancel для этого.
...
Рейтинг: 0 / 0
23.09.2004, 20:47:56
| Ответить | Цитировать | Написать  
InputBox
    #32709420
Фотография Темный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Темный
Участник
инпутбокс как вызывается?
...
Рейтинг: 0 / 0
23.09.2004, 20:52:04
| Ответить | Цитировать | Написать  
InputBox
    #32709426
Iskander68
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Iskander68
Участник
допустим, сначала было

Me.Description = InputBox("Enter something")

потом через переменную

strTemp = InputBox("Enter something")
If strTemp = "" Then
Exit Sub
Else
Me.Description = strTemp
End If



--
Regards
Alexander Artamonov


"Темный" <nospam@sql.ru>; сообщил/сообщила в новостях следующее:
news:983836@sql.ru...
инпутбокс как вызывается?
Тема Ответить

Posted via ActualForum NNTP Server 1.0
...
Рейтинг: 0 / 0
23.09.2004, 21:05:25
| Ответить | Цитировать | Написать  
InputBox
    #32709437
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serge Gavrilov
Участник
Для того чтобы отличить какая кнопка нажата в InputBox OK или Cancel (например, при пустом вводе) можно использовать функцию StrPtr
Пример:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub TestInputBox()
    Dim strInput As String
    strInput = InputBox("rere")
    If StrPtr(strInput) =  0  Then
        MsgBox "Кнопка Cancel"
    Else
        MsgBox "Кнопка OK"
    End If
End Sub
...
Рейтинг: 0 / 0
23.09.2004, 21:21:11
| Ответить | Цитировать | Написать  
InputBox
    #32709691
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
StrPtr - ?

Чисто для повышения моей безграмотности
Что за функция такая - что-то в хелпе ее нет :(
...
Рейтинг: 0 / 0
24.09.2004, 09:30:26
| Ответить | Цитировать | Написать  
InputBox
    #32709754
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serge Gavrilov
Участник
paparomeStrPtr - ?

Чисто для повышения моей безграмотности
Что за функция такая - что-то в хелпе ее нет :(

Function StrPtr(Ptr As String) As Long
Member of VBA._HiddenModule

Адрес строки возвршает (imho)
...
Рейтинг: 0 / 0
24.09.2004, 10:02:24
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / InputBox
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32709426&tid=1671558]:
 0ms
get settings:
 6ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 32ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 33ms
get tp. blocked users:
 1ms
others: 197ms
total:  293ms
созд. / загр.: 293ms
x
x
Закрыть


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