ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Цикл Do...Loop
69 сообщений из 69, показаны все 3 страниц
  все  
Цикл Do...Loop
    #32244272
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Есть ленточная форма (Источник записей - табл. Калькуляция). Рассмотрим два поля этой формы: Поставщик (post) и Оплачено (opl). Поле оплачено заполняется из таблицы Касса в зависимости от значения в поле Поставщик, т.е. из кассы берутся данные об оплате, которые идентифицируются номером заказа и Поставщиком. Для заполнения поля оплачено я написал такую штуку:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Dim d As DAO.Recordset
Dim n As DAO.Recordset

Set d = CurrentDb.OpenRecordset( "select * from cash where [поставщик] = '" & Me!post & "'" )
Set n = Me.Form.RecordsetClone
    If Not d.EOF Then
    n.MoveFirst
    d.MoveFirst
        Do Until d.EOF
            Me!opl = d( "расход" )
            d.MoveNext
            n.MoveNext
        Loop
    Else: Me!opl = ""
    End If
    d.Close


Но этот код заполняет все поле значениями, связанными только с текущей строкой в форме.
Что ж тут исправить???
...
Рейтинг: 0 / 0
22.08.2003, 11:06
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244290
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
напиши у контрола в соурсе
=dlookup ("расход","cash","[поставщик] = '" & Me!post & "'")

криво, зато просто :)
...
Рейтинг: 0 / 0
22.08.2003, 11:10
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244303
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
2sasha_1
Ошибка синтаксиса во введенном выражении: пропущен операнд или оператор...

Да и вообще, что это за функция такая? :)
...
Рейтинг: 0 / 0
22.08.2003, 11:15
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244307
GuDVin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GuDVin
Участник
dblookup
...
Рейтинг: 0 / 0
22.08.2003, 11:16
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244309
Nick987
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nick987
Гость
bookmark забыл
...
Рейтинг: 0 / 0
22.08.2003, 11:17
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244310
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
блин.
ну вместо , надо ;
=dlookup ("расход";"cash";"[поставщик] = '" & Me!post & "'")
...
Рейтинг: 0 / 0
22.08.2003, 11:17
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244313
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Надо так
=dlookup ("расход" ; "cash" ; "[поставщик] = '" & Me!post & "'")

Теперь другая проблема:
Эта функция возвращает значение только для первостроки, причем помещает это значение в последней строке, которая для добавления заисей...
...
Рейтинг: 0 / 0
22.08.2003, 11:18
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244317
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
первострока следует читать, как "первая строка"
...
Рейтинг: 0 / 0
22.08.2003, 11:19
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244323
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
2Nick987
и что мне с ним делать??? с bookmarkom :)
...
Рейтинг: 0 / 0
22.08.2003, 11:22
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244326
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
2 Vsevolod V:
чего-то я не понял. почему первая строка.
напиши так
=dlookup ("расход";"cash";"[поставщик] = '" & [post] & "'")
у меня все работает правильно.
если не получится есть еще один вариант - правильный :)
...
Рейтинг: 0 / 0
22.08.2003, 11:23
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244337
Nick987
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nick987
Гость
Когда переходишь по записям в Recordsetclone, на форме это не отражается, а в коде ты используешь ссылку на форму "Me!opl". Стало быть Me.bookmark = n.bookmark, если я правильно понял.
...
Рейтинг: 0 / 0
22.08.2003, 11:28
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244341
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Кстати:
1) Я забыл, что выборка должна учитывать номер заказа, т.е параметра два :(
2) Предложенный тобой вариант вообще странно работает: он игнорирует условие и отображает первую строку таблицы Cash
...
Рейтинг: 0 / 0
22.08.2003, 11:30
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244346
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Вот такой вариант работает, как и первый вариант:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Dim d As DAO.Recordset
Dim n As DAO.Recordset

