Лень двигатель прогресса )))

А можно ли из кода ВБА определить наименование функции/процедуры, где мы сейчас работаем ????

http://www.sql.ru/forum/1164133/opredelit-naimenovanie-funkcii-procedury

Уважаемые форумчане!
Осваиваю 2007 и не могу вьехать в чем моя ошибка-хочу чтоб каждая группа отчета печаталась на отдельной странице. (в 2003 это не вызывало никаких проблем) Гляньте,пожалуйста

http://www.sql.ru/forum/1164132/otchety

Уважаемые форумчане! Есть форма с элементом WebBrowser в которой отображается статическая карта Гугл показывающая расположение объекта недвижимости в зависимости от его почтового адреса (Данные: ="https://maps.googleapis.com/maps/api/staticmap?zoom=" & [Zoom] & "&size=800x600&maptype=roadmap&markers=color:blue%7Clabel:1%7C" & [House] & "," & [Street] & ",Moscow"). Подскажите, пожалуйста, как вывести изображение этой карты в отчет вместе с другими данными формы? Опыт VBA программирования - начальный. Есть ли простое решение?

http://www.sql.ru/forum/1164116/kak-raspechatat-kartu-gugl-v-otchete

Вот в этом классе, заботливо :) предложенным \\\\ 17840035,
встретился такой вот код:

Friend Function SetEOF(Optional ByVal p_lBytes& = -1, _
                       Optional ByVal p_enOffset As CFile_SeekOffsets = 0) As Boolean
Dim lReturn As Long

    If (IsOpen = False) Then Exit Function
    If ((p_lBytes <> -1) And (p_enOffset = 0)) Then Exit Function
    If (p_lBytes <> -1) Then _
        If SeekTo(p_lBytes, p_enOffset) = False Then Exit Function
    lReturn = SetEndOfFile(m_hFile)
    SetEOF = (lReturn <> 0)

' который я привел к такому виду
' 
    If (IsOpen) Then
        If Not (p_lBytes = -1) Then
            If Not (p_enOffset = 0) Then
                If Not SeekTo(p_lBytes, p_enOffset) Then
                    Exit Function                      '  *** EXIT ***
                End If
            End If
        End If
        lReturn = SetEndOfFile(m_hFile)
        SetEOF = (lReturn <> 0)
    End If
End Function

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

Как я ни крутил - не получается :(

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

http://www.sql.ru/forum/1164114/uprostit-vyrazhenie

Доброго времени суток коллеги.
Прошу Вас разъяснить, а скорее помочь в таком вопросе.
Есть четырёх уровневая форма: форма "Точки" - подчинённая в форме "Объект", "Объект" подчинённая форме "Договор" и "Договор" подчинённая форме "Клиент".
В форме "Точки" т.е. в последней из подчинённых, на выходе из последнего поля хочу прописать макрос, что бы курсор переходил в подчинённую форму "Объект"(предпоследняя подчинённая форма) на новую запись первого поля этой формы.
Подскажите пожалуйста как правильно прописать путь в макросе "Выбрать объект". Или как вообще правильно прописать макрос для данного действия.
Использую Access 2010.
Спасибо.

http://www.sql.ru/forum/1164072/vydelenie-obekta-v-4h-ur-forme

Доброго времени суток. подскажите начинающему ибо всё что нашел на просторах форума требует неких знаний.
Суть вопроса такова: есть список задач на которые выделены отрезки времени для выполнения в минутах в формате 15:00, 30:00 что равно 15 и 30 минутам соответственно (такова маска ввода и уйти от этого нельзя), так вот хотелось бы знать как на форме разместить поле где было бы общее время для выполнения всех задач. Форма отображает данные из таблицы но не все записи а применением фильтров. фильтры меняются через переключатели. хотелось бы чтобы после применения того или иного фильтра время соответственно пересчитывалось. Заранее спасибо за толчок в нужном направлении.

http://www.sql.ru/forum/1164028/slozhenie-otrezkov-vremeni-v-minutah-s-perevodom-v-chasy

Всем доброго дня, просьба помочь почему на некоторых компах эта ошибка, пробовал перерегистрировать библиотеку не помогло, устанавливал безопасность макросов на низкую, тоже не помогло.
Установлены Windows XP, Access 97 и Access 2003

http://www.sql.ru/forum/1164024/rugaetsya-na-elementy-activex

Что еще есть в мире, кроме fso & print?
Может какие-то сторонние движки?

http://www.sql.ru/forum/1164018/inye-metody-zapisi-v-tekstovyy-fayl

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

http://www.sql.ru/forum/1163956/vozmozhno-li-rabotat-v-podchinennoy-forme-rabotat-dublikatom

Доброго времени суток!

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

Не подскажите как будет выглядеть SQL запрос если нужно вывести общее количество договоров, заключенных каждым агентом, за период времени(ввести начало и конец этого периода) и их общую стоимость(отдельно стоимость квартир и вознаграждение центра оценки)?

http://www.sql.ru/forum/1163939/mnogotablichnyy-zapros

Добрый день,
Не подскажете как решить один вопрос:
есть отчет, который формируется в зависимости от выбранной записи в табличной форме, скажем например отчет о движении товара.
Всё это работает, но понадобилось сразу распечатывать отчеты для каждой записи, которые есть в форме, например в форме 10 записей и при нажатии один раз на кнопку, для каждой записи распечатывался бы свой отчет по порядку, т. е. сразу распечатывались бы 10 отчетов.

http://www.sql.ru/forum/1163923/pechat-otchetov-po-kol-vu-zapisey

Доброе утро, уважаемые!

При обучении с Access столкнулся вот с какой проблемой, поэтому прошу вашего совета ...

Имеется: MS SQL сервер, adp проект, форма в adp проекте ...
Цель: хотел бы на форме выводить записи из таблицы и редактировать некоторые из них

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

Ради эксперимента проделал все тоже самое на файле mdb все редактируется ...

Не понимаю почему так? получается в adp файлах нельзя внести изменения? если можно то подскажите каким образом ...

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

http://www.sql.ru/forum/1163919/sozdanie-redaktiruemoy-podchinennoy-formy

Всем привет )

Подскажите как отсортировать результат по дате в таком запросе?

SELECT distinct DateU  
FROM Tbl_Lag 
WHERE nr like Ausw    

UNION ALL 

SELECT distinct  '*'   
FROM Tbl_Lag;

Спасибо

http://www.sql.ru/forum/1163850/kak-otsortirovat-union-all-po-ubyvaniu

Есть mdb-файл, в котором содержатся только таблицы одной базы данных.
С помощью OleDbConnection, на C# можно написать код, который подключится к базе, и можно выполнять любые запросы, например, читать данные из таблицы. Это всё просто.
А мне нужно написать три запроса (это вообще не связано с C#, если они будут выполняться в самом Access, тогда выполнятся и в C#-коде).
1-й - прочитать названия всех существующих таблиц.
2-й - зная название таблицы, прочитать названия всех ее полей,
3-й - прочитать типы данных этих полей (Text, Number и т.п.).

Как будет выглядеть такие запросы? Сам Access должен поддерживать их.
Спасибо.

http://www.sql.ru/forum/1163823/kak-v-access-prochitat-nazvaniya-vseh-tablic-i-poley-i-tipov-poley-iz-bazy-mdb-fayla

Здравствуйте, подскажите, пожалуйста, как сделать выборку/запрос из таких данных:

Например, (в Access2003)

589-1550-нет-нет-нет-нет
589--15-нет-нет-нет-нет
589-1549-732-111-6-16
601-599-7886-нет-нет-нет

чтобы в результате получилось:

589-1550
589-15
589-16
601-7886

Табличка в в Access2003
Спасибо.

http://www.sql.ru/forum/1163752/podskazhite-kak-sdelat-vyborku

При открытии БД Access ничего не происходит, а выкидывает в окно создания новой базы.

В чем может быть проблема? Раньше все работало.

База имеет формат 2003 офиса. Восстановление не предлагается...

Если попытаться открыть акссес и руками натравить восстановление, то пишется:
отсутствуют разрешения на использование объекта...

http://www.sql.ru/forum/1163719/ne-otkryvaetsya-access-baza

Сделал форму по примеру из книги Гурвица. Версия Access 2007.
При заполненных полях вместо перехода на другую форму выскакивает ошибка. Помогите определить причину.

http://www.sql.ru/forum/1163699/forma-dlya-vhoda-s-parolem

Добрый день!

Есть форма, на которой есть поле с выпадающим списком (в этом поле стоит запрет на добавление значений не из списка). С помощью макроса вставляю значение в это поле. Подскажи те как оптимальней проверить до вставки, что значение есть в выпадающем списке и только при наличии вставлять в поле?

http://www.sql.ru/forum/1163644/kak-proverit-nalichie-znacheniya-v-vypadaushhem-spiske-polya-vba

У меня одно приложение крутится на Access, а база данных на MS SQL Server 2000 на старом сервере. Купили новый сервер и всё перенесли со старого сервера на новый сервер. Как мне в Access подключить приложение к новому серверу?

Модератор: Тема перенесена из форума "Microsoft SQL Server".

http://www.sql.ru/forum/1163633/kak-izmenit-podkluchenie-k-bd

Добрый день, уважаемые!

Помогите пож-ста задачкой (хочу понять и научиться):
Создал навигационную форму в MS Access на одной из вкладок которой вставил "свободную рамку объекта" лист Excel, планирую чтобы пользователь двойным нажатием открывал лист Excel на форме и копировал туда данные из различных файлов (Excel, Word, блокнот ...), то есть на листе Excel на форме будет собираться вся информация ... (это создал)

Теперь встала задача всю информацию с листа Excel импортировать на сервер MS SQL [SQL_Server_Name] в таблицу [Table_Test]

Никак не могу понять как мне в инструкции FROM указать лист Excel на форме ... так вообще можно делать? корректно ли?
Ниже замученный мой код ...

    Dim ExcelWb As Excel.Workbook
    Dim ExcelWsh As Excel.Worksheet

    Set xlWB = OLE_ExcSh.Object
    Set xlWS = xlWB.Sheets("Лист1")

    Dim rs As New ADODB.Recordset
    Dim Conn As New ADODB.Connection

    Conn.Open ConnectionString:="Provider=SQLOLEDB;" & _
        "Data Source=SQL_Server_Name;Initial Catalog=BDNAME;User ID=Admin1;Password=Admin1"
  
    Conn.Execute "INSERT INTO [Table_Test] ([Name]) SELECT [Имя] FROM [Лист1!$B2:B4]"

Заранее спасибо за советы ...

http://www.sql.ru/forum/1163632/vstavit-dannye-s-lista-excel-v-tablicu-ms-sql-svobodnaya-ramka-obekta