Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Есть ли альтернатива Dlookup / 10 сообщений из 10, страница 1 из 1
07.06.2004, 15:14
    #32550912
Omar_K
Omar_K
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Есть ли альтернатива Dlookup
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:16
    #32550918
4d_monster
4d_monster
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Есть ли альтернатива Dlookup
Кавычки не правильно расставленны

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


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

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

Код: 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:37
    #32550975
4d_monster
4d_monster
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Есть ли альтернатива Dlookup
А они все числовые ?
если все текстовые то ' Вставь
и в любом случае скобки для логики вставь

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




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

IMHO, Mon$te®
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.06.2004, 15:52
    #32551009
Omar_K
Omar_K
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Есть ли альтернатива Dlookup
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:58
    #32551029
Omar_K
Omar_K
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Есть ли альтернатива Dlookup
Все нормально для случая 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, 17:46
    #32551252
АлексейК
АлексейК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Есть ли альтернатива Dlookup
Код: 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, 18:40
    #32551363
Omar_K
Omar_K
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Есть ли альтернатива Dlookup
B Connection.Execute можно ли вставлять SQl инструкции типа Delete, Insert, Update если да то можно ли привести правильный синтаксис желательно с прописыванием контроов в качестве изменяемых параметрв
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Есть ли альтернатива Dlookup / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 462ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1674039]:
 0ms
get settings:
 10ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 173ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 24ms
get tp. blocked users:
 1ms
others: 233ms
total:  462ms
x
x
Закрыть


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