Set d = CurrentDb.OpenRecordset( "select * from cash where [поставщик] = '" & Me!post & "' AND [Реф №] = '" & Forms!заказ!ref & "'" )
Set n = Me.Form.RecordsetClone
    If Not d.EOF Then
    n.MoveFirst
    d.MoveFirst
        Do Until d.EOF
            Me!opl = d( "расход" )
            Me.Bookmark = n.Bookmark
            d.MoveNext
            n.MoveNext
        Loop
    Else: Me!opl = ""
    End If
    d.Close
...
Рейтинг: 0 / 0
22.08.2003, 11:34
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244347
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
№;;%№%;№%№ .....
(это эмоции :)
поле у тебя что текст??? что ты его в кавычки запихал ???
или это все таки поле со списком ??? и там на самом деле код поставщика.
тогда убери нах кавычки (одинарные)
...
Рейтинг: 0 / 0
22.08.2003, 11:35
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244352
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
>Вот такой вариант работает, как и первый вариант:
не занимайся ерундой. зачем самому пересчитывать рекордсет формы,
когда за тебя это прекрасно сделает Аксес.
Другой вариант:
в рекордсет формы подставь запрос в котором помимо табл Калькуляция
будет выщитываться и расход. И повесь это поле (расход) на сурс контрола.
Наслаждайся.
...
Рейтинг: 0 / 0
22.08.2003, 11:38
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244357
Nick987
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nick987
Гость
boookmark д.б. до обращения к Me, а не после.
...
Рейтинг: 0 / 0
22.08.2003, 11:41
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244363
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
тогда убери нах кавычки (одинарные)
Код поставщика выглядит так: 6/05 - тобишь текст

в рекордсет формы подставь запрос в котором помимо табл Калькуляция
будет выщитываться и расход. И повесь это поле (расход) на сурс контрола
Я с этого начинал... и запарился...
Ну что ж буду продолжать париться :))
...
Рейтинг: 0 / 0
22.08.2003, 11:43
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244371
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
2Nick987
Sorry, я просто не доконца соображаю что такое bookmark

И куда его не пихай работает одинаково...

Буду париться с рекордсурсом
...
Рейтинг: 0 / 0
22.08.2003, 11:45
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244385
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
чего там парится-то?
select Калькуляция .*, cash.расход from Калькуляция inner join cash on
Калькуляция.Поставщик=cash.Поставщик
...
Рейтинг: 0 / 0
22.08.2003, 11:53
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244392
Nick987
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nick987
Гость
Если поле opl не связанное, то оно всегда будет заполняться одинаковыми значениями.
...
Рейтинг: 0 / 0
22.08.2003, 11:56
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244399
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
2Nick987, shasha_1
Еще немного и я признаюсь, что я пень

Всем спасибо! с рекордсурсом разобрался
сейчас попробую разобраться с рекордсетами (для интереса)
...
Рейтинг: 0 / 0
22.08.2003, 11:59
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244401
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
К посту от 11:34. А кто сказал, что у этих двух рекордсетов будет одинаковый порядок сортировки?
...
Рейтинг: 0 / 0
22.08.2003, 12:01
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244403
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
>Еще немного и я признаюсь, что я пень
мой комп в открытую признается, что он четвертый пень и ничего
...
Рейтинг: 0 / 0
22.08.2003, 12:02
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244409
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
2Владимир Саныч
Спасибо за земечание...

2sasha_1
скромно квакает, что он 2-ой пенечек
Но мне до них видать далеко. У мен раздвоений личности(расчетверений тоже) нет. Так что я могу стать только одним пнем
...
Рейтинг: 0 / 0
22.08.2003, 12:05
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244418
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
АААА....
с рекордсурсом-то объект Recordset не является обновляемым :(
...
Рейтинг: 0 / 0
22.08.2003, 12:10
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244466
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
ну тогда dlookup тебе в руки :)
...
Рейтинг: 0 / 0
22.08.2003, 12:30
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244478
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
Нужно, чтобы код пробегал по всем записям текущей формы и заполнял оплату?
Тогда примерно так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
Private Sub Кнопка0_Click()
  Dim d As DAO.Recordset
  Dim n As DAO.Recordset

  Set n = Me.Form.RecordsetClone
  On Error Resume Next
  n.MoveFirst
  On Error GoTo  0 
  
  Do Until n.EOF
    Set d = CurrentDb.OpenRecordset( "select * from cash where [заказ]='" & n!order & _
                                    "' And [поставщик] = '" & n!post & "'" )
    On Error Resume Next
    r.MoveFirst
    On Error GoTo  0 
    
    Do Until d.EOF
      n.Edit
      n!opl = Nz(n!opl,  0 ) + Nz(d![расход],  0 )
      n.Update
      d.MoveNext
    Loop
    
    n.MoveNext
  Loop
  
  d.Close
  n.Close
End Sub


Или проверял только текущую запись формы?
Тогда, видимо, так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
  Dim d As DAO.Recordset
  
  Set d = CurrentDb.OpenRecordset( "select * from cash where [заказ]='" & Me!order & _
                                  "' And [поставщик] = '" & Me!post & "'" )
  
  On Error Resume Next
  r.MoveFirst
  Me.opl = ""
  On Error GoTo  0 
    
  Do Until d.EOF
    Me!opl = Nz(Me!opl,  0 ) + Nz(d![расход],  0 )
    d.MoveNext
  Loop
  
  d.Close
...
Рейтинг: 0 / 0
22.08.2003, 12:36
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244489
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
Только вместо d.movefirst я случайно написал r.movefirst
...
Рейтинг: 0 / 0
22.08.2003, 12:39
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244502
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
2sasha_1
дак я бы рад :)
Пишу
=DLookUp("расход";"cash";[поставщик]='" & Me!post & "')
все поле Оплачено - пустое и только в последней строке (новая запись) стоит значение расхода из первой строки Cash, т.е. параметр Поставщик не учтен
Что за бред???

2Geo
Спасибо...
Попробую, когда с DLookUp разберусь
...
Рейтинг: 0 / 0
22.08.2003, 12:47
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244514
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
начнем с того что синтаксиc д.б. такой :)
=DLookUp("расход";"cash"; " [поставщик]='" & [post] & "')
...
Рейтинг: 0 / 0
22.08.2003, 12:52
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244521
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
2sasha_1
если с ковычками, то во всем поле #Имя?
...
Рейтинг: 0 / 0
22.08.2003, 12:54
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244528
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
уже теплее.
Проверь следующее:
1.поле поставщик есть в таблице cash и оно текст
2.поле post есть в таблице Калькуляция и это тоже текст
(очень я в этом сомневаюсь)
...
Рейтинг: 0 / 0
22.08.2003, 12:56
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244533
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Все поля на месте и идентичны... Единственное, что post - это имя поля с источником данных Поставщик. Но это не должно играть никакой роли...
...
Рейтинг: 0 / 0
22.08.2003, 13:01
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244549
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
2Geo
Строка

Код: plaintext
1.
2.
Set d = CurrentDb.OpenRecordset( "select * from cash where [заказ]='" & n!order & _
                                    "' And [поставщик] = '" & n!post & "'" )

Выдает ошибку: Элемент не обнаружен в данном семействе
...
Рейтинг: 0 / 0
22.08.2003, 13:11
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244550
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
мда ...
дурацкая мысль, а в запросе все выводилось правильно?
если да, то кинь плз его SQL
...
Рейтинг: 0 / 0
22.08.2003, 13:13
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244551
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
Вместо "заказ" и "поставщик" поставь имена соответствующих полей таблицы Cash.
...
Рейтинг: 0 / 0
22.08.2003, 13:13
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244557
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
...и вместо "order" и "post" - имена соотв. полей из таблицы-источника данных твоей формы (калькуляция, кажется).
...
Рейтинг: 0 / 0
22.08.2003, 13:15
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244569
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
2Geo
Я знал, что ты это напишешь
не... там все нормально...
Тут вот какая штука:
Если записи нет, то ошибка на этой строке, а если есть, то на строке n!opl = Nz(d![Расход], 0)

2sasha_1
SELECT calc.*, [cash].[расход] FROM calc INNER JOIN cash ON [calc].[Поставщик]=[cash].[Поставщик];
...
Рейтинг: 0 / 0
22.08.2003, 13:26
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244572
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
2Geo
программе не нравиться вот это: n!
...
Рейтинг: 0 / 0
22.08.2003, 13:28
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244582
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
2Geo
я там соврал...

Он во всех ситуациях выдает ошибку на той строке
У меня просто было заменено n!post на Me!post...
...
Рейтинг: 0 / 0
22.08.2003, 13:32
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244588
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
2Geo
Сорри все работает...
Я просто указал имена полей, а не источники данных :)
...
Рейтинг: 0 / 0
22.08.2003, 13:36
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244591
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
2 Geo:

А зачем On Error Resume Next перед MoveFirst? Если на MoveFirst будет ошибка, значит рекордсет пустой, и тогда все дальнейшее не имеет смысла. Так что предлагаю так:

If Not n.BOF Then
n.MoveFirst
... 'вся программа
End If
n.Close

- и никакого On Error.
...
Рейтинг: 0 / 0
22.08.2003, 13:36
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244593
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
2Владимир Саныч
я и сам это убрал :)
А можешь пояснить почему DlookUp не работает???
...
Рейтинг: 0 / 0
22.08.2003, 13:37
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244597
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
хрен знает что
ну попробуй еще вот так
=DLookUp("расход";"cash";"[поставщик]='" & [Поставщик] & "')
...
Рейтинг: 0 / 0
22.08.2003, 13:39
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244604
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
> А можешь пояснить почему DlookUp не работает???

Покажи мне значение третьего параметра, тогда угадаю.
...
Рейтинг: 0 / 0
22.08.2003, 13:41
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244607
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
2sasha_1
DLookUp меня уже бесит :)
Ошибка: Выражение содержит ошибочную строку
...
Рейтинг: 0 / 0
22.08.2003, 13:45
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244613
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
это кто так говорит?
синтаксис?
...
Рейтинг: 0 / 0
22.08.2003, 13:47
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244620
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Это, когда в данные вставляешь эту строку, а потом нажимаешь энтер.

Код: plaintext
1.
2.
Выражение содержит ошибочную строку

Строка может содержать до  255  знаков, включай знаки отькрывающей и закрывающей ковычек
...
Рейтинг: 0 / 0
22.08.2003, 13:52
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244624
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
еб.... мать, Всеволод
возьми себя в руки.
уж выражение-то написать сможешь.
проверь, в конце концов напиши руками раз не можешь скопировать.

P.S. извини погорячился :)
...
Рейтинг: 0 / 0
22.08.2003, 13:54
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244629
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
2Владимир Саныч
пишу Me.opl.ControlSource = DLookup("расход", "cash", "[поставщик]='" & [Поставщик] & "'")
ставлю break
пишу ?Me.opl.ControlSource
значение 1 (это правильно)
а в поле #Имя?
...
Рейтинг: 0 / 0
22.08.2003, 13:58
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244633
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
ты чего это в ВБА пишешь????
ох.....фигел что ли
в контрол это надо в свойства!!!!!!!!!.
...
Рейтинг: 0 / 0
22.08.2003, 14:02
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244634
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Всеволод, поддерживаю предыдущего оратора насчет матери. Я просил значение третьего параметра.
...
Рейтинг: 0 / 0
22.08.2003, 14:02
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244635
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
2sasha_1
Да я сам тут уже в припадке сижу :)
Руками написал - не работает
Попробывал скопировать старый вариант - таже ошибка
Закрыл форму, подошел к зеркалу и сказал "это жопа"
Открыл форму, скопировал - РАБОТАЕТ

