ReSQL.ru
     
powered by simpleCommunicator - 2.0.52     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Запрос на выборку для подчиненной формы второго уровня
2 сообщений из 2, страница 1 из 1
Запрос на выборку для подчиненной формы второго уровня
    #39692577
nataxa23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nataxa23
Гость
Помогите добраться до истины. Не получается выводить дату в запросе. Код срабатывает, запрос формируется, но при нажатии на раскрывающий плюсик Access выдает ошибку.
Код:
 

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
  If Not (IsNull(Me.ДатаСозданияДопЗаданияС) Or Me.ДатаСозданияДопЗаданияС = "") And Not (IsNull(Me.ДатаСозданияДопЗаданияПо) Or Me.ДатаСозданияДопЗаданияПо = "") Then
    arrWHERE(10) = " [ДатаСозданияДопРЗ] >= #" & Format$(Me.ДатаСозданияДопЗаданияС, "mm\/dd\/yyyy") & "# AND " & _
                    " [ДатаСозданияДопРЗ] < #" & Format$(Me.ДатаСозданияДопЗаданияПо + 1, "mm\/dd\/yyyy") & "#"
    
    strLnkMtrFld = strLnkMtrFld & ";" & "ДатаСозданияДопРЗ"
    strДатаСозданияДопРЗ = arrWHERE(10)
    
  ElseIf Not (IsNull(Me.ДатаСозданияДопЗаданияС) Or Me.ДатаСозданияДопЗаданияС = "") And (IsNull(Me.ДатаСозданияДопЗаданияПо) Or Me.ДатаСозданияДопЗаданияПо = "") Then
    arrWHERE(10) = " [ДатаСозданияДопРЗ] >= #" & Format$(Me.ДатаСозданияДопЗаданияС, "mm\/dd\/yyyy") & "# AND " & _
                    " [ДатаСозданияДопРЗ] < #" & Format$(Me.ДатаСозданияДопЗаданияС + 1, "mm\/dd\/yyyy") & "#"
    
    strLnkMtrFld = strLnkMtrFld & ";" & "ДатаСозданияДопРЗ"
    strДатаСозданияДопРЗ = arrWHERE(10)
    
  Else
    arrWHERE(10) = "": strДатаСозданияДопРЗ = Empty
  End If



Запрос:
 

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
    strSQL = "SELECT DISTINCT звПоиск.КодЗаявки, " & _
              "звПоиск.НомерЗаявки, звПоиск.ДатаРегистрацииЗаявки, " & _
              "звПоиск.СтатусЗаявки, звПоиск.ДатаЗакрытияЗаявки, звПоиск.СостояниеЗаявки, " & _
              "звПоиск.КолДнПросрочкиЗаявки, звПоиск.Инициатор, звПоиск.ТипОбращения, " & _
              "звПоиск.ОписаниеПроблемы, звПоиск.КлассификацияЗаявки, звПоиск.Ведомство, " & _
              "звПоиск.Примечание, звПоиск.Куратор, звПоиск.Исполнитель, звПоиск.ДатаЗаписиЗаявки, " & _
              "звПоиск.ВыбратьЗаявку, звПоиск.ДатаПоступленияДГУ, звПоиск.РешениеДГУ, " & _
              "звПоиск.ДатаПринятияРешенияДГУ, звПоиск.ДатаСозданияРодРЗ, звПоиск.НомерРодРЗ, " & _
              "звПоиск.КлассификаторРодРЗ, звПоиск.СтатусРодРЗ, звПоиск.ДатаЗавершенияРодРЗ, " & _
              "звПоиск.СостояниеРодРЗ, звПоиск.КолДнПросрочкиРодРЗ, " & _
              "CLng(" & lngНомерДопРЗ & ") AS НомерДопРЗ, " & _
              "CLng(" & lngПодразделение & ") AS Подразделение_cbx, " & _
              "CStr('" & strДатаСозданияДопРЗ & "') AS ДатаСозданияДопРЗ, " & _
              "CStr('" & strДатаЗавершенияДопРЗ & "') AS ДатаЗавершенияДопРЗ, " & _
              "CStr('" & strСостояниеДопРЗ & "') AS СостояниеДопРЗ" & _
              " FROM звПоиск WHERE " & strWHERE
    
    Me.Controls("фпПоискЗаявок").Form.Controls("фпПоискМИЦОВИВ").LinkMasterFields = strLnkMtrFld
    Me.Controls("фпПоискЗаявок").Form.Controls("фпПоискМИЦОВИВ").LinkChildFields = strLnkMtrFld
    Me.фпПоискЗаявок.Form.RecordSource = strSQL



