Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Pochemu neotkrivajet zapros? / 15 сообщений из 15, страница 1 из 1
24.02.2004, 18:28
    #32419941
pX
pX
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pochemu neotkrivajet zapros?
Pochemu neidjot eto
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Private Sub cmdOtherSales_Click()
On Error GoTo Err_cmdOtherSales_Click

    If IsNull(Me![AddressID]) Then Exit Sub
    
    DoCmd.OpenQuery  "cqryCitiProdPardDaudzAdr" , , ,  "[AddressID]="  & Me![AddressID]

Exit_cmdOtherSales_Click:
    Exit Sub

Err_cmdOtherSales_Click:
    MsgBox Err.Description
    Resume Exit_cmdOtherSales_Click
    
End Sub


Jesli brath bez criterija ", , , "[AddressID]=" & Me![AddressID] to otkrivajetsa zapros. Zapros Crosstab Query
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.02.2004, 18:44
    #32419962
Лифчик
Лифчик
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pochemu neotkrivajet zapros?
Help
DoCmd.OpenQuery(QueryName, View, DataMode)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.02.2004, 18:58
    #32419985
Kelme
Kelme
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pochemu neotkrivajet zapros?
потому что в DoCmd.OpenQuery нет такого параметра, как Condition

The OpenQuery method carries out the OpenQuery action in Visual Basic.

expression.OpenQuery(QueryName, View, DataMode)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.02.2004, 18:59
    #32419990
Kelme
Kelme
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pochemu neotkrivajet zapros?
Опаздал :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.02.2004, 23:50
    #32421729
pX
pX
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pochemu neotkrivajet zapros?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Private Sub cmdOtherSales_Click()
On Error GoTo Err_cmdOtherSales_Click

    If IsNull(Me![AddressID]) Then Exit Sub
    
 '   DoCmd.OpenQuery  "cqryCitiProdPardDaudzAdr" , , ,  "[AddressID]="  & Me![AddressID]
    DoCmd.OpenQuery ( "cqryCitiProdPardDaudzAdr" , acViewPreview , acReadOnly )

Exit_cmdOtherSales_Click:
    Exit Sub

Err_cmdOtherSales_Click:
    MsgBox Err.Description
    Resume Exit_cmdOtherSales_Click
    
End Sub


Pishet oshibku Expected: =
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.02.2004, 23:56
    #32421731
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pochemu neotkrivajet zapros?
Оёёё... Там надо скобки убрать!

Лифчик, Kelme, что с вами...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.02.2004, 09:38
    #32421882
Лифчик
Лифчик
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pochemu neotkrivajet zapros?
Саныч, а у меня можно со скобками (ХР наверное:-)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.02.2004, 10:52
    #32422035
Kelme
Kelme
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pochemu neotkrivajet zapros?
И у меня со скобками проходит (XP, 2003)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.02.2004, 10:57
    #32422048
Kelme
Kelme
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pochemu neotkrivajet zapros?
Со скобками проходит если в таком виде:
Docmd.OpenQuery ("Query")
а если DoCmd.OpenQuery ("Query",acViewNormal,acEdit), то не ошибку выкидывает :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.02.2004, 11:05
    #32422070
Лифчик
Лифчик
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pochemu neotkrivajet zapros?
Главное - что параметра того нетути:-)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.02.2004, 11:15
    #32422086
Kelme
Kelme
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pochemu neotkrivajet zapros?
Да не это главное, главное чтобы не было войны :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.02.2004, 11:51
    #32422166
pX
pX
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pochemu neotkrivajet zapros?
Glavnoje to shto mne nenada otkrivath ves otchot a tolka otdlenij adres. A gde v etom
Код: plaintext
DoCmd.OpenQuery ( "Query" ,acViewNormal,acEdit)
mozna parametr vpisath. Veth pervoje imja, vtoroje vid a tretheje razreshenije na deistvije.
?

2. Kak otkrith formu s chiistoi zapisi. No otkrivajet tolka jejo a ne iz 9000 perehodit na poslednjuju?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.02.2004, 12:02
    #32422200
pX
pX
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pochemu neotkrivajet zapros?
Zabil bpipisath shto otkrith nuzna cherez meny shtobi nenuzna delath raznije formi.

http://gti3.times.lv
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.02.2004, 12:04
    #32422209
Kelme
Kelme
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pochemu neotkrivajet zapros?
автор
Glavnoje to shto mne nenada otkrivath ves otchot a tolka otdlenij adres. A gde v etom DoCmd.OpenQuery ("Query",acViewNormal,acEdit)


mozna parametr vpisath. Veth pervoje imja, vtoroje vid a tretheje razreshenije na deistvije.
?





Ну тебе же русским языком объяснили, нету в DoCmd.OpenQuery параметра, типа условие, по латышски чтоли объяснить? :)
Открой запрос в дизайнвью и для нужного поля в Criteria впиши: Forms![Имя формы]!AddressID

автор
Kak otkrith formu s chiistoi zapisi. No otkrivajet tolka jejo a ne iz 9000 perehodit na poslednjuju?


docmd.OpenForm "FormName",acNormal,,,acFormAdd
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.02.2004, 12:58
    #32422309
OpenQuery с параметром
OpenQuery с параметром
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pochemu neotkrivajet zapros?
примерный способ подстановки параметра в Акс97 (ниже strReplace - ф-я, выполняющая то же что и Replace, но с передачей параметров ByVal)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Public Function qdff(p as string)
    Dim qdf As QueryDef
    Set qdf = CurrentDb.QueryDefs( "_MyQuery" )    
    Dim x, y
    x = qdf.sql
    y = strReplace(x, (qdf.Parameters( 0 ).name), p)
    qdf.sql = y
    DoCmd.OpenQuery qdf.name
    qdf.sql = x
    qdf.Close
End Function


Для сетевой (одновременной) работы придется создавать "Временный" QueryDef, с уникальным именем, например _MyQuery & CurrentUser & Format(now() ,"yyyymmddhhnnss"), писать в его SQL вычисленную строку (у) и открывать уже его (а не исходный запрос). Убийством же времянок заниматься в какой нить процедуре-чистельщике. Хотя у меня нормально работает и так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Public Function qdff(a)
    Dim dbs As Database, qdf As QueryDef
    Set dbs = CurrentDb
    Set qdf = dbs.QueryDefs( "_MyQuery" )
    Dim x, y
    x = qdf.sql
    y = strReplace(x, (qdf.Parameters( 0 ).name), a)
    qdf.Close
    Set qdf = dbs.CreateQueryDef( "_MyQuery"  & Format(Now(),  "yyyymmddhhnnss" ), y)
    'qdf.sql = y
    DoCmd.OpenQuery qdf.name
    'qdf.sql = x
    qdf.Close
    dbs.QueryDefs.Delete qdf.name
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Pochemu neotkrivajet zapros? / 15 сообщений из 15, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 439ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1676474]:
 0ms
get settings:
 10ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 63ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 67ms
get tp. blocked users:
 2ms
others: 254ms
total:  439ms
x
x
Закрыть


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