ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено)
25 сообщений из 25, страница 1 из 1
Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено)
    #32477914
Фотография Moorka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Moorka
Участник
Привет всем, это опять я-глупая Moorka
Есть проблема: не понимаю в чем.
Все вроде окей, а цикл не крутится, хотя условие удовлетворено(помечено красным)
Может я прозевала чаво?
Да, кстати, значение FIELDS(0) текстовое

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Set t_abonents = db.OpenRecordset( "Select * from ABONENTS;" )

With t_abonents
  .MoveFirst
  Do While Not .EOF 
    If .Fields( 0 ) = Text1.Value Then
      abonent_id = .Fields( 0 )
      abonent_n = .Fields( 1 )
      abonent_sn = .Fields( 2 )
      abonent_tel = .Fields( 5 )
      abonent_mp_id = .Fields( 6 )
    End If
    .MoveNext 
  Loop
End With
...
Рейтинг: 0 / 0
12.04.2004, 16:53
| Ответить | Цитировать | Написать  
Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено)
    #32477922
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
а если перед
If .Fields(0) = Text1.Value Then
добавить
debug.print .Fields(0) & " *** " & Text1.Value Then & " *** " & (.Fields(0) = Text1.Value)
, выполнить программу и нажать ctrl=g, что будет в открывшемся окошке написано?
...
Рейтинг: 0 / 0
12.04.2004, 16:56
| Ответить | Цитировать | Написать  
Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено)
    #32477925
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Что значит не крутится? Куда в этой программе оно заходит и куда нет?
...
Рейтинг: 0 / 0
12.04.2004, 16:57
| Ответить | Цитировать | Написать  
Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено)
    #32477927
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
2 Moorka
А как связаны прокрутка цикла и выполнение выделенного красным цветом условия? MoveNext же за пределами условия, всегда должен выполнятся

З.Ы. Рекомендуется вызывать Update вручную. Иначе проблемы на последней записи могут быть.
...
Рейтинг: 0 / 0
12.04.2004, 16:58
| Ответить | Цитировать | Написать  
Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено)
    #32477939
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Лох, какой Update? Там ведь в рекордсет ничего не заносится.
...
Рейтинг: 0 / 0
12.04.2004, 16:59
| Ответить | Цитировать | Написать  
Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено)
    #32477940
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
:))
...
Рейтинг: 0 / 0
12.04.2004, 17:00
| Ответить | Цитировать | Написать  
Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено)
    #32477949
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
ээээ
перепутал слегка
...
Рейтинг: 0 / 0
12.04.2004, 17:03
| Ответить | Цитировать | Написать  
Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено)
    #32477994
EDUDK01
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
EDUDK01
Участник
Или условие все таки не выполняется или еще раз значение переменных проверить стоит, Geo правильно сказал debug нужен, да и move first лишний.
...
Рейтинг: 0 / 0
12.04.2004, 17:18
| Ответить | Цитировать | Написать  
Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено)
    #32478009
PaulB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PaulB
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Set t_abonents = db.OpenRecordset( "Select * from ABONENTS;" ,dbopensnapshot)
Do until t_abonents.EOF
    If t_abonents.Fields( 0 ) = Text1.Value Then
      with t_abonents
         abonent_id = .Fields( 0 )
         '...
      end with
    End If
    t_abonents.MoveNext 
Loop

Или:

Код: plaintext
1.
Set t_abonents = db.OpenRecordset( "Select * from ABONENTS WHERE Поле1='" & Text1.Value & "';" ,dbopensnapshot)
...
Рейтинг: 0 / 0
12.04.2004, 17:24
| Ответить | Цитировать | Написать  
Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено)
    #32478018
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
2 PaulB:

Первый вариант вроде ничем не отличается от исходного. Второй требует отдельной обработки кавычек.
...
Рейтинг: 0 / 0
12.04.2004, 17:26
| Ответить | Цитировать | Написать  
Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено)
    #32478020
Фотография Moorka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Moorka
Участник
2 Geo:

Compile error: syntax error

поэтому в окошке пусто :(
...
Рейтинг: 0 / 0
12.04.2004, 17:27
| Ответить | Цитировать | Написать  
Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено)
    #32478023
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
У Geo лишнее слово Then.
...
Рейтинг: 0 / 0
12.04.2004, 17:27
| Ответить | Цитировать | Написать  
Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено)
    #32478044
Фотография Moorka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Moorka
Участник
2 PaulB:

