Добрый день.
Есть задача: отправить сообщение из MS Access сразу группе пользователей. Т.е. на почтовом сервере (Exchange) есть заранее созданные группы пользоваьелей например, boss, sale, buyer, buyer, acc и т.д. В каждой группе содержатся конкретные E-mail адреса. А как указав отправителя buyer отправить сообщение всем участникам группы? Можно, конечно, в цикле собрать электронные адреса через ";" , но пользователи против этого. Они хотят видеть именно группы в качестве отправителей.
Использую следующий код для отправки. Всё работает с реальными E-mail адресами, но если OutLookItem.To присвоить значение buyer, то Outlook ругается. У кого есть мысли, поделитьсь ...

  Public Sub SendEmailAtt(ByVal MyTo As String, MySybject As String, _
  Optional MyBody As String, Optional MyAttachment As String, _
  Optional MyAttachment2 As String, Optional NoWait As Boolean, Optional FromNameEmail As String)
    Dim OutLookApp As Object      'Ссылка на MS Outlook
    Dim OutLookItem As Object     'Ссылка на сообщение
    Dim OlNotRunning As Boolean   'открыт MS Outlook на момент выполнения
    Dim AdobeApp As Object
    Dim myNameSpace As Object
On Error Resume Next
'Проверяем не открыт ли уже MS Outlook
Set OutLookApp = GetObject(, "Outlook.Application")
If Err.Number <> 0 Then 'Если ошибка то не открыт и запускаем его
    OlNotRunning = True
    Err.Clear
    Set OutLookApp = CreateObject("Outlook.Application")
End If
'Создание сообщения
Set OutLookItem = OutLookApp.CreateItem(0)
    OutLookItem.To = MyTo                         'кому
    OutLookItem.Subject = MySybject               'тема
    OutLookItem.Body = MyBody                     'текст
    OutLookItem.Attachments.Add MyAttachment      'вложение1
    OutLookItem.Attachments.Add MyAttachment2     'вложение2
    If Nz(FromNameEmail, "") <> "" Then
     OutLookItem.SentOnBehalfOfName = FromNameEmail
    End If
    OutLookItem.Display                           'Отображение сообщения
'Закрытие OutLook если не был запущен до выполнения процедуры отправки
    If OlNotRunning = True Then OutLookApp.Application.Quit
    If NoWait = True Then OutLookItem.send
End Sub

http://www.sql.ru/forum/1226920/kak-otpravit-pochtu-gruppe-polzovateley

Есть исходная форма с группой перключателей из 3 штук. И есть встроенная форма тоже с группой переключателей из 3 штук. Стоит задача при включении переключателя 1 в исходной форме должен включаться такой же переключатель в подчиненной форме.
Подскажите как это сделать. Буду очень признателен.

http://www.sql.ru/forum/1226861/ochen-nuzhna-pomoshh-s-formami

Добрый день.
Прошу помощи. Необходимо сделать фильтрацию в подчиненной табличной форме. Причем там, чтобы фильтр применялся по мере ввода данных. Для этого использую событие поля Change. Но что-то не складывается. Может сработать 1 раз, потом не работать, а потом сработать при деактивации и повторной активации поля и ввода в него данных. Изначально использовал свойства подчиненной формы Filter и FilterOn - не получилось. Потом решил попробовать со свойством RecordSource - та же история. Код прилагаю ниже.

' Не работает, как ожидается, при вводе символов
   Private Sub FindCity_Change()
    Dim query As String
    Dim flt As String
    Dim rs As String
    
    query = "SELECT * FROM Grid"
    flt = "WHERE City like '" & FindCity & "'"
    rs = query & " " & flt
    
        With Grid.Form
            .RecordSource = rs
            .Requery
        End With
End Sub

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

Private Sub FindCity_AfterUpdate()
' Прекрасно работает после написания критерия
    Dim query As String
    Dim flt As String
    Dim rs As String
    
    query = "SELECT * FROM Grid"
    flt = "WHERE City like '" & FindCity & "'"
    rs = query & " " & flt
    
        With Grid.Form
            .RecordSource = rs
            .Requery
        End With
End Sub

Но задача стоит о применении фильтра именно в процессе ввода данных. Буду очень благодарен за помощь.

http://www.sql.ru/forum/1226860/filtraciya-dannyh-v-podchinennoy-forme-afterupdate-i-change

Добрый день

Не подскажете по сабжу?
Обозначение изотопа состоит из одной или двух букв (первая - заглавная, вторая - прописная), дефиса, одной-трех цифр и, возможно, одной прописной буквы после цифр. Примеры:
H-3
Co-60
I-131
Ag-110m
Cs-137