___________________________________
Использую Microsoft Access 2010.
Спасибо каждому, кто мне когда-либо здесь помог и продолжает помогать.
...
Рейтинг: 0 / 0
23.08.2018, 18:31
| Ответить | Цитировать | Написать  
Запрос на выборку для подчиненной формы второго уровня
    #39692651
nataxa23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nataxa23
Гость
Не совсем точная формулировка в моем вопросе. Пытаюсь сделать, чтобы по полям на общей форме формировалась выборка для табл.подчиненной формы (ф1), у которой есть своя табл.подчиненная форма (ф2).
Сам запрос является источником для табл.подчиненной формы первого уровня (ф1), а вот ошибка с сообщением Access как на скриншоте возникает, если по плюсикам раскрывать табл.подчиненной формы второго уровня (ф2).
С другими полями типа String и Long все получается и работает, а как быть с этими строками не пойму:
"CStr('" & strДатаСозданияДопРЗ & "') AS ДатаСозданияДопРЗ, " & _
"CStr('" & strДатаЗавершенияДопРЗ & "') AS ДатаЗавершенияДопРЗ, " & _
 
Пробовала еще такой вариант:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
  If Not (IsNull(Me.ДатаСозданияДопЗаданияС) Or Me.ДатаСозданияДопЗаданияС = "") And Not (IsNull(Me.ДатаСозданияДопЗаданияПо) Or Me.ДатаСозданияДопЗаданияПо = "") Then
    arrWHERE(10) = " [ДатаСозданияДопРЗ] >= #" & Format$(Me.ДатаСозданияДопЗаданияС, "mm\/dd\/yyyy") & "# AND " & _
                    " [ДатаСозданияДопРЗ] < #" & Format$(Me.ДатаСозданияДопЗаданияПо + 1, "mm\/dd\/yyyy") & "#"
    
    strLnkMtrFld = strLnkMtrFld & ";" & "ДатаСозданияДопРЗ"
    strДатаСозданияДопРЗ = Format$(Me.ДатаСозданияДопЗаданияС, "mm\/dd\/yyyy") & " >= " & Format$(Me.ДатаСозданияДопЗаданияС, "mm\/dd\/yyyy") & " AND " & _
                            Format$(Me.ДатаСозданияДопЗаданияС, "mm\/dd\/yyyy") & " < " & Format$(Me.ДатаСозданияДопЗаданияПо + 1, "mm\/dd\/yyyy")
    
  ElseIf Not (IsNull(Me.ДатаСозданияДопЗаданияС) Or Me.ДатаСозданияДопЗаданияС = "") And (IsNull(Me.ДатаСозданияДопЗаданияПо) Or Me.ДатаСозданияДопЗаданияПо = "") Then
    arrWHERE(10) = " [ДатаСозданияДопРЗ] >= #" & Format$(Me.ДатаСозданияДопЗаданияС, "mm\/dd\/yyyy") & "# AND " & _
                    " [ДатаСозданияДопРЗ] < #" & Format$(Me.ДатаСозданияДопЗаданияС + 1, "mm\/dd\/yyyy") & "#"
    
    strLnkMtrFld = strLnkMtrFld & ";" & "ДатаСозданияДопРЗ"
    strДатаСозданияДопРЗ = Format(Me.ДатаСозданияДопЗаданияС, "mm\/dd\/yyyy")
    
  Else
    arrWHERE(10) = "": strДатаСозданияДопРЗ = Empty
  End If



Может кто сталкивался с такой ситуацией, когда на общей форме есть свободные поля для поиска, которые формируют источник как для табл.подчиненной формы первого уровня, так и для табл.подчиненной формы второго уровня тоже?
Помогите с идей реализации, подскажите, как вы справились с такой темой?
...
Рейтинг: 0 / 0
23.08.2018, 21:14
| Ответить | Цитировать | Написать  
2 сообщений из 2, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Запрос на выборку для подчиненной формы второго уровня
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39692651&tid=1611223]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 159ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 42ms
get tp. blocked users:
 2ms
others: 301ms
total:  548ms
созд. / загр.: 548ms
x
x
Закрыть


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