ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вот тут то я потихоньку начинаю ненавидеть Билла Г. и его Access
16 сообщений из 16, страница 1 из 1
Вот тут то я потихоньку начинаю ненавидеть Билла Г. и его Access
    #32380913
Гавриленко Сергей Алексеевич
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гавриленко Сергей Алексеевич
Участник
Работающий код:
edSearch - поле
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Private Sub lblKeyWord_Click()

    Dim FilterString As String

    '------------------------------------------
    Me.CLIENTS_LIST.SetFocus
    Call MsgBox(DoubleK(LCase(edSearch.Value)))
    ' -------------------------------------------
 
    If Len(edSearch) >  0  Then
        
        With Me.CLIENTS_LIST.Form
        
            FilterString =  "exibit_id = "  & str(Me.ПолеСоСписком2.Value)
            FilterString = FilterString &  " and lcase(key_Word) like "  "*"  & DoubleK(LCase(Me.edSearch)) &  "*" ""
            .Filter = FilterString
            
            .FilterOn = True
            .Requery
        End With
    End If
End Sub


Если:
Код: plaintext
1.
2.
3.
    '------------------------------------------
    Call MsgBox(DoubleK(LCase(edSearch.Value)))
    Me.CLIENTS_LIST.SetFocus
    '-------------------------------------------

то Invalid use of null.
CLIENTS_LIST

Дальше - больше - скопировал контрол edSearch в другую форму, и
Код: plaintext
Call MsgBox( edSearch.Value )

выдает Invalid Use Of null.

Что происходит? И как прочесть содержимое поля?
...
Рейтинг: 0 / 0
19.01.2004, 19:08
| Ответить | Цитировать | Написать  
Вот тут то я потихоньку начинаю ненавидеть Билла Г. и его Access
    #32380932
Гавриленко Сергей Алексеевич
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гавриленко Сергей Алексеевич
Участник
Вопрос, в принципе, снимаю. Поборол

Код: plaintext
Me.edSearch.Text
...
Рейтинг: 0 / 0
19.01.2004, 19:32
| Ответить | Цитировать | Написать  
Вот тут то я потихоньку начинаю ненавидеть Билла Г. и его Access
    #32380971
Доброжелатель
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Доброжелатель
Участник
Свойства Value и Text - не совсем одинаковые вещи.
Да с Null ребята из MS перестарались, поэтому иногда приходится городить такие конструкции:
Код: plaintext
1.
2.
3.
    ... = Iif(IsNull(ctlField1.Value), "", ctlField1.Value)
    ... = Iif(IsNull(ctlField1.Value),  0 , ctlField1.Value)
    ' и т.д.

- это вроде "правильное" програмирование с точки зрения MS, а смоей точки зрения просто БРЕД!!!
Правда можно написать функцию, которая исходя из типа аргумента, возвращала бы нужное значение, но это все равно КОРЯВО
Код: plaintext
lngAtr = CorrectValue(ctlField1.Value) + CorrectValue(ctlField2.Value) *  15

а хотелось бы просто:
Код: plaintext
lngAtr = ctlField1.Value + ctlField2.Value *  15
...
Рейтинг: 0 / 0
19.01.2004, 20:16
| Ответить | Цитировать | Написать  
Вот тут то я потихоньку начинаю ненавидеть Билла Г. и его Access
    #32380972
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
авторВопрос, в принципе, снимаю
В принципе...
Вспоминается известный анекдот.
Бедный Билл Гейтс... Ему в случае чего и обругать-то некого
...
Рейтинг: 0 / 0
19.01.2004, 20:16
| Ответить | Цитировать | Написать  
Вот тут то я потихоньку начинаю ненавидеть Билла Г. и его Access
    #32380986
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
2 Доброжелатель
A NZ?
...
Рейтинг: 0 / 0
19.01.2004, 20:37
| Ответить | Цитировать | Написать  
Вот тут то я потихоньку начинаю ненавидеть Билла Г. и его Access
    #32381004
Доброжелатель
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Доброжелатель
Участник
2AlexJuice
NZ хм.. а это как раз та функция о которой я писал.
Это немного лучше, но не настолько, чтобы совсем хорошо :)
Спасибо.
...
Рейтинг: 0 / 0
19.01.2004, 21:03
| Ответить | Цитировать | Написать  
Вот тут то я потихоньку начинаю ненавидеть Билла Г. и его Access
    #32381009
