Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: Передача параметров
 
 автор: джониби   (30.08.2012 в 15:37)   личное сообщение
 
 

Проблема такая,выполняю следующую команду:

DLookup("[Черный]", "Картриджи статистика", "[МесяцГод] ='" & CurrentMONTHandYEAR & "'")

Всё проходит,выполняется,всё хорошо.Подумал что лучше бы передавать параметр а не писать всё это вручную,сделал запрос такой:

DLookup(LabelToner, "Картриджистатистика", "[МесяцГод] ='" & CurrentMONTHandYEAR & "'")
Всё работает замечательно,но только когда переменная LabelToner содержит Черный,если там лежит TK-140 допустим или 05X, начинает ругаться (Предыдущая операция прервана пользователем)
Вопрос,как передать параметр,чтобы было без ругани? )

Еще один момент.Есть запрос
CurrentProject.Connection.Execute "UPDATE КартриджиСтатистика SET КартриджиСтатистика.Черный = " & CountKol & " WHERE ((КартриджиСтатистика.МесяцГод) = '" & AllTime & "' ) ;"

Как передать параметр,вместо КартриджиСтатистика.Черный ???т.е. мне нужно чтобы было вместое Черный переменная моя.

Помогите пожалуйста,есть конечно способы обхода всего этого,но это муторнее и дольше

  Ответить  
 
 автор: Анатолий (Киев)   (30.08.2012 в 15:47)   личное сообщение
 
 

Видимо не TK-140 или 05X, а имена полей с пробелами.
Попробуйте так:
DLookup("[" & LabelToner & "]", "Картриджистатистика", "[МесяцГод] ='" & CurrentMONTHandYEAR & "'")
И в запросе также.

ЗЫ. У вас что, на каждый цвет отдельное поле в таблице?

  Ответить  
 
 автор: джониби   (30.08.2012 в 15:51)   личное сообщение
 
 

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


Видимо не TK-140 или 05X, а имена полей с пробелами.


У меня там имена полей без пробелов,или я что то не понял?

  Ответить  
 
 автор: snipe   (30.08.2012 в 16:44)   личное сообщение
 
 


CurrentProject.Connection.Execute "UPDATE КартриджиСтатистика SET КартриджиСтатистика.Черный = " & CountKol & " WHERE ((КартриджиСтатистика.МесяцГод) = '" & AllTime & "' ) ;"



dim asd as string
asd="Черный"
CurrentProject.Connection.Execute "UPDATE КартриджиСтатистика SET КартриджиСтатистика.[" & asd & "] = " & CountKol & " WHERE ((КартриджиСтатистика.МесяцГод) = '" & AllTime & "' ) ;"

  Ответить  
 
 автор: джониби   (30.08.2012 в 16:56)   личное сообщение
 
 

супер,работает.А что делать с DLOOKUPом???

  Ответить  
 
 автор: snipe   (30.08.2012 в 17:25)   личное сообщение
 
 

То что написал Анатолий(Киев)
У меня например так
DLookUp("[имя столбца]","[имя таблицы]","[условие]")
и без квадратных скобок работать отказывается (а я уже и привык)

  Ответить  
 
 автор: джониби   (30.08.2012 в 17:28)   личное сообщение
 
 

Вы МОЛОДЦЫ,помогли ОЧЕН!Ь!!!Ь!!Ь!Ь)))

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList