ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Есть ли альтернатива Dlookup
10 сообщений из 10, страница 1 из 1
Есть ли альтернатива Dlookup
    #32550912
Omar_K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Omar_K
Участник
Private Sub Command9_Click()
Text6 = DLookup("Value", "New_Rates", elev = " & Me!Combo0 & " And operation = " & Me!Combo2 & " And crop = " & Me!combo4 & ")
End Sub
не реагирует не ошибок Text6 как был пустой так и после нажатия кнопки пустой ни тебе ошибки просто ничего......
...
Рейтинг: 0 / 0
07.06.2004, 15:14
| Ответить | Цитировать | Написать  
Есть ли альтернатива Dlookup
    #32550918
Фотография 4d_monster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
4d_monster
Участник
Кавычки не правильно расставленны

DLookup("Value", "New_Rates", "elev = " & Me!Combo0 & " And operation = " & Me!Combo2 & " And crop = " & Me!combo4 )


IMHO, Mon$te®
...
Рейтинг: 0 / 0
07.06.2004, 15:16
| Ответить | Цитировать | Написать  
Есть ли альтернатива Dlookup
    #32550959
Omar_K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Omar_K
Участник
error: Слишком мало параметров. Требуется 1
...
Рейтинг: 0 / 0
07.06.2004, 15:31
| Ответить | Цитировать | Написать  
Есть ли альтернатива Dlookup
    #32550971
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
значит значение у одного из комбобоксов пустое

а вообще можно так:

Код: plaintext
1.
2.
dim tempArr
tempArr = currentproject.connection.execute ("select top 1 fio from personel where code = 123").getrows
Myresult = tempArr( 0 , 0 )
...
Рейтинг: 0 / 0
07.06.2004, 15:36
| Ответить | Цитировать | Написать  
Есть ли альтернатива Dlookup
    #32550975
Фотография 4d_monster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
4d_monster
Участник
А они все числовые ?
если все текстовые то ' Вставь
и в любом случае скобки для логики вставь

DLookup("Value", "New_Rates", "(elev = '" & Me!Combo0 & "') And (operation = '" & Me!Combo2 & "') And (crop = '" & Me!combo4 &"')")




IMHO, Mon$te®
...
Рейтинг: 0 / 0
07.06.2004, 15:37
| Ответить | Цитировать | Написать  
Есть ли альтернатива Dlookup
    #32550977
Фотография 4d_monster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
4d_monster
Участник
Кстати DLookUp - звеерски медленная вещь, так что ДЕЙСВИТЕЛЬНО лучше через рекордсеты

IMHO, Mon$te®
...
Рейтинг: 0 / 0
07.06.2004, 15:38
| Ответить | Цитировать | Написать  
Есть ли альтернатива Dlookup
    #32551009
Omar_K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Omar_K
Участник
To Алексей_К

Dim tempArr
tempArr = CurrentProject.Connection.Execute("select value from new_rates where crop = me!Combo4 and elev=Me!combo0 and operation= Me!combo2").GetRows
Text6 = tempArr(0, 0)
Расставьте правильные кавычки для моего случая
...
Рейтинг: 0 / 0
07.06.2004, 15:52
| Ответить | Цитировать | Написать  
Есть ли альтернатива Dlookup
    #32551029
Omar_K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Omar_K
Участник
Все нормально для случая Dlookup можно ли попробовать сделать что такое
Dim tempArr
tempArr = CurrentProject.Connection.Execute("update vnew_rates set value=Me!text11 where crop = me!Combo4 and elev=Me!combo0 and operation= Me!combo2").???GetRows?????
Text6 = tempArr(0, 0)
...
Рейтинг: 0 / 0
07.06.2004, 15:58
| Ответить | Цитировать | Написать  
Есть ли альтернатива Dlookup
    #32551252
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
Код: plaintext
1.
2.
Dim tempArr
tempArr = CurrentProject.Connection.Execute("select value from new_rates where crop = '" & me!Combo4 & "' and elev= '" & Me!combo0  & "' and operation= '" & Me!combo2 & "'").GetRows
Text6 = tempArr( 0 ,  0 )
...
Рейтинг: 0 / 0
07.06.2004, 17:46
| Ответить | Цитировать | Написать  
Есть ли альтернатива Dlookup
    #32551363
Omar_K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Omar_K
Участник
B Connection.Execute можно ли вставлять SQl инструкции типа Delete, Insert, Update если да то можно ли привести правильный синтаксис желательно с прописыванием контроов в качестве изменяемых параметрв
...
Рейтинг: 0 / 0
07.06.2004, 18:40
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Есть ли альтернатива Dlookup
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32551363&tid=1674039]:
 0ms
get settings:
 8ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 157ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 33ms
get tp. blocked users:
 1ms
others: 247ms
total:  469ms
созд. / загр.: 469ms
x
x
Закрыть


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