Фотография Varan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Varan
Участник
Ну, от системы, у которой мат в исходинках нельзя слишком многого ожидать :-)
...
Рейтинг: 0 / 0
19.01.2004, 21:08
| Ответить | Цитировать | Написать  
Вот тут то я потихоньку начинаю ненавидеть Билла Г. и его Access
    #32381010
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
Не настолько, чтобы перестать ненавидеть Билла и его Г.?
...
Рейтинг: 0 / 0
19.01.2004, 21:09
| Ответить | Цитировать | Написать  
Вот тут то я потихоньку начинаю ненавидеть Билла Г. и его Access
    #32381373
Hibernate
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hibernate
Участник
Код: plaintext
= Iif(IsNull(ctlField1.Value), "", ctlField1.Value)

Доброжелательс моей точки зрения просто БРЕД!!!
и с моей - тоже ;-).
Можно ж проще:

Код: plaintext
= ctlField1.Value & vbNullString
...
Рейтинг: 0 / 0
20.01.2004, 11:12
| Ответить | Цитировать | Написать  
Вот тут то я потихоньку начинаю ненавидеть Билла Г. и его Access
    #32381475
Фотография # Darth Vader #
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
# Darth Vader #
Участник
Думали что в сказку попали?
...
Рейтинг: 0 / 0
20.01.2004, 12:01
| Ответить | Цитировать | Написать  
Вот тут то я потихоньку начинаю ненавидеть Билла Г. и его Access
    #32381788
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
2 Hibernate:
=Nz(ctlField1.Value, "")
меньше текста набирать
...
Рейтинг: 0 / 0
20.01.2004, 14:59
| Ответить | Цитировать | Написать  
Вот тут то я потихоньку начинаю ненавидеть Билла Г. и его Access
    #32381869
Доброжелатель
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Доброжелатель
Участник
=Nz(ctlField1.Value, "")
меньше текста набирать
Я бы сказал, что она универсальней.
...
Рейтинг: 0 / 0
20.01.2004, 15:37
| Ответить | Цитировать | Написать  
Вот тут то я потихоньку начинаю ненавидеть Билла Г. и его Access
    #32383117
фыыф
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
фыыф
Гость
авторменьше текста набирать
=Nz(ctlField1.Value, "")
а так?
=(ctlField1.Value & "")
:0) (тут еще скобки можно посшибать)

для чисел альтернатива:

=Nz(ctlField1.Value, 0)
=(ctlField1.Value & "0")
(используя неявное преобразование к типу переменной)
...
Рейтинг: 0 / 0
21.01.2004, 14:03
| Ответить | Цитировать | Написать  
Вот тут то я потихоньку начинаю ненавидеть Билла Г. и его Access
    #32383129
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
=(ctlField1.Value & "0") увеличит в 10 раз. :^)))))))))
...
Рейтинг: 0 / 0
21.01.2004, 14:07
| Ответить | Цитировать | Написать  
Вот тут то я потихоньку начинаю ненавидеть Билла Г. и его Access
    #32383379
Hibernate
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hibernate
Участник
о NULL в рекордсете вообще-то это философский вопрос:
если NULL в рекордсете появиться может (мало-ли, вдруг реализована логика при которой NULL трактуется как неизвестное значение) то эта логика должна быть реализована и в интерфейсе, тогда все понятно. Если же NULL в рекордсете появиться не может, то и писать все эти извраты, чтобы от него избавиться - нет смысла.
...
Рейтинг: 0 / 0
21.01.2004, 15:49
| Ответить | Цитировать | Написать  
Вот тут то я потихоньку начинаю ненавидеть Билла Г. и его Access
    #32383390
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
Если же NULL в рекордсете появиться не может, то и писать все эти извраты, чтобы от него избавиться - нет смысла.
И в MsgBox клиенту выдавать большими красными буквами NULL
...
Рейтинг: 0 / 0
21.01.2004, 15:53
| Ответить | Цитировать | Написать  
16 сообщений из 16, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вот тут то я потихоньку начинаю ненавидеть Билла Г. и его Access
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32383129&tid=1677087]:
 0ms
get settings:
 9ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 185ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 56ms
get tp. blocked users:
 1ms
others: 260ms
total:  549ms
созд. / загр.: 549ms
x
x
Закрыть


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