СПАСИБО!!!
...
Рейтинг: 0 / 0
22.08.2003, 14:02
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244638
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Кстати, ControlSource может быть или значением поля, или знаком равенства с каким-нибудь выражением. Ты делал без знака равенства.
...
Рейтинг: 0 / 0
22.08.2003, 14:04
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244639
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
2sasha_1, Владимир Саныч
я не в ВБА пишу
Просто мне тут Саныч недавно объяснял как значение смотреть.
Вот я и посмотрел
Так и знал, что здесь что-то не так
...
Рейтинг: 0 / 0
22.08.2003, 14:04
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244681
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
не усек, в чем хохма-то была?
...
Рейтинг: 0 / 0
22.08.2003, 14:25
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244692
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
2sasha_1
Ни че не усек... Так обрадывался, что спроисть даже забыл :)
Так и в чем же???
...
Рейтинг: 0 / 0
22.08.2003, 14:30
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244699
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
>Так и в чем же???
помоему я первый спросил.
почему заработало? чего сделал?
...
Рейтинг: 0 / 0
22.08.2003, 14:34
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244701
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
2BC
Согласен. Я не знал, куда спозиционируется текущая запись n после me.recordsetclone. На всякий случай перехожу в начало. А что касается BOF - я до сих пор не уверен, можно ли им пользоваться. Он должен выдавать True, если указатель находиться "перед первой записью", кажется. Но ведь в пустом рекордсете нет первой записи. Поэтому проверять я эту функцию никогда не проверял, пользоваться не решился, а использовал такие нехитрые связочки. :)
...
Рейтинг: 0 / 0
22.08.2003, 14:34
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244720
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
почему заработало? чего сделал?

Работает этот вариант:
DLookup("расход", "cash", "[поставщик]='" & [Поставщик] & "'")

не работал, т.к. ты в конце кавычку забыл:
=DLookUp("расход";"cash";"[поставщик]='" & [Поставщик] & "')
...
Рейтинг: 0 / 0
22.08.2003, 14:40
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244726
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
тут мне не понятно, почему не нужно указывать Me!
А насчет Поставщик вместо post это еще как-то можно понять :)
...
Рейтинг: 0 / 0
22.08.2003, 14:42
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244729
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
Где не нужно указывать Me?
...
Рейтинг: 0 / 0
22.08.2003, 14:43
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244734
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
2 Geo:

Не могу подкрепить сови слова ссылкой на хелп, MSDN или Гетца, но сам всегда пишу так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Set rs = ...OpenRecordset...
If Not rs.BOF Then
    rs.MoveFirst
    Do Until rs.EOF
        ...
        rs.MoveNext
    Loop
End If
rs.Close


И оно работает - если рекордсет пуст, то BOF выдает True. Правда, эта моя привычка только из DAO.
...
Рейтинг: 0 / 0
22.08.2003, 14:46
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244735
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
2Geo
DLookup("расход", "cash", "[поставщик]='" & Me! [Поставщик] & "'")
...
Рейтинг: 0 / 0
22.08.2003, 14:46
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244743
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
2ВС
Буду иметь в виду, спасибо :)

2Всеволод
А [Поставщик] - это поле формы или поле источника данных? Если формы, то мне тоже непонятно.
...
Рейтинг: 0 / 0
22.08.2003, 14:48
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244748
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
Я тоже заметил что конструкторе ни когда не ставить Me!
...
Рейтинг: 0 / 0
22.08.2003, 14:50
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244749
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
>тут мне не понятно, почему не нужно указывать Me!
по той же причине, почему ты не пишешь
me![имя_поля] в сурсе контрола, а пишешь просто имя_поля.
по умолчанию это поле ищется в рекордсоурсе формы.
...
Рейтинг: 0 / 0
22.08.2003, 14:50
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244752
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
2Geo
Поставщик - это источник данных поля "post"
...
Рейтинг: 0 / 0
22.08.2003, 14:50
| Ответить | Цитировать | Написать  
Цикл Do...Loop
    #32244755
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
2sasha_1
сool :)
Теперь все ясно :)
...
Рейтинг: 0 / 0
22.08.2003, 14:51
| Ответить | Цитировать | Написать  
69 сообщений из 69, показаны все 3 страниц
  все  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Цикл Do...Loop
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=45&tid=1679772]:
 0ms
get settings:
 9ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 44ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 90ms
get tp. blocked users:
 1ms
others: 229ms
total:  396ms
созд. / загр.: 396ms
x
x
Закрыть


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