Пока вот такой вариант получился, но плохо: >?

http://www.sql.ru/forum/1226851/maska-vvoda-dlya-oboznacheniya-izotopa

Здравствуйте!
Есть вопросик.

Обновляю listview
делаю ListItems(...).Selected
ListItem выделяется, но если список длинный, скрол перескакивает на начало списка.

Как сдвинуть скрол, на выбранную запись (не мышкой)?

http://www.sql.ru/forum/1226847/skrol-v-listvu

Не могу понять почему не работает простейший код, обновляющий поле name?
Поле не обновляется???
(Доступ к серверу MySQL по ODBC)

Dim cnn As ADODB.Connection
Dim rcs As New ADODB.Recordset

cnn.ConnectionString = "Provider=MSDASQL;FileDSN=C:\ClientsMySQL\clientsmysql;UID=u0080760_yanutsh;PWD=y3233207;"
cnn.Open

rcs.Open "testinnodb", cnn, adOpenKeyset, adLockOptimistic
rcs.Fields("name") = "вася"
rcs.Update

rcs.Close

http://www.sql.ru/forum/1226839/pochemu-ne-rabotaet-update

Есть разделенная база .mdb A2003. Файл с данными весит ~ 450 МВ. В базе отмечается до 30 пользователей.
Как оценить кто сколько времени работал в базе и сколько МВ за это время перекачано?
Подскажите куда копать.

http://www.sql.ru/forum/1226812/kak-ocenit-vremya-raboty-polzovatelya-v-baze-i-trafik

Уважаемые коллеги, добрый день!
Возникла необходимость отправлять из аксесса почту с использованием почтового клиента Thunderbird.
Есть простенький пример кода, он работает сносно:

Dim FullStr As String
FullStr = "C:\Program Files\Mozilla Thunderbird\thunderbird.exe"
FullStr = FullStr & " -compose to=""198527@gmail.com"""
FullStr = FullStr & " ,subject=""Письмецо"""
FullStr = FullStr & " ,body=""Письмище"""
'FullStr = FullStr & " ,attachment=""file:///E:/123.xls"""
 
Shell FullStr, 1

НО.

При попытке написать в теле письма несколько предложений, данный клиент отсекает знаки препинания. К примеру , если текст письма примерно такой : "Уважаемые коллеги, добрый день!" То письмо отсекается и в теле пишется фраза до знака препинания. В данном случае получается следующее в теле письма: "Уважаемые коллеги". Прошу помочь, кто нибудь сталкивался? Тут две проблемки, одна с экранирование знаков препинания, другая с переносом строки VbCrlft .

http://www.sql.ru/forum/1226774/otpravka-pisma-s-ispolzovaniem-mozilla-thunderbird

Уважаемые, помогите пожалуйста создать отчет по критериям(очень нужно, мне врачу, в работе).
Выбор 1. по дате с даты по дате. 2. по коду 3.по возрасту с лет по лет. Заранее благодарен!

http://www.sql.ru/forum/1226656/otchet

Добрый день!

В Таблице qdfHistoryProducts, учитываются приход, списание, и перемещение из Склад Х, и перемещение товара в Склад Х товара.

Пытаюсь вывести ID склада (StoreIDCalc), название склада (StoreNameCalc), ID товара (MaterialID),Название Товара (MaterialCalc), Кол-во товара (SumQuantity) , Кол-во списанных товаров(Списание), кол-во поступление товара(Поступление), Кол-во перемещение (Перемещение) из таблицы qdfHistoryProducts

Получила, таблицу qdfStoreState то что надо, но access виснет перестает работать. В чем проблема?

T Deals5.*, (SELECT Sum(Quantity) FROM qdfHistoryProducts Deals1 WHERE Deals1.MaterialID= Deals5.MaterialID  AND OperationType='Списание') AS Списание, (SELECT Sum(Quantity) FROM qdfHistoryProducts Deals1 WHERE Deals1.MaterialID= Deals5.MaterialID  AND OperationType='Приход') AS Поступления, (SELECT Sum(Quantity) FROM qdfHistoryProducts Deals1 WHERE Deals1.MaterialID= Deals5.MaterialID  AND OperationType='Перемещение в') AS  Перемещение
FROM (SELECT StoreIDCalc, tblStores.StoreName AS StoreNameCalc, qdfHistoryProducts.MaterialID, qdfHistoryProducts.MaterialCalc, Sum(qdfHistoryProducts.Quantity) AS SumQuantity
FROM qdfHistoryProducts LEFT JOIN tblStores ON qdfHistoryProducts.StoreIDCalc=tblStores.ID
GROUP BY StoreIDCalc, tblStores.StoreName, qdfHistoryProducts.MaterialID, qdfHistoryProducts.MaterialCalc)  AS Deals5;

