Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / InputBox / 6 сообщений из 6, страница 1 из 1
23.09.2004, 20:47:56
    #32709415
Iskander68
Iskander68
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
InputBox
Сорри за примитивный вопрос, но не могу сообразить. Как мне по выбору кнопки
OK или Cancel инпутбокса присвоить или не присваивать значение полю
(учитывая, что значение может быть и не введено, т.е. если я таким образом
хочу очистить значение либо на Cancel сохранить старое)? Что-то не
получается использовать vbOK и vbCancel для этого.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2004, 20:52:04
    #32709420
Темный
Темный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
InputBox
инпутбокс как вызывается?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2004, 21:05:25
    #32709426
Iskander68
Iskander68
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
InputBox
допустим, сначала было

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:21:11
    #32709437
Serge Gavrilov
Serge Gavrilov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
InputBox
Для того чтобы отличить какая кнопка нажата в 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
| Ответить | Цитировать | Написать  
24.09.2004, 09:30:26
    #32709691
paparome
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
InputBox
StrPtr - ?

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

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

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

Адрес строки возвршает (imho)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / InputBox / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 385ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1671558]:
 0ms
get settings:
 11ms
get forum list:
 21ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 70ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 238ms
total:  385ms
x
x
Закрыть


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