Есть код
Dim НАБОР_ЧЕЛОВЕК As DAO.Recordset
If IsNull(Me.ФИО) Or IsNull(Me.Дата_рождения) Then Exit Sub
Set НАБОР_ЧЕЛОВЕК = CurrentDb.OpenRecordset("SELECT * FROM Таблица1 " _
& "WHERE [ФИО]='" & Me.ФИО & "' " _
& "and [Дата рождения]=" & Format(Me.Дата_рождения, "\#mm\/dd\/yyyy\#"))
If Not НАБОР_ЧЕЛОВЕК.EOF Then
Me.серия_№_паспорта = НАБОР_ЧЕЛОВЕК![серия № паспорта]
Me.Адрес_регистрации = НАБОР_ЧЕЛОВЕК("Адрес регистрации")
End If
НАБОР_ЧЕЛОВЕК.Close
Set НАБОР_ЧЕЛОВЕК = Nothing


как переделать данную строчку на текстовый тип поля

& "and [Дата рождения]=" & Format(Me.Дата_рождения, "\#mm\/dd\/yyyy\#"))

http://www.sql.ru/forum/1184471/pomogite-s-kodom

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

Есть таблица с полями [ID][Наименование][Бренд][Вид товара][Товарная группа] и проч.

В настройках товарной группы есть текстовое поле [Шаблон наименований], где задается шаблон для сбора наименования по названию полей верхней таблицы, вида: [Наименование]+' '+[Бренд]+' '+[Вид товара]

При выводе списка номенклатуры как в код запроса VBA встроить этот шаблон?

Access 2003 + MS SQL Server 2008

http://www.sql.ru/forum/1184454/naimenovanie-po-shablonu

Поскажите, как правильно прописать поле со столбцом в поле отчёта, что бы показывало значение, а не код. Например: ="Текст....."&[IDClient]...?&"Тест...."

http://www.sql.ru/forum/1184431/znachenie-v-pole-otchyota

Доброе время суток.
Создавая экспорт в шаблон экселя столкнулся с непонятной для меня ситуацией, странно работающим запросом.
Ситуация следующая:
1. В запросе должен производиться отбор по промежутку между определенными датами (+еще один параметр), которые задаются на форме с которой происходит запуск экспорта в Эксель.