http://www.sql.ru/forum/1226620/oshibka-v-kode-raschet-spisaniya-i-peremeshheniya

Есть поле со списком. источник строк запрос из таблицы "SELECT tSpravochnik.id, tSpravochnik.Cost, tValuta.Kurs...."

Надо сохранить id как уникальный номер, но в то же время надо подставить в это поле со список Cost* Kurs
Как сие сотворить, поиметь и id и cost? Сохранить id в отдельно поле а Cost в поле со списком?

http://www.sql.ru/forum/1226565/spisok

Прошу совета у бывалых.


Private Sub txt_kod_AfterUpdate()

CurrentProject.Connection.Execute "UPDATE [Рулоны] SET [КодПечати] = " & Me.txt_kodprn & " WHERE [Код] = " & Me.txt_kod
Me.lst_rulony.Requery

End Sub

Что не так сделал?))

http://www.sql.ru/forum/1226396/ne-rabotaet-zapros-na-obnovlenie-chto-ne-tak

Здравствуйте!
Подскажите пожалуйста можно ли помимо стандартных кнопок в Msgbox вставить свою кнопку?

http://www.sql.ru/forum/1226384/knopki-v-msgbox

Наткнулся на свежий тред на StackOverflow
.

http://www.sql.ru/forum/1226374/rnd-s-kartinkami

Добрый день.
Нужен запрос по типу Like[], но что бы в него можно по необходимости вводить больше значений.
Например есть база заказов. Заказы не как друг с другом не связаны, но 4 заказа едут в один магазин, и мне нужно вывести их в одной форме. Просто если брать Like[] то там можно ввести только один заказ, а нужно больше. И их бывает по 20 шт.

http://www.sql.ru/forum/1226357/bolshoe-kolichestvo-dannyh-v-zapros-po-tipu-like

Помогите пожалуйста ранжировать строки целиком по дате (нужный столбец с датами выделен)

http://www.sql.ru/forum/1226353/kak-ranzhirovat-stroki-po-date

Добрый день.
У меня есть код для сохранения и закрытия exsel файла.

For i = 1 To 15000: DoEvents: Next
Set xlWb = GetObject(, "Excel.Application")
xlWb.Application.Visible = True
xlWb.Application.displayalerts = False
xlWb.Application.activeworkbook.SaveAs FileName:="F:\SC\Bykovo Warehouse\ÝÒÈÊÅÒÊÈ\Delivery access.XLSX", FileFormat:=51
xlWb.Application.displayalerts = True
xlWb.Quit

Но в нем есть особенность, он закрывает все файлы exsel. Может кто подскажет как прописать закрытие определенного файла.

http://www.sql.ru/forum/1226346/sohranenie-excel-fayla-cherez-makros-access

Как осуществить пессиместичную блокировку в многопользовательском режиме изменяемой записи при доступе с клиентской части (Access) по ODBC к базе на MySQL?
Все установки в Access при доступе по ODBC не действуют.

http://www.sql.ru/forum/1226310/blokirovka-zapisi-pri-odbc-dostupe

Уважаемы профессионалы! Помогите написать код загрузки по нажатию "Кнопка1" изображения 1.jpg, расположенного на рабочем столе, в поле "Изображение1" на форме "Форма1". Формат поля - "вложение". Буду признателен!

http://www.sql.ru/forum/1226222/zagruzka-izobrazheniya-po-nazhatiu-knopki

Добрый день. Столкнулся с такой проблемой. Создаем форму навигации из Создание-Формы-Навигация-Вертикальные вкладки, слева. Несколько отчетов из Области переходов перетаскиваем на форму. Отчеты там становятся на вроде кнопок, при нажатии на которые в этой же форме открывается содержимое отчета. Так как в отчетах присутствуют запрашиваемые параметры, то при нажатии на на одну из этих кнопок появляется окошко запроса требуемого параметра. Это все правильно и так и надо. Проблема в том, что при открытии самой Формы навигации она выделяет первый в списке отчет (как бы обращается к нему) и появляется его запрос параметров. Хотелось бы что бы что бы запрос параметра отчета происходил только при нажатии на кнопку этого отчета, а не при открытии формы в которой он содержится. Подскажите, пожалуйста, как мне такое поведение отключить.

http://www.sql.ru/forum/1226199/zapros-parametrov-pri-otkrytii-navigacionnoy-formy