Подскажите пожалуйста как считать текст представления/хранимой процедуры из проекта adp в переменную например.

https://www.sql.ru/forum/1315266/svoystva-obektov-sql-server-iz-adp

Добрый день!

Столкнулся с такой ситуацией.
Запросом на добавление собираю в одну таблицу разные данные для общего отчета. Данные добавляются, примерно, один раз в два-три дня. В последнее время стал замечать, что не все данные добавляются в конец таблицы. Часть строк добавляется в конец таблицы, а часть в произвольное место.

Как с этим бороться? Есть какие-нибудь способы, кроме добавления специального поля в таблице для сортировки.

Спасибо!

https://www.sql.ru/forum/1315260/dannye-dobavlyautsya-v-raznye-mesta-tablicy

Есть проблема. Прошу помощи.

Попробую описать проблему. Офис 2010.

Есть получатели (где-то 2000) которым рассылаем анкеты для отчётов. Рассылаем программой через Outlook. Каждому получателю соответствует свой электронный адрес. Получаем письма так же через Outlook. Писем тысячи.
Появилась хотелка, чтобы выбрав адресата в программе Access и нажав на кнопку можно было посмотреть, какие письма отправлены, а какие получены для данного конкретного адресата. Необходимо для работы. Разрешать конфликтные ситуации типа "А Вы нам не посылали..." или "Мы Вам выслали, а Вы..."

Но вот засада. Подключаю в Access папки Outlook Входящие и Отправленные как таблицы
В папке входящие есть два поля. "От" и "Отправитель" причём, содержание их одинаково. и в них может быть или название организации, либо её электронный адрес.
В папке "Отправленные" есть поле "Кому" где так же может находиться или название организации, либо адрес ящика.
Но я могу идентифицировать почту только по электронному адресу. Как его получить?

Можно его вытащить из Outlook при помощи VBA, но это уже будет не то. Надо создать специальную таблицу. Постоянно обновлять в ней данные. А задача многопользовательская. Значит надо как-то отслеживать доступ к этой таблице. Резко падает скорость обработки.

Какие будут идеи?





-------------------------------------------------------------
А ты вложил уже свой кровный рубль в 50-ти миллиардное состояние Билла Гейтса?

https://www.sql.ru/forum/1315236/access-i-outlook-vytashhit-dannye

Привет народ!
Есть задача добавить данные из временной таблички в основную.
Если ключ в основной есть, то обновляем значение, если ключа нет, то добавляем. Т.е аналог MySQL "INSERT INTO ... ON DUPLICATE KEY UPDATE ..."
делаю двумя запросами "update table inner join table_temp" и "insert into table (...) select ... from table right join table_temp ... "
Есть ли разница в каком порядке делать?
Интуитивно догадываюсь что пофиг, но хотелось бы уточнить.

https://www.sql.ru/forum/1315235/snachala-obnovit-potom-dobavit-ili-snachala-dobavit-potom-obnovit

Научился управлять данными в буфере обмена. Кладем что хочешь, получаем, что кладем. Проблем нет, когда кладем, можно xml положить, можно текст с разделителями. Ты положил, ты взял. А вот если кладет другое приложение, например Excel. То там только разделители строк, а вот разделители столбов 2 пробела. Вот код, как я забираю буфер:

Private Function GetClipboard() As String
On Error GoTo dalse
Dim a As Object
Set a = GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
a.GetFromClipboard
GetClipboard = a.GetText(1)
Set a = Nothing
dalse:
End Function

Вопрос, как достучаться в объекте (буфер обмена) до ячейки A3, если в буфере 5 столбиков?

https://www.sql.ru/forum/1315220/poluchit-excel-yacheyki-v-bufere-obmena

