Странное выполнение логического условия

[Rom]

Заранее прошу прощения за глупый вопрос, но я никак не могу разобраться. Street, house, flat – имена TextBox-ов. Код такой (VBA):

Код: Выделить всё

…
Set rec = db.OpenRecordset("главный_кс", dbOpenDynaset)
…

If (street.Value <> rec.Fields("Улица").Value) Or (house.Value <> rec.Fields("Дом")) Or (flat.Value <> rec.Fields("Квартира")) Then

While rec.EOF <> True
If (street.Value = rec.Fields("Улица").Value) Or (house.Value = rec.Fields("Дом")) Or   (flat.Value = rec.Fields("Квартира")) Then

po1.Cells(9, 1) = rec.Fields("Код_кс").Value
…
…
…
End If
rec.MoveNext
Wend
…

Насколько я понимаю при проверки условия с оператором OR

Код: Выделить всё

If (street.Value = rec.Fields("Улица").Value) Or (house.Value = rec.Fields("Дом")) Or   (flat.Value = rec.Fields("Квартира")) Then

если, например house.Value равно значению в rec.Fields("Дом") то должно произойти вхождение в цикл. Но вхождения в цикл почему-то условию не происходит.
Вхождение выполняется только если street.Value = rec.Fields("Улица").Value

1. Почему так происходит? (я где-то ошибся?)
2. Как сделать, чтобы вхождение в цикл происходило при выполнении одного из условий?

Ещё раз пардон за, наверное, глупый вопрос. . Заранее спасибо

[tyomitch]

".Value" допиши всюду, где нехватает.

[Rom]

.Value дописал, но проблема осталась. Всё равно нет вхождения в цикл. Что же делать

[Ennor]

Не понял. С каких это пор дефолтное свойство текстбокса называется .Value? Вроде всю жизнь .Text было...

[alibek]

В VBA настоящим значением текстбокса является Value.

[FaKk2]

Rom

попробуй разграничить OR'ы скобками. Т.е. так:

Код: Выделить всё

If ((street.Value = rec.Fields("Улица").Value) Or (house.Value = rec.Fields("Дом"))) Or   (flat.Value = rec.Fields("Квартира")) Then

Мне кажется, компилятор как то хитро выполняет 3 ИЛИ сразу. Проверь дебагером что он там мутит.

[Rom]

Спасибо FAKK2 проблема решена

[tyomitch]

Rom

попробуй разграничить OR'ы скобками. Т.е. так:

Код: Выделить всё

If ((street.Value = rec.Fields("Улица").Value) Or (house.Value = rec.Fields("Дом"))) Or   (flat.Value = rec.Fields("Квартира")) Then

Пытался найти хоть одно отличие с оригинальным кодом Rom, но не смог
Ткните меня пальцем?

[FaKk2]

tyomitch

If ((street.Value = rec.Fields("Улица").Value) Or (house.Value = rec.Fields("Дом"))) Or (flat.Value = rec.Fields("Квартира")) Then

[FaKk2]

Rom

Пожалуйста. Я подозревал, что нужно расставить приоритеты.

[Rom]

С двумя условиями всё пошло. После этого проверял трете условие. На этом и остановился.
Ещё раз всем спасибо.

[uhm]

Как это? Какие приоритеты? Операция OR инвариантна к расстановке скобок!

[FaKk2]

uhm

Ну раз, ты такой умный, обьясни феномен
Возможно я очень глуп.

[uhm]

ХЗ, но дело не должно быть в этом, поскольку иначе это какой-то страшный баг. Непонятно еще, что заработало у автора, поскольку получившийся код мы не видим, а в вопросе какая-то путаница: в одном месте условия "не равно", в другом "равно", и в вопросе про вхождение в цикл стоит не то же самое, что в коде.

Возможно я очень глуп.

Я разве что-то про это говорил? Не хотел никого обидеть, просто очень удивился, что якобы сработал совет, который, с моей точки зрения, не может быть правильным.

[FaKk2]

uhm

Сработал код который я ему дал.

[uhm]

Ну, в топике этого прямым текстом не написано, более того,

С двумя условиями всё пошло. После этого проверял трете условие. На этом и остановился.

По-моему, чел сделал как-то еще более извращенно.

В любом случае, ты же не будешь спорить, что в теории должно быть абсолютно параллельно, как скобки расставлять?

[FaKk2]

uhm
Теория, не практика

[Ennor]

Теоретически, не должно быть разницы между теорией и практикой. На практике разница есть.

Если это действительно так (а лично я реально сомневаюсь), то да - это баг. И скорее всего он уже давно поправлен - ну признайтесь, кто из нас постоянно следит за обновлениями, выкладываемыми на Office Update?