Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Поиск значения, неравного чему-либо / 13 сообщений из 13, страница 1 из 1
05.09.2003, 14:33
    #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:37
    #32257084
Geo
Geo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск значения, неравного чему-либо
Перейдет, наверное, если ни одной записи не будет.
А вообще вместо a.EOF пиши not a.NoMatch
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.09.2003, 14:43
    #32257099
Vsevolod V
Vsevolod V
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск значения, неравного чему-либо
А вообще вместо a.EOF пиши not a.NoMatch
Это точно - перепутал я :)

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

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

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

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

(мне кажется я тебе об этом уже в 4 раз говорю
и когда мне надоест? )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.09.2003, 16:13
    #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:14
    #32257248
Vsevolod V
Vsevolod V
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск значения, неравного чему-либо
Fuck
sts = status
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.09.2003, 16:16
    #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:18
    #32257251
Geo
Geo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск значения, неравного чему-либо
узнаю твердую руку Vsevolod-а :)


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

Ну да. Хотя я делаю так исключительно в дань традиции. По-моему скоростей акцеса вполне хватает и для обработок строчек, особенно, если поле индексировано. Единственный известный мне плюс - так это невозможность случайно особо "умелым" юзерам ввести прямо в таблицу вместо "Заказ", к примеру "З а к а з !" и потом удивлятся, почему запись где-то не учитывается. Кроме того, у использования строк, есть и свои плюсы...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Поиск значения, неравного чему-либо / 13 сообщений из 13, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 413ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1679569]:
 0ms
get settings:
 10ms
get forum list:
 18ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 77ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 54ms
get tp. blocked users:
 2ms
others: 233ms
total:  413ms
x
x
Закрыть


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