Private Sub Кнопка93_Click()
Dim XL As Object, XLT As Object, o As Object, s As String, newrow As Object, cell As String
Dim cn As ADODB.Connection, rsd As ADODB.Recordset
Dim i As Integer, Rowss As Integer, numrow As Integer
Dim strSQL As String
Set XL = CreateObject("excel.application")
Set cn = CurrentProject.Connection
Set rsd = New ADODB.Recordset
strSQL = "SELECT CDate(FormatDateTime(uchet.time_podachi,2)) AS data, uchet.time_podachi, voditeli.fio, voditeli.grz, gp.gp, uchet.stoimost_za_chas, uchet.[kol-vo_chasov] AS РабЧасы, [kol-vo_chasov]*[stoimost_za_chas] AS StoimSmeni, mashruti.march FROM mashruti RIGHT JOIN (voditeli RIGHT JOIN (gp RIGHT JOIN (kompany RIGHT JOIN uchet ON kompany.id_komp = uchet.id_komp) ON gp.id_gp = uchet.id_gp) ON voditeli.id_vod = uchet.id_vod) ON mashruti.id_march = uchet.marchrut WHERE ((kompany.nazv='" & Me.ПолеСоСписком66 & "') AND (cdate(FormatDateTime(uchet.time_podachi,2))>='" & Me.Поле79 & "' And Cdate(FormatDateTime(uchet.time_podachi,2))<='" & Me.Поле81 & "'))"
rsd.Open strSQL, cn, adOpenKeyset, adLockReadOnly
Set XLT = XL.Workbooks.Add
Set o = XLT.Worksheets("Лист1")
Rowss = 5
numrow = 1
XLT.Worksheets("Лист1").[b3] = "ООО """ & Me.ПолеСоСписком66 & """"
XLT.Worksheets("Лист1").[h3] = "Счет № " & Me.Поле74 & ""
XLT.Worksheets("Лист1").[b2] = "За период с " & Me.Поле79 & " по " & Me.Поле81 & ""
While Not (rsd.EOF)
     If Rowss >= 2 Then
         XLT.Worksheets("Лист1").Rows(Rowss).Insert
     cell = "a" & Rowss
         XLT.Worksheets("Лист1").Range(cell) = numrow
         cell = "b" & Rowss
         XLT.Worksheets("Лист1").Range(cell) = rsd.Fields("data").Value
         cell = "d" & Rowss
         XLT.Worksheets("Лист1").Range(cell) = rsd.Fields("fio").Value
         cell = "c" & Rowss
         XLT.Worksheets("Лист1").Range(cell) = rsd.Fields("grz").Value
         cell = "e" & Rowss
         XLT.Worksheets("Лист1").Range(cell) = rsd.Fields("gp").Value
         cell = "f" & Rowss
         XLT.Worksheets("Лист1").Range(cell) = rsd.Fields("stoimost_za_chas").Value
         cell = "g" & Rowss
         XLT.Worksheets("Лист1").Range(cell) = rsd.Fields("РабЧасы").Value
         cell = "h" & Rowss
         XLT.Worksheets("Лист1").Range(cell) = rsd.Fields("StoimSmeni").Value
         cell = "i" & Rowss
         XLT.Worksheets("Лист1").Range(cell) = rsd.Fields("march").Value
     Rowss = Rowss + 1
         rsd.MoveNext
     Else
         cell = "a" & Rowss
         XLT.Worksheets("Лист1").Range(cell) = numrow
         Rowss = Rowss + 1
         rsd.MoveNext
     End If
         numrow = numrow + 1
Wend
o.Cells(Rowss, 7) = "Итого"
o.Cells(Rowss, 8).Formula = "=sum(h5:h" & Rowss - 1 & ")"
o.Cells(Rowss, 9) = "р."
XL.Visible = True
Set XL = Nothing
Set XLT = Nothing
Set newrow = Nothing
End Sub

2. Поля 79 и 81 на форме имеют формат Короткая дата и привязанный элемент управления типа Календарь.

В результате же я получаю не отбор внутри дат, а те результаты в которых присутствует день с номером внутри номеров дней из диапазона (Поле 79 и 81).
Это почему так?

Тот же (почти) запрос внутри аксеса, который я использую для отчета, отрабатывает диапазон нормально:

SELECT CDate(FormatDateTime([time_podachi],2)) AS data, voditeli.fio, voditeli.grz, gp.gp, uchet.stoimost_za_chas, uchet.[kol-vo_chasov] AS РабЧасы, [kol-vo_chasov]*[stoimost_za_chas] AS StoimSmeni, mashruti.march, uchet.time_podachi
FROM mashruti RIGHT JOIN (voditeli RIGHT JOIN (gp RIGHT JOIN (kompany RIGHT JOIN uchet ON kompany.id_komp = uchet.id_komp) ON gp.id_gp = uchet.id_gp) ON voditeli.id_vod = uchet.id_vod) ON mashruti.id_march = uchet.marchrut
GROUP BY CDate(FormatDateTime([time_podachi],2)), voditeli.fio, voditeli.grz, gp.gp, uchet.stoimost_za_chas, uchet.[kol-vo_chasov], [kol-vo_chasov]*[stoimost_za_chas], mashruti.march, uchet.time_podachi, kompany.nazv
HAVING (((CDate(FormatDateTime([time_podachi],2)))>=[Forms]![uchet]![Поле79] And (CDate(FormatDateTime([time_podachi],2)))<=[Forms]![uchet]![Поле81]) AND ((kompany.nazv)=[Forms]![uchet]![ПолеСоСписком66]));

Спасибо

http://www.sql.ru/forum/1184430/zapros-dlya-eksporta-v-formu

Мое почтение присутствующим. Давненько я не задавал вопросов по Аксессу...

Аксесс 2013. Делаю отчет с фоновой картинкой. Картинка видна во всех режимах, включая предпросмотр, - но почему-то не выходит при печати на принтере. Где что надо подкрутить? Заранее спасибо.

http://www.sql.ru/forum/1184355/pechat-otcheta-s-fonom

Ребят начал делать работу :
Вариант 6
1. Выполните проектирование БД по теме «Магазин». БД должна содержать сведения о товарах, сотрудниках и поставщиках.
2. Создайте БД по проекту. Заполните БД.
3. Определите стоимость каждой партии товаров.
4. Выберите все товары от поставщика ООО «Альфа»
5. Сколько видов товаров поставляет каждый поставщик?
6. Распечатайте ценники на товары.

все сделал а вот на 5, т.е Сколько видов товаров поставляет каждый поставщик, вообще завис , пробовал в sql SELECT Count(Поле) FROM Таблица GROUP BY Поле WHERE поле = но там ошибка синтаксиса, вообщем ребят наведите к какую сторону думать) спс :-)

http://www.sql.ru/forum/1184345/podschet-povtoryaushhihsya-znacheniy

Господа, приветствую.

Есть задача - считывать определенные письма из Outlook. Из вложений в письмах считывать информацию (в pdf файлах) и сохранять данные в базу + создавать письма автоматом на те данные, что приходят из писем.
Ну и так как это действие долгоиграющее - прогрессбар для отрисовки сколько всего писем будет отработано, сколько информации в них, сколько отработано...

Весь процесс сделан, работал. Но попался комп, на котором есть проблема.
Комп значительно мощнее моего и многих, на которых пробовалось. Даже на виртуалке у себя пробовал.
Процесс:
Выборку нужных писем - предварительную, для значений прогрессбара и сохранение нужных писем в коллекцию.
Сохранение и конвертацию pdf в txt. (тоже не с первого раза нашел конвертер)
Проблема:
Часто(случайным образом, систему не смог вычислить) - после отработки конвертации - при попытке считать сам файл txt дает пустую строку. Дальше процесс "ложится".
Причем может первое письмо не обработать(считать сконвертированный txt), а может и где то в середине.
При проверке кода с точкой останова - все ок. Все везде считывается. При любом количестве писем.

Понимаю, что процесс идет асинхронно. Кто то за кем то не успевает.

Пробовал проверять наличие файла через

If Dir(strNameFile, vbDirectory) <> "" Then

и потом (к сожалению код не сохранил, но принцип этот)

FileName = "C:\1\1.txt"

f = FreeFile

Open FileName For Input As f
Do While Not EOF(f)
  FileTxt = Input(1, #f)
  Debug.Print UsefulTxt
Loop
Close #f

Показывает, что файл есть, а ничего не считывает с файла, точнее данные файла=""

Пробовал проверять через FSO.

Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(strNameFile) Then
    Set FSTR = FSO.OpenTextFile(strNameFile)
    BodyTxt = FSTR.ReadAll
    FSTR.Close
    Set FSTR = Nothing
End If

Проблема остается.


Пробовал ставить задержку до считывания

For aa = 1 To 100
        For ee = 1 To 110
        If Dir(strMyFileNameTo, vbDirectory) <> "" Then
            
        End If
    Next ee
Next aa

помогает, но для каждого компа нужно подбирать свое значение задержки. Да и процесс удлиняет на много. Понятно что не климатит.
Да и если чуть перебрал в подборе - неприятное подвешивание самого акса, не системы.
Кстати, заметил, что процесс берет не больше 25% от процессора, правда по мере обработки писем - растет занятая память оперативы компа. Правда как то сразу не догадался проверить (сейчас не могу) - что съедает память. но в объем памяти - не упираюсь.

Переделал на построчное считывание файла txt (через клас), не помогло.
Запихнул проверку наличия файла перед построчным считыванием(тут на форуме нашел)

While Dir(strNameFile) = ""
    a = a + 1
    If a = 10000 Then ' вставил иначе можно от сюда никогда и не выйти
        GoTo ReadTXT_Error
    End If
    DoEvents
Wend

проблема может улучшилась, но не решилась полностью.

Пробовал даже сохранение и конвертацию вставлять в начало процесса - в момент выборки писем, а считывать
текстовый файл по мере обработки выбранных писем. Не помогло...
Может вопрос в том, что в этом процессе идет обращение к нескольким "сторонним приложениям"?
Сначала Outloook(выборка и сохранение вложений), потом конвертер( из pdf в txt), потом запись данных в базу, потом опять Outlook(создание писем, событий)

Кучу написал, уж простите, но это чтобы было видно что и как делал. Чтобы не повторяться с вариантами решения проблемы

Прошу помощи в вопросе:
Как мне побороть это не успевание или неправильное считывание конвертированного файла?

http://www.sql.ru/forum/1184155/schityvanie-tekstovyh-faylov-v-cikle

Господа, не пинайте, пожалуйста, новичка за ламерский вопрос!

Суть такова. Заказчик хочет приложение в котором таблицы имеют формат Access 7/10, но с одним условием: не использовать для разработки интерфейса, отчетов, запросов и прочих плюшек, встроенных в Access. Весь код - на Visual Basic 10. Т.е. из Access - только таблицы, всю обвязку - на VB10.
К Access-у, как к среде разработки и исполнения, у заказчика нет никакой симпатии. Переубедить - не получилось.
Отказываться от разработки не хочется: и задача интересная, и опять же деньги - пусть и невеликие - платят :)
Если бы с приложение было однопользовательское, то тогда вопросов бы не было, но приложение многопользовательское (хотя и маленькое - максимум 10-12 коннектов). В связи с этим и вопрос: можно ли такое сотворить на VB10 и как в этом случае обеспечивается целостность данных в таблицах? Скажем, в таблице есть поле с автоинкрементным типом данных "Счетчик". Кто будет отслеживать его правильное приращение при одновременной попытке добавления записи? Или, допустим, несколько пользователей одновременно пытаются редактировать одну и ту же запись - как обеспечивается блокировка? Ведь от Access-а с его механизмами блокировки, транзакций и проч. остались только рожки да ножки (одни таблицы внутри файла accdb) - вся логика на VB10.
MSSQL - не катит. Только accdb.
Кто сталкивался, где почитать?

Спасибо, что прочли до конца мои страдания :)

http://www.sql.ru/forum/1184153/iz-access-tolko-tablicy-vse-ostalnoe-na-vb10

Доброго времени суток. Прошу поделиться опытом. Создаю базу по продажам в Access для последующего формирования отчетов в Excel. Таблиц будет много, но все сводится к тому, что есть "главная таблица" и очень много справочников к полям главной таблицы. Весь вопрос можно продемонстрировать на простом примере.

Поля "главной" таблицы (поля 1-6 являются составным первичным ключом):
1. номер документа
2. дата документа
3. сбытовая организация
4. клиент
5. номер позиции в документе
6. артикул
7. количество
8. деньги и т.д.

Справочник по артикулам:
1. артикул (первичный ключ)
2. бренд
3. продуктовая иерархия
4. наименование артикула и т.д.

Стоит ли индексировать поля бренд и продуктовая иерархия (с точки зрения скорости выполнения запросов / в "главной" таблице будет несколько миллионов записей) "Да, совпадения допускаются" если задача будет совместить все справочники с "главной" таблицей для построения отчетов в различных разрезах?

При этом в порядке следования артикулов по возрастанию (в справочнике) нет системы в назначении бренда. Т.е.
артикул 1 - бренд 1
артикул 2 - бренд 2
артикул 3 - бренд 1
артикул 4 - бренд 2

Много пытался читать про индексы, но однозначного решения нет, поэтому прошу поделиться мыслями и опытом. Скрин части базы прикрепил.

Буду благодарен за любую помощь. Спасибо.

http://www.sql.ru/forum/1184051/ispolzovanie-indeksov

Если во время сеанса загрузки файла, который лежит на сервере, кликнуть на форме, которая на экране, мышкой, то виндовс вешает программу и сообщает, что:

закрыть
дождаться
искать решения

Как решить проблему?
Что бы не возникало такой ситуации.
Какие решения, возможно, уже имеются к вас.
--------------------------------------------------------------------------
СПС

http://www.sql.ru/forum/1183972/zagruzka-fayla-po-seti-i-mysh

Имеется файл Excel с данными
необходимо разработать файл Access для обработки данных и макрос для переноса новых данных из Excel

http://www.sql.ru/forum/1183899/programmno-perenesti-dannye-iz-excel-v-access

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

СУБД: MS Access 2013.

Имеется форма, на которой есть две кнопки: "Создать резервную копию БД" и "Сохранить структуру БД".

Задача:
При нажатии на кнопку "Создать резервную копию БД" мне нужно создать копию текущей БД.
При нажатии на кнопку "Сохранить структуру БД" мне нужно сохранить полностью структуру БД (без данных).

Подскажите, как это можно организовать? Пытался найти макросы, искал в инете - пока безрезультатно...

http://www.sql.ru/forum/1183868/damp-bd-access-damp-struktury-bd-ms-access

Можно ли из кода проекта (VBA, MS Access) обращаться к DDE источнику данных (DDE-серверу) и забирать текущие значения данных?

http://www.sql.ru/forum/1183805/kak-kod-ms-access-podkluchit-k-dde-serveru

Приветствую!
Есть страшная таблица с большим объемом данных. Одно из полей таблицы - поле MEMO. Данные там хранятся примерно в следующем виде:

+

Контрактовая пл., 2/1, Киев, Киевская область 01001, Украина [Lat : 50.463518 | Long : 30.516520] ул. Драгоманова, 44-А, Киев, Киевская область 01001, Украина [Lat : 50.403210 | Long : 30.635295] ул. Героев Сталинграда, 12-Г, Киев, Киевская область 01001, Украина [Lat : 50.503088 | Long : 30.513864]

Нужно распарсить это поле построчно в отдельную таблицу, куда отдельным полем добавить ключевое поле (из основной таблицы), например offer ID.
Листинг VBA подскажите пожалуйста.
Заранее благодарю.
_____________________
А что на самом деле хотел сказать Frost_Imp никто не знает, так как администрация форума попросила его быть вежливым.

http://www.sql.ru/forum/1183760/parsing-polya-memo

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

http://www.sql.ru/forum/1183752/istochnik-dannyh-dlya-otchyota-s-filtrom-v-forme

Здравствуйте,
Есть таблица с полями:
КЦ
НазваниеКЦ_новые больше полей нет

В другой таблице также есть поля
КЦ
НазваниеКЦ_Старые и др. поля
Вопрос: Как написать запрос на обновление таблицы, т.е. НазваниеКЦ_Старые обновить на новые

http://www.sql.ru/forum/1183729/zapros-na-obnovlenie

Господа, помогите, пожалуйста, новичку.
Задача: создать нужно базу с документами по клиентам и датами действия этих документов.
Схемка в приложении.
Совершенно не понимаю, какая должна быть иерархия для предполагаемых таблиц с разными типами док-ов. Пока вся эта красота у меня простыней в Excel, но очень хочется понять, как это собрать в Access. Если кому-нибудь не жалко, очень прошу проконсультировать.

Спасибо большое!

http://www.sql.ru/forum/1183686/vopros-baza-dlya-kontrolya-dokumentov-po-klientam

Доброго времени суток.
Столкнулся с такой вот проблемой
В запросе на выборку (Access 2010) в условии отбора стоит функция: Is Not Null And Between[Forms]![Form1]![Начальная дата] And [Forms]![Form1]![Конечная дата]
На одном ПК данная функция полностью работает,т.е. как и нужно вызывает форму, эта же база на другом ПК с тем же Аксом форму не вызывает, а вызывает окно ввода и пишет введите значение параметра [Forms]![Form1]![Начальная дата]
Поясните если кто знает в чём проблема, может что то в параметрах акса?
Спасибо.

http://www.sql.ru/forum/1183675/vyzov-formy-iz-zaprosa

Необходимо, чтобы при изменении значения поля крайней записи менялось это же поле аналогичной первой записи. То, есть при изменении крайнего № паспорта Иванова Ивана Ивановича, 01.01.1991
менялась первая запись № паспорта Иванова Ивана Ивановича, 01.01.1991. Сравнение необходимо делать по двум полям Фио и Дата рождения.
Надеюсь понятно изложил проблему:)

http://www.sql.ru/forum/1183674/pri-izmenenii-posledney-zapisi-menyalas-pervaya

Почему, когда я нажимаю кнопку вручную процедура, которая написана на нее работает нормально, правильно.
А когда данная кнопка нажимается программно, то ничего не происходит?


If поле1 = "привет" Then

Кнопка01_Click

End If

http://www.sql.ru/forum/1183623/programmnoe-nazhatie-knopki