ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Поиск значения, неравного чему-либо
13 сообщений из 13, страница 1 из 1
Поиск значения, неравного чему-либо
    #32257073
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Dim a As DAO.Recordset
Set a = Me!calc.Form.RecordsetClone
a.FindFirst  "[Статус] <> 'Заявка'" 
    If Not a.EOF Then
         MsgBox  ""
    Else:
         MsgBox " oe"
    End If


Этот код в любой ситуации не переходит на "Else". В чем проблема???
...
Рейтинг: 0 / 0
05.09.2003, 14:33
| Ответить | Цитировать | Написать  
Поиск значения, неравного чему-либо
    #32257084
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
Перейдет, наверное, если ни одной записи не будет.
А вообще вместо a.EOF пиши not a.NoMatch
...
Рейтинг: 0 / 0
05.09.2003, 14:37
| Ответить | Цитировать | Написать  
Поиск значения, неравного чему-либо
    #32257099
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
А вообще вместо a.EOF пиши not a.NoMatch
Это точно - перепутал я :)

Перейдет, наверное, если ни одной записи не будет.

Смысл задачи: программа должна проверить все ли записи в поле одинаковые (в данном случае равные слову "Заявка") и выполнить в зависимости от результата определенные действия
...
Рейтинг: 0 / 0
05.09.2003, 14:43
| Ответить | Цитировать | Написать  
Поиск значения, неравного чему-либо
    #32257180
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Может стоит воспользоваться каким-нибудь другим способом?
...
Рейтинг: 0 / 0
05.09.2003, 15:36
| Ответить | Цитировать | Написать  
Поиск значения, неравного чему-либо
    #32257195
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
Да нормальный способ, имхо. Ты же не собираешься его вызывать в цикле?
...
Рейтинг: 0 / 0
05.09.2003, 15:44
| Ответить | Цитировать | Написать  
Поиск значения, неравного чему-либо
    #32257198
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Geo
Ты же не собираешься его вызывать в цикле?
нет :)

Как-то через задницу работает... Но, думаю, разберусь :)
...
Рейтинг: 0 / 0
05.09.2003, 15:48
| Ответить | Цитировать | Написать  
Поиск значения, неравного чему-либо
    #32257209
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
Как-то через задницу работает
Чего там через задницу-то? В шести строчках? Единственное, что мне не понятно, так это зачем ты в "Статус"е хранишь строку, а не число-флажок?
...
Рейтинг: 0 / 0
05.09.2003, 15:55
| Ответить | Цитировать | Написать  
Поиск значения, неравного чему-либо
    #32257214
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Да все работает поитогу - тупил просто :)
зачем ты в "Статус"е хранишь строку, а не число-флажок?
Статус - это поле со списком из 6 пунктов... Типа флажок не покатит :)
...
Рейтинг: 0 / 0
05.09.2003, 15:57
| Ответить | Цитировать | Написать  
Поиск значения, неравного чему-либо
    #32257229
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
>Типа флажок не покатит :)
узнаю твердую руку Vsevolod-а :)

Geo про число говорил. код то бишь.
хранить надобно коды. и доп таблу со списком этих кодов (с названиями).

(мне кажется я тебе об этом уже в 4 раз говорю
и когда мне надоест? )
...
Рейтинг: 0 / 0
05.09.2003, 16:07
| Ответить | Цитировать | Написать  
Поиск значения, неравного чему-либо
    #32257244
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
2sasha_1
узнаю твердую руку Vsevolod-а


Просто здесь всего лишь 6 наименований и я не вижу особого смысла париться со справочником (хотя согласен, что справочник делать - это добротное дело)
И еще:
Тут есть такай запарка:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Private Sub status_Enter()
        
        If Me!sts =  "Заявка"  Then Me!sts.RowSource =  "Бронь" 
        If Me!sts =  "Бронь"  Then Me!sts.RowSource =  "Оплачено" 
        If Me!sts =  "Оплачено"  Then Me!sts.RowSource =  "Получено" 
        If Me!sts =  "Получено"  Then Me!sts.RowSource =  "Отгружено" 
        If Me!sts =  "Отгружено"  Then Me!sts.RowSource = ""
End Sub

Со справочником такое сделать морочно будет :)
...
Рейтинг: 0 / 0
05.09.2003, 16:13
| Ответить | Цитировать | Написать  
Поиск значения, неравного чему-либо
    #32257248
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Fuck
sts = status
...
Рейтинг: 0 / 0
05.09.2003, 16:14
| Ответить | Цитировать | Написать  
Поиск значения, неравного чему-либо
    #32257249
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
и чего морочного?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub status_Enter()
      select case e!sts 
        case  1  Me!sts.RowSource =  "Бронь" 
        case  2  Me!sts.RowSource =  "Оплачено" 
        case  3  Me!sts.RowSource =  "Получено" 
        case  4  Me!sts.RowSource =  "Отгружено" 
        case  5  Me!sts.RowSource = ""
      end select
End Sub

вот и все :)
...
Рейтинг: 0 / 0
05.09.2003, 16:16
| Ответить | Цитировать | Написать  
Поиск значения, неравного чему-либо
    #32257251
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
узнаю твердую руку Vsevolod-а :)


Geo про число говорил. код то бишь.
хранить надобно коды. и доп таблу со списком этих кодов (с названиями).

Ну да. Хотя я делаю так исключительно в дань традиции. По-моему скоростей акцеса вполне хватает и для обработок строчек, особенно, если поле индексировано. Единственный известный мне плюс - так это невозможность случайно особо "умелым" юзерам ввести прямо в таблицу вместо "Заказ", к примеру "З а к а з !" и потом удивлятся, почему запись где-то не учитывается. Кроме того, у использования строк, есть и свои плюсы...
...
Рейтинг: 0 / 0
05.09.2003, 16:18
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Поиск значения, неравного чему-либо
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32257209&tid=1679569]:
 0ms
get settings:
 7ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 53ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 189ms
total:  331ms
созд. / загр.: 331ms
x
x
Закрыть


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