Не получается рассчитать итог по вычисляемому полю при расчете средств на начало месяца и конец. Все считает, тут ступор. Не понимаю...(

=DSum("НаНачало";"OnStart";"ID=" & [Таблица11_ID]) дает только сумму по первому человеку

1.Подскажите, как правильно рассчитать итог по графе "Наличные на начало месяца"?

2.Если делать выборку, например, по августу (а там операция только у одного человека), то выдает тоже только его, соответственно тоже без итога на начала и конец месяца. Как сделать, чтобы остальных тоже выдавал, но с "0" в графах.

Вход в отчет с Forma1 общий отчет

https://www.sql.ru/forum/1315214/rasschitat-itog-po-vychislyaemomu-polu

Добрый день!
Подскажите, плз, возможно ли, чтобы в формах accdb сделать фильтрацию как в adp, с возможностью выбора значений галочками, образец во вложении

https://www.sql.ru/forum/1315192/standartnaya-filtraciya-access

добрый день!!! возникла такая ошибка в отчете access 2010. при загрузке отчета выполняется такой расчет

https://www.sql.ru/forum/1315165/oshibka-imya-v-otchete

VBA - Извлечение контактов Outlook
Статья Даниэля Пино - https://www.devhut.net/2019/07/15/vba-extract-outlook-contacts/

Помогая с вопросами на форуме относительно очень ограниченной информации, возвращаемой при использовании External Data -> Import & Link -> More -> Outlook Folder. Обычно указываю, что VBA дает вам возможность получить более расширенную информацию. Это верно при взаимодействии с Outlook and Outlook Contacts. Ниже приведено начало процедуры извлечения любой информации из папки «Контакты».

'---------------------------------------------------------------------------------------
' Procedure : Outlook_ExtractContacts
' Author    : Daniel Pineault, CARDA Consultants Inc.
' Website   : http://www.cardaconsultants.com
' Purpose   : Extract contact information from Outlook
' Copyright : The following is release as Attribution-ShareAlike 4.0 International
'             (CC BY-SA 4.0) - https://creativecommons.org/licenses/by-sa/4.0/
' Req'd Refs: Uses Late Binding, so none required
'
' Usage:
' ~~~~~~
' Call Outlook_ExtractContacts
'
' Revision History:
' Rev       Date(yyyy/mm/dd)        Description
' **************************************************************************************
' 1         2019-07-15              Initial Release - Forum Help
'---------------------------------------------------------------------------------------
Sub Outlook_ExtractContacts()
    Dim oOutlook              As Object    'Outlook.Application
    Dim oNameSpace            As Object    'Outlook.Namespace
    Dim oFolder               As Object    'Outlook.folder
    Dim oItem                 As Object
    Dim oPrp                  As Object
    Const olFolderContacts = 10
    Const olContact = 40
 
    On Error Resume Next
    Set oOutlook = GetObject(, "Outlook.Application")        'Bind to existing instance of Outlook
    If Err.Number <> 0 Then        'Could not get instance, so create a new one
        Err.Clear
        Set oOutlook = CreateObject("Outlook.Application")
    End If
    On Error GoTo Error_Handler
 
    Set oNameSpace = oOutlook.GetNamespace("MAPI")
    Set oFolder = oNameSpace.GetDefaultFolder(olFolderContacts)
 
    On Error Resume Next
    For Each oItem In oFolder.Items
        With oItem
            If .Class = olContact Then
                Debug.Print .EntryId, .FullName, .FirstName, .LastName, .CompanyName
                For Each oPrp In .ItemProperties
                    Debug.Print , oPrp.Name, oPrp.Value
                Next oPrp
            End If
        End With
    Next oItem
 
Error_Handler_Exit:
    On Error Resume Next
    If Not oPrp Is Nothing Then Set oPrp = Nothing
    If Not oItem Is Nothing Then Set oItem = Nothing
    If Not oFolder Is Nothing Then Set oFolder = Nothing
    If Not oNameSpace Is Nothing Then Set oNameSpace = Nothing
    If Not oOutlook Is Nothing Then Set oOutlook = Nothing
    Exit Sub
 
Error_Handler:
    MsgBox "The following error has occured" & vbCrLf & vbCrLf & _
           "Error Number: " & Err.Number & vbCrLf & _
           "Error Source: Outlook_ExtractContacts" & vbCrLf & _
           "Error Description: " & Err.Description & _
           Switch(Erl = 0, "", Erl <> 0, vbCrLf & "Line No: " & Erl) _
           , vbOKOnly + vbCritical, "An Error has Occured!"
    Resume Error_Handler_Exit
End Sub

Я использую On Error Resume Next, чтобы иметь возможность перебирать все ItemProperties без сбоев моего кода (чтобы показать вам, какая информация на самом деле доступна для вас). Но если Вам нужны только отдельные поля, то Вам лучше просто указать конкретные поля, как я сделал в строке

Debug. Печать .EntryId, .FullName, .FirstName, .LastName, .CompanyName

-------------------------------------------------------------
А ты вложил уже свой кровный рубль в 50-ти миллиардное состояние Билла Гейтса?

https://www.sql.ru/forum/1315163/vba-izvlechenie-kontaktov-outlook

Доброго времени суток дорогие форумчяне. Помогите пожалуйста в базе данных вывести в поле последнее воинское звание присвоенное военнослужащему...

https://www.sql.ru/forum/1315102/vyvesti-poslednuu-zapis-v-podchinennoy-tablice

На сервере SQL SERVER 2008 R2 есть база с таблицами и запросами готовыми.

re.accdb - мой файл проекта.
Таблицы УЖЕ подключил к проекту ACCESS 2016 в файл re.accdb
Теперь осталось подключить запросы к проекту ACCESS 2016 в файл re.accdb.
Как это сделать?

https://www.sql.ru/forum/1315071/kak-podkluchit-gotovye-zaprosy-s-sql-server-2008-r2-v-proekt-access-2016

Добрый день.
Задача вроде простая - но не уверен что ее возможно решить только с помощью запроса.
С помощью перебора макросом - без проблем. но не красиво и лишние действия.

есть две таблицы.
Одна имеет вид

ФИО Имя

Бойчура Николай Степанович Николай
Охрименко Алексей Охрименко Алексей

вторая - просто перечень имен.

Нужно чтобы в первой таблице в поле Имя вписалось взятое из ФИО - при условии что оно есть во второй таблице.

Буду благодарен если подскажете возможно ли вообще такое и как так сделать, если возможно.
Спасибо.

https://www.sql.ru/forum/1315032/obnovit-zapisi-v-tablice-dannymi-iz-drugoy-sovpadaushhie-po-like

Добрый день!

Возможно ли в Access выполнить запрос такого вида:

SELECT cr.Y, cr.NP, cr.[1], cr.[2], cr.[3], cr.[4]
FROM (
TRANSFORM First(тблОперСводная.[FrTime]) AS [First-FrTime]
SELECT тблОперСводная.[Reg], тблОперСводная.[Y], тблОперСводная.NP
FROM тблОперСводная
WHERE (((тблОперСводная.[Reg])=10) AND ((тблОперСводная.NP)=0))
GROUP BY тблОперСводная.[Reg], тблОперСводная.[Y], тблОперСводная.NP
ORDER BY тблОперСводная.[Y]
PIVOT тблОперСводная.[FrTimeInd]
) AS cr;

В таком виде выдает ошибку: "Ошибка синтаксиса в предложении FROM" и выделяет оператор TRANSFORM

Спасибо!

https://www.sql.ru/forum/1315003/vlozhennyy-perekrestnyy-zapros

Здравствуйте.

Есть база с адресами (прилагаю). В ней таблица, где это в виде иерархии, по типам:

Государство - Регион государства - Регион региона - Город - Улица - Дом
Государство - Регион государства - Регион региона - Город - Улица - Дом - Квартира
Государство - Регион государства - Город - Улица - Дом
Государство - Регион государства - Город - Улица - Дом - Квартира
Государство - Город - Улица - Дом
Государство - Город - Улица - Дом - Квартира

То есть иногда отсутствует квартира (когда частный дом). Иногда отсутствует регион региона (у областных городов). У городов федерального подчинения отсутствует и регион государства.

Я написала запрос SQL, где выводятся эти строки. Этот запрос я использую как источник данных для поля со списком в форме.

Но мне не нравится, что запрос такой громоздкий.

Не подскажете ли, можно ли то же самое сделать через VBA? Как сформировать такой рекордсет программно? Может, будет короче и аккуратней?

Буду благодарна, если ответите.

https://www.sql.ru/forum/1314993/sostavlenie-stroki

Друзья!
Может кто то сталкивался с такой проблемой...

Из компонентов MS Office подключаюсь к Ораклу. Старые компоненты (соеднинения) работают. Пытаюсь подключить новые таблицы, но выводится сообщение "Не удается получить список таблиц из источника данных".

В чем может быть проблема?

Заранее спасибо.

https://www.sql.ru/forum/1314977/odbc-ne-vidit-spisok-tablic-oracle

Приветствую всех! Помогите правильно сделать запрос. Запрос в целом работает, но не хочет делать выборку по Received в строке WHERE, а по Deal_ID выборку делает. Что-то неправильно в синтаксисе?

Private Sub Command495_Click()
'On Error GoTo ErrorHandler
 Dim db As DAO.Database
 Set db = CurrentDb()
 Dim rs As DAO.Recordset
 Dim strSQL As String
 Dim Docs As String
 Dim MsgHtml As String
 Dim objbp As Object
        
 strSQL = "SELECT Stips.Document " _
         & "FROM Stips " _
         & "WHERE Deal_ID =" & (Forms!Application!Deal_ID And Received = False) & ";"
         
 Set rs = db.OpenRecordset(strSQL)
 rs.MoveFirst

 Do While (Not rs.EOF)

 If Not IsNull(rs!Document) Then
 Docs = Docs & rs!Document & "; "
 End If

 rs.MoveNext
 Loop
 rs.Close

Docs = Left(Docs, Len(Docs) - 2)

https://www.sql.ru/forum/1314957/sintaksis-sql-zaprosa

Извините, если чайниковский вопрос -- уже скоро 20 летЭ как пользуюсь Access-ом, а некоторых вещей до сих пор не понимаю.

В двух таблицах А и Б есть поля АА и ББ одного и того же типа данных. И есть запрос, в котором эти таблицы связаны по этим полям: АА->ББ, то есть все записи из таблицы А и только те записи из таблицы Б, в которых значения совпадает. И этот запрос отображает, в числе прочих, и поля АА и ББ.

В некоторых записях таблицы А поле АА пустое. В запросе, естественно, поле ББ отображается там как пустое. Я могу в этом запросе заполнить поле АА, записав, например, туда 12345. Поле ББ останется пустым.

А если я (в этом запросе) ПОСЛЕ этого запишу 12345 также и в поле ББ (и выйду из записи -- вверх или вниз по запросу) то в привязанной таблице Б возникнет (типа, автоматически) НОВАЯ запись с значением 12345 в поле ББ.

У меня есть запрос, который так работает, но я не могу воспроизвести такой функционал на других, новых, двух таблицах и запросе. И не понимаю, почему.

Поэтому вопрос: какие именно свойства полей АА и ББ являются достаточными, чтобы такой запрос работал так, как я описал?

https://www.sql.ru/forum/1314954/samo-dobavlenie-zapisey-v-privyazannuu-tablicu

Здравствуйте!
Не пойму как сформировать параметры для запроса MSXML2.ServerXMLHTTP по примеру из документации

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
"account" Date="2018-08-08T20:23:54" Secure="secure" ShowHistory="1">
    "1000028000"/>
    "1000356200"/>
</StatusReport>

Просьба помочь. Спасибо

https://www.sql.ru/forum/1314949/post-zapros

Есть форма с источником в виде тяжёлого запроса.
Нужно сделать красивую печатную форму с этими же данными.
Стандартный путь - делаем отчёт на основе такого же запроса, но это нужно будет снова подождать, пока запрос выполнится.
А есть ли способ скопировать готовый набор записей в отчёт?
Что-то вроде этого:

Private Sub Report_Open(Cancel As Integer)
    Dim RST As DAO.Recordset
    
    Set RST = Forms("форма_источник").RecordsetClone
    Set Me.Recordset = RST
End Sub

Приведённый код выдаёт ошибку: "Это свойство доступно только в файлах ADP"

MS Access 2010 x32, база в MDB.

https://www.sql.ru/forum/1314888/primenit-gotovyy-recordset-k-drugoy-forme

Для сохранении табеля текущего месяца в единую таблицу "истории табелей" какой составной индекс создать?
Запись в табеле характеризуется:
1. Код сотрудника (уникален)
2. Код проекта (уникален для таблицы проектов, но сотрудник может участвовать в нескольких проектах,
проекты могут изменяться, добавляться, прерываться в середине месяца), кстати, проекта может вообще не быть (тогда я ему
присваиваю код сотрудника со знаком минус).
3. Месяц в году.
4. Год.

С удалением "ошибочно введеных сотрудников или контрактов" вроде бы ясно. Это удаление должна обеспечить схема данных.

А вот с добавлением записей (например, задним числом добавляется сотрудник со своим набором проектов),
опыта нет, правильно ли я понимаю предложенную индексацию? Или следует строить базу как-то по-другому.

https://www.sql.ru/forum/1314879/sostavnoy-indeks-v-tabele-ucheta-rabochego-vremeni