Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вот тут то я потихоньку начинаю ненавидеть Билла Г. и его Access / 16 сообщений из 16, страница 1 из 1
19.01.2004, 19:08
    #32380913
Гавриленко Сергей Алексеевич
Гавриленко Сергей Алексеевич
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вот тут то я потихоньку начинаю ненавидеть Билла Г. и его Access
Работающий код:
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:32
    #32380932
Гавриленко Сергей Алексеевич
Гавриленко Сергей Алексеевич
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вот тут то я потихоньку начинаю ненавидеть Билла Г. и его Access
Вопрос, в принципе, снимаю. Поборол

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

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

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

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

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


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