цикл крутится, а
условие все равно не выполняется :(((
...
Рейтинг: 0 / 0
12.04.2004, 17:40
| Ответить | Цитировать | Написать  
Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено)
    #32478059
PaulB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PaulB
Гость
тогда поставьте: trim(ucase(Поле1))=trim(Ucase(a1))
...
Рейтинг: 0 / 0
12.04.2004, 17:45
| Ответить | Цитировать | Написать  
Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено)
    #32478066
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
2 Moorka:

В тот момент, когда условие должно выполниться, чему равны оба сравниваемых значения?
...
Рейтинг: 0 / 0
12.04.2004, 17:49
| Ответить | Цитировать | Написать  
Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено)
    #32478072
N_A
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
N_A
Участник
Юзай StrComp(...) для сравнения, не забудь прочитать справку про возвращаимые значения, и аргументы.
...
Рейтинг: 0 / 0
12.04.2004, 17:55
| Ответить | Цитировать | Написать  
Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено)
    #32478081
Фотография Moorka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Moorka
Участник
2 Владимир Саныч:

fields(0)=36605300125 (text)
text1.value=36605300125
...
Рейтинг: 0 / 0
12.04.2004, 18:01
| Ответить | Цитировать | Написать  
Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено)
    #32478083
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
А почему у второго не помечено "text"? Оно не текст? Ну так оно не равно!
...
Рейтинг: 0 / 0
12.04.2004, 18:02
| Ответить | Цитировать | Написать  
Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено)
    #32478097
Фотография Moorka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Moorka
Участник
2 Владимир Саныч:

Вы хотите сказать, что text1.value имеет числовое значение?
А как тогда введенному числу 36605300125 переделаться в текст?
Или может проще в самой тейбле формат изменить???
...
Рейтинг: 0 / 0
12.04.2004, 18:11
| Ответить | Цитировать | Написать  
Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено)
    #32478108
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Секундочку. Мои предположения - это, конечно, хорошо, но мне хочется знать, как на самом деле. Это действительно не текст?

То, что я пишу дальше, - только при положительном ответе на предыдущий вопрос.

Есть два способа сравнивать число с текстом:
1. превратить число в текст функцией str, cstr или format,
2. превратить текст в число функцией val.

Какой из них выбирать - зависит от задачи. Если данные на самом деле числовые (несмотря на текстовый тип поля) и важно "сколько", то надо все превращать в числа. Если данные на самом деле текстовые (и среди них попадаются буквы и прочие нечисловые символы и важен каждый пробельчик), тогда надо все превращать в текст.
...
Рейтинг: 0 / 0
12.04.2004, 18:17
| Ответить | Цитировать | Написать  
Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено)
    #32478109
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
При этом если переводить все в текст, то важно по какому формату. Одно и то же число, превращенное в текст по-разному, на "равно" не сработает!!!
...
Рейтинг: 0 / 0
12.04.2004, 18:19
| Ответить | Цитировать | Написать  
Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено)
    #32478117
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
А для проверки можно взять
typename(text1.value)
...
Рейтинг: 0 / 0
12.04.2004, 18:22
| Ответить | Цитировать | Написать  
Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено)
    #32478143
Фотография Moorka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Moorka
Участник
2 Владимир Саныч:

Как хорошо, что на свете есть такие люди, как Вы!
Спасибо огромное, все работает!!!

Может вы за одно подсказали-бы, как по времени, взятому из поля (short time формата) таблицы, посчитать сколько в минутах етого времени???

напр: значение поля = 2:23 (short time)
в минутах это = 143, но как это посчитать?

ДА, и можно-ли совершать арифм.действия со временем
напр: 2:56-2:50=0:06 или не так все просто?
...
Рейтинг: 0 / 0
12.04.2004, 19:12
| Ответить | Цитировать | Написать  
Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено)
    #32478153
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Складывать и вычитать время можно.

В минутах - это так:
minute(x)+hour(x)*60+day(x)*60*24
Если будет больше, чем месяц, то придется учитывать, сколько дней в каждом месяце.
...
Рейтинг: 0 / 0
12.04.2004, 19:29
| Ответить | Цитировать | Написать  
Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено)
    #32478187
Фотография Moorka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Moorka
Участник
2 Владимир Саныч:

Спасибо огромное!
...
Рейтинг: 0 / 0
12.04.2004, 20:19
| Ответить | Цитировать | Написать  
25 сообщений из 25, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32478108&tid=1675393]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 17ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 2ms
others: 207ms
total:  302ms
созд. / загр.: 302ms
x
x
Закрыть


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