Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено) / 25 сообщений из 25, страница 1 из 1
12.04.2004, 16:53
    #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:56
    #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:57
    #32477925
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено)
Что значит не крутится? Куда в этой программе оно заходит и куда нет?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.04.2004, 16:58
    #32477927
Лох Позорный
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено)
2 Moorka
А как связаны прокрутка цикла и выполнение выделенного красным цветом условия? MoveNext же за пределами условия, всегда должен выполнятся

З.Ы. Рекомендуется вызывать Update вручную. Иначе проблемы на последней записи могут быть.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.04.2004, 16:59
    #32477939
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено)
Лох, какой Update? Там ведь в рекордсет ничего не заносится.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.04.2004, 17:00
    #32477940
Geo
Geo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено)
:))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.04.2004, 17:03
    #32477949
Лох Позорный
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено)
ээээ
перепутал слегка
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.04.2004, 17:18
    #32477994
EDUDK01
EDUDK01
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено)
Или условие все таки не выполняется или еще раз значение переменных проверить стоит, Geo правильно сказал debug нужен, да и move first лишний.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.04.2004, 17:24
    #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:26
    #32478018
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено)
2 PaulB:

Первый вариант вроде ничем не отличается от исходного. Второй требует отдельной обработки кавычек.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.04.2004, 17:27
    #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:40
    #32478044
Moorka
Moorka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено)
2 PaulB:

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

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

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

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

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

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

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

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

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

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

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

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

Спасибо огромное!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Не понимаю, что не так??? (цикл не крутится, хотя условие удовлетворено) / 25 сообщений из 25, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 391ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1675393]:
 0ms
get settings:
 10ms
get forum list:
 18ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 50ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 78ms
get tp. blocked users:
 2ms
others: 212ms
total:  391ms
x
x
Закрыть


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