Есть ли альтернатива Dlookup
Omar_K
Дата: 07.06.2004 15:14:08
Private Sub Command9_Click()
Text6 = DLookup("Value", "New_Rates", elev = " & Me!Combo0 & " And operation = " & Me!Combo2 & " And crop = " & Me!combo4 & ")
End Sub
не реагирует не ошибок Text6 как был пустой так и после нажатия кнопки пустой ни тебе ошибки просто ничего......
4d_monster
Дата: 07.06.2004 15:16:37
Кавычки не правильно расставленны
DLookup("Value", "New_Rates", "elev = " & Me!Combo0 & " And operation = " & Me!Combo2 & " And crop = " & Me!combo4 )
IMHO, Mon$te®
Omar_K
Дата: 07.06.2004 15:31:09
error: Слишком мало параметров. Требуется 1
АлексейК
Дата: 07.06.2004 15:36:06
значит значение у одного из комбобоксов пустое
а вообще можно так:
dim tempArr
tempArr = currentproject.connection.execute ("select top 1 fio from personel where code = 123").getrows
Myresult = tempArr(0,0) |
|
4d_monster
Дата: 07.06.2004 15:37:27
А они все числовые ?
если все текстовые то ' Вставь
и в любом случае скобки для логики вставь
DLookup("Value", "New_Rates", "(elev = '" & Me!Combo0 & "') And (operation = '" & Me!Combo2 & "') And (crop = '" & Me!combo4 &"')")
IMHO, Mon$te®
4d_monster
Дата: 07.06.2004 15:38:33
Кстати DLookUp - звеерски медленная вещь, так что ДЕЙСВИТЕЛЬНО лучше через рекордсеты
IMHO, Mon$te®
Omar_K
Дата: 07.06.2004 15:52:04
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)
Расставьте правильные кавычки для моего случая
Omar_K
Дата: 07.06.2004 15:58:32
Все нормально для случая 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)
АлексейК
Дата: 07.06.2004 17:46:18
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) |
|
Omar_K
Дата: 07.06.2004 18:40:47
B Connection.Execute можно ли вставлять SQl инструкции типа Delete, Insert, Update если да то можно ли привести правильный синтаксис желательно с прописыванием контроов в качестве изменяемых параметрв