ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Pochemu neotkrivajet zapros?
15 сообщений из 15, страница 1 из 1
Pochemu neotkrivajet zapros?
    #32419941
pX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pX
Гость
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:28
| Ответить | Цитировать | Написать  
Pochemu neotkrivajet zapros?
    #32419962
Фотография Лифчик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лифчик
Участник
Help
DoCmd.OpenQuery(QueryName, View, DataMode)
...
Рейтинг: 0 / 0
24.02.2004, 18:44
| Ответить | Цитировать | Написать  
Pochemu neotkrivajet zapros?
    #32419985
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
потому что в 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:58
| Ответить | Цитировать | Написать  
Pochemu neotkrivajet zapros?
    #32419990
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
Опаздал :)
...
Рейтинг: 0 / 0
24.02.2004, 18:59
| Ответить | Цитировать | Написать  
Pochemu neotkrivajet zapros?
    #32421729
pX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pX
Гость
Код: 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:50
| Ответить | Цитировать | Написать  
Pochemu neotkrivajet zapros?
    #32421731
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Оёёё... Там надо скобки убрать!

Лифчик, Kelme, что с вами...
...
Рейтинг: 0 / 0
25.02.2004, 23:56
| Ответить | Цитировать | Написать  
Pochemu neotkrivajet zapros?
    #32421882
Фотография Лифчик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лифчик
Участник
Саныч, а у меня можно со скобками (ХР наверное:-)
...
Рейтинг: 0 / 0
26.02.2004, 09:38
| Ответить | Цитировать | Написать  
Pochemu neotkrivajet zapros?
    #32422035
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
И у меня со скобками проходит (XP, 2003)
...
Рейтинг: 0 / 0
26.02.2004, 10:52
| Ответить | Цитировать | Написать  
Pochemu neotkrivajet zapros?
    #32422048
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
Со скобками проходит если в таком виде:
Docmd.OpenQuery ("Query")
а если DoCmd.OpenQuery ("Query",acViewNormal,acEdit), то не ошибку выкидывает :)
...
Рейтинг: 0 / 0
26.02.2004, 10:57
| Ответить | Цитировать | Написать  
Pochemu neotkrivajet zapros?
    #32422070
Фотография Лифчик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лифчик
Участник
Главное - что параметра того нетути:-)
...
Рейтинг: 0 / 0
26.02.2004, 11:05
| Ответить | Цитировать | Написать  
Pochemu neotkrivajet zapros?
    #32422086
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
Да не это главное, главное чтобы не было войны :)
...
Рейтинг: 0 / 0
26.02.2004, 11:15
| Ответить | Цитировать | Написать  
Pochemu neotkrivajet zapros?
    #32422166
pX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pX
Гость
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, 11:51
| Ответить | Цитировать | Написать  
Pochemu neotkrivajet zapros?
    #32422200
pX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pX
Гость
Zabil bpipisath shto otkrith nuzna cherez meny shtobi nenuzna delath raznije formi.

http://gti3.times.lv
...
Рейтинг: 0 / 0
26.02.2004, 12:02
| Ответить | Цитировать | Написать  
Pochemu neotkrivajet zapros?
    #32422209
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
автор
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:04
| Ответить | Цитировать | Написать  
Pochemu neotkrivajet zapros?
    #32422309
OpenQuery с параметром
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OpenQuery с параметром
Гость
примерный способ подстановки параметра в Акс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
26.02.2004, 12:58
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Pochemu neotkrivajet zapros?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32422209&tid=1676474]:
 0ms
get settings:
 11ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 168ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 69ms
get tp. blocked users:
 1ms
others: 243ms
total:  531ms
созд. / загр.: 531ms
x
x
Закрыть


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