Здравствуйте, чё-то конкретно затупил, не могу врубиться. Пожалуйста, ткните пальцем чё не так. Вот создаю главную таблицу с 4-рьмя записями [Динамика учета]. Эти 4-ре записи подставляются через мастер подстановок в одно из полей другой таблицы [Архивные и переведенные]. В схеме данных отношение 1 ко многим, где 1 - [Динамика учета], а многие - [Архивные и переведенные]. Проблема в том, что в главной таблице, которая [Динамика учета] нету плюсиков в углу, при нажатии на которые раскрываются соотв. записи из подчиненной таблицы, которая [Архивные и переведенные]. Где я туплю?

http://www.sql.ru/forum/1197676/zatupil-na-elementarnom

При внесении и корректировке записи ставится дата изменения. Хранится в поле в формате Data. На компе сбились часы. (на 2 часа). Было сделано около 1000 записей. Теперь надо поставить правильное время. Как это сделать побыстрее и попроще? Что-то крутится, а никак вспомнить не могу. Если к дате прибавить или отнять целое число, но дата изменится на соответствующее количество дней. А сколько надо прибавить, чтоб изменилась на часы? Кто подскажет?


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

http://www.sql.ru/forum/1197673/kak-izmenit-datu-prostym-deystviem

Добрый день. Отчет по месяцам.
См. скриншот. Надо сделать так, чтоб на одном линии были все отчеты. Убрать нули. Как это сделать?
исходный код:

SELECT IIf(Month(PaymentDate)=1 And Year(PaymentDate)=2015,SUM(qdfPayments.IncomeAmount),0) AS Jun, IIf(Month(PaymentDate)=2 And Year(PaymentDate)=2015,SUM(qdfPayments.IncomeAmount),0) AS Feb, IIf(Month(PaymentDate)=3 And Year(PaymentDate)=2015,SUM(qdfPayments.IncomeAmount),0) AS March, IIf(Month(PaymentDate)=4 And Year(PaymentDate)=2015,SUM(qdfPayments.IncomeAmount),0) AS Apr, IIf(Month(PaymentDate)=5 And Year(PaymentDate)=2015,SUM(qdfPayments.IncomeAmount),0) AS May, IIf(Month(PaymentDate)=6 And Year(PaymentDate)=2015,SUM(qdfPayments.IncomeAmount),0) AS June, IIf(Month(PaymentDate)=7 And Year(PaymentDate)=2015,SUM(qdfPayments.IncomeAmount),0) AS July, IIf(Month(PaymentDate)=8 And Year(PaymentDate)=2015,SUM(qdfPayments.IncomeAmount),0) AS Aug, IIf(Month(PaymentDate)=9 And Year(PaymentDate)=2015,SUM(qdfPayments.IncomeAmount),0) AS Sept, IIf(Month(PaymentDate)=10 And Year(PaymentDate)=2015,SUM(qdfPayments.IncomeAmount),0) AS Oct, IIf(Month(PaymentDate)=11 And Year(PaymentDate)=2015,SUM(qdfPayments.IncomeAmount),0) AS Dov, IIf(Month(PaymentDate)=12 And Year(PaymentDate)=2015,SUM(qdfPayments.IncomeAmount),0) AS [Dec]
FROM qdfPayments
GROUP BY Month(PaymentDate), Year(PaymentDate);

http://www.sql.ru/forum/1197639/access-vyvesti-otchet-po-mesyacam

Здравствуйте! не могу нигде найти примера формы авторизации в Access и SQl. форма логин пароль. надо чтоб проверяла с данными в базе SQL и либо выводила вход либо неверный пароль. Нашла только если таблица создана в самой базе access. А как сделать проверку если таблица в SQL??

Может ссылку где такое реализовывалось или код для примера. уже всю голову сломала(

http://www.sql.ru/forum/1197624/forma-avtorizacii-v-sql

Добрый день, помогите исправить выходит ошибка error 438 object doesn't support this property or method в строке с Dcount

    If DCount("[]", "[Upr].[kod_upr]='" & rs.Field(8) & "'") > 0 And DCount("[]", "[StrEd].[nStrEd]='" & rs.Field(4) & "'") > 0 Then
rs3.AddNew
rs3.Fields("kod_25") = rs.Fields("kod_25")
rs3.Update

http://www.sql.ru/forum/1197615/dcount

Привет.

Как конвертировать формы ACCESS 2010 в 2007?

http://www.sql.ru/forum/1197578/kak-konvertirovat-formy-access-2010-v-2007

Доброго времени суток, уважаемые форумчане.
Есть такая задача:
Алкокод (AlcCode) "зашит" в марке с 4 по 19 символ (длина 16 символов) в кодировке BASE36.
Например, марка 10N000003GPD8OG3K8402210110800436382581511411435719812624722666212120
Если 000003GPD8OG3K84 перевести из BASE36 в BASE10, то получится AlcCode 0012665000001190180.

Может кто поделится функцией по переводу BASE36 в BASE10
В интернете нарыл только перевод в BASE36, а вот в десятичную не могу перевести.

+

Function fBase36Encode(ByRef lngNumToConvert As Long) As String 'Будет конвертировать любое целое положительное число в base36, а как сделать наоборот? Dim strAlphabet As String strAlphabet = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" If lngNumToConvert = 0 Then Base36Encode = "0" Exit Function End If fBase36Encode = vbNullString Do While lngNumToConvert <> 0 fBase36Encode = Mid(strAlphabet, lngNumToConvert Mod 36 + 1, 1) & fBase36Encode lngNumToConvert = lngNumToConvert \ 36 Loop End Function

http://www.sql.ru/forum/1197517/perevesti-iz-base36-v-base10

Добрый день.

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

Задача:
Нужно 1-им нажатием кнопки экспортировать отчет, который формируется на основании выбранного элемента в форме (1 запись из списка) в формате ПДФ с именем выбранного элемента и так нужно сделать циклично, использую все предлагаемые элементы в форме

Для наглядности в paint нарисовал схему.

http://www.sql.ru/forum/1197515/eksport-otchetov-v-neskolko-faylov

Добрый день, коллеги!

Столкнулся с проблемой: при добавлении в mdb нового отчета или формы mdb падает и больше не подает признаков жизни, бывают варианты когда падает при добавлении поля в отчет/форму. Помогает только регулярное резервное копирование. Если не трогать то работает как танк. Основные проблемы замечены на ХР офисе, но бывает и на 2003.

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

http://www.sql.ru/forum/1197498/umiraet-mdb-pri-dobavlenii-novoy-formy-otcheta

Добрый день, уважаемые коллеги!
Задача состоит в следующем:
имеется форма, в форму выведен список List1 который фильтрует List2.
В List2 вытягивется инфо с вложенным файлом поле ОЛЕ.
Хочу что бы по двойному нажатию мыши запускался вложенный файл ОЛЕ!
Подскажите как реализовать с помощью ВБА.
Спасибо.

http://www.sql.ru/forum/1197460/kak-spiskom-zapustit-vlozhennyy-fayl-v-pole-ole-cherez-vba

Всем привет. Помогите разобраться с такой проблемой:

У меня есть база IP адресов которая находится в таблице "база IP адресов"
Есть еще одна таблица (Таблица 2) в которую я буду подставлять данные из "база IP адресов". Хорошо для этих целей подходит выпадающий список.

Есть два факта:
Во первых, IP адреса в (таблице2) можно использовать только один раз.
Во вторых, IP адресов очень много, больше тысячи.

Допустим я начинаю в новой таблице подставлять данные из "базы IP адресов" один за одним. Так как по условию, нельзя использовать один адрес дважды, в свойствах колонки предварительно поставил - "индексированное поле: (Да, совпадения не допускаются). После этого программа запрещает подставлять значения дважды. Но проблема в том что они продолжают вылезать в выпадающем списке, а сами списки огромны, больше тысячи адресов

Задача следущая: как сделать, чтобы уже использованные в моей таблице IP адреса, больше не появлялись в выпадающем списке?

За ранее благодарен за ответ

http://www.sql.ru/forum/1197441/vypadaushhiy-spisok-sostoyashhiy-iz-unikalnyh-znacheniy

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

PS: Способ использую следующий, возможно тут есть ошибка..

1.Установил в свойствах формы "всплывающее окно" и "модальное окно" - да
2.В модуле прописал
Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Const SW_HIDE =0
Public Const SW_NORMAL =1
3.В модуле самой формы, на Открытие формы прописал строку
ShowWindow Application.hWndAccessApp, SW_HIDE

Напоминаю, что как бы коряво, как может показаться некоторым эстетам, это не выглядело, для "Простой" формы работает безотказно, при "Разделенной" нет..

http://www.sql.ru/forum/1197305/problema-pri-skrytii-okna-access

В модуле прописал функцию для округления.
Далее ввожу в формулу в запросе и получаю ошибку: "Неверное число аргументов в выражении запроса"

IIf([kodstat]=1000 or [kodstat]=1110 or [kodstat]=1500 or [kodstat]=1501 or [kodstat]=3000,(Round97([syma]*0.036)),IIf([kodstat]=6000,(Round97([syma]*0.02)),IIf([kodstat]=1100 or [kodstat]=2500 Or [kodstat]=5000 Or [kodstat]=7200 Or [kodstat]=4000  Or [kodstat]=4500 Or [kodstat]=5500,0,Null))) AS es

Подскажите, где ошибка?

http://www.sql.ru/forum/1197296/funkciya-okrugleniya-v-zaprose

Уважаемые друзья доброго дня!
С простейшей ситуацией попал в полный ступор.
В Базе данных Access имеется таблица, один из столбцов принимает значения -1 или 0.
На данную таблицу привязана форма. На форме кнопка, при нажатии на которую должен применяться фильтр по строкам где значение равно 0.

Private Sub Кнопка30_Click()
Me.Filter = "pole = 0"
Me.FilterOn = True
End Sub  

Дело в том, что на деле кнопка инициирует открытие формы ввода данных "Введите значение параметра"
Попытки расставить кавычки по другому и поменять форматы полей потерпели колосальнейшее фиаско....
Примечательно, что точно такой же фильтр, но примененный для соседнего столбца (текстового) работает в соответствии со штатной потребностью...
Заранее признателен за помощь!!!

Модератор: Тема перенесена из форума "Visual Basic".

http://www.sql.ru/forum/1197276/problema-s-filtrom-v-forme-access

Добрый день, снова нубский вопрос) пора уже регистрироваться наверное)

sqlConn = "Insert into TempEx (kod_25,kod_upr,kod_18,name) select [№ договора САП (25 справочник)],[Код управления],[Код Контрагента (18 справочник)],[Наименование услуги] from  [Лист1$]"
strConn = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source = " & Me.Form.l1.Value & "; Extended Properties=""Excel 12.0 xml;HDR=Yes"""
exConn.ConnectionString = strConn
exConn.Open
exConn.Execute (sqlConn)

Подключение создается без ошибок, при выполнении запроса выдает ошибку
Из дебага
?sqlConn
Insert into TempEx (kod_25,kod_upr,kod_18,name) select [№ договора САП (25 справочник)],[Код управления],[Код Контрагента (18 справочник)],[Наименование услуги] from [Лист1$]

http://www.sql.ru/forum/1197210/oshibka-zaprosa

Всем доброго времени суток!
Подскажите, пожалуйста, как организовать отправку почту...
Задумка следующая...на форме проставили ответственных и сроки.
Жмем кнопку отправить в работу -> меняется статус и должно приходить сообщение на почту...
Думал сделать сообщение будет проще чем менять статус, но теперь проблема следующая...исполнители дублируются в форме и разные могут быть...как правильно им отправить сообщение (каждому по одному)??

http://www.sql.ru/forum/1197193/otpravka-pochty-vba-v-neskolko-adresov

Привет всем! Поомгите разобраться с Access)
Вобщем есть база на SQL. Свяана с Access. В нее с формы заносятся данные.

rs.Open "insert into s_kontr (datR,kontr,pred) values ('" & Me.datR & "','" & Me.kontr & "','" & Me.pred & "')", xCon, adOpenForwardOnly

Эта часть работает.
Но есть поле дата и поле номер по порядку.
Поле по порядку я сделала как счетчик. Я не могу найти нигде, может ищу плохо(( как вывести эти данные на форму в текстовое поле. Вот форма открывается и в двух полях на форме должны появиться данные "Номер по порядку и дата текущая" Как их вывести туда?

То есть человек входит вводит логин пароль открывается форма и там стоит уже номер по порядку из этой базы последней записи + 1 и дата текущая.
а потом он набивает данные остальные и наимая кнопку они заносятся все в базу.

И еще вопрос. Почему то когда я выбираю из поля "дата" дату больше 15 числа она пишет что это ошибка. Фото прилагаю. Как с этим справиться. Надеюсь на поомщь)

http://www.sql.ru/forum/1197141/vyvod-dannyh-na-formu-v-access

Возможно ли обьединиnь 2 отчета в один(для печати) из двух разных БД access? Заранее спасибо)

http://www.sql.ru/forum/1197125/obedinit-otchety-iz-raznyh-bd

Добрый день!

Есть база данных клиентов юр.лиц. На форме в числе прочего есть поля "ИНН" и "Название". Имеется кнопка "Папка" которая открывает папку в експлорере с документами по этому клиенту. При нажатии на эту кнопку проверяется наличие на диске Z папки с названием равным ИНН - если такой папки еще нет, то она создается - и открывает эту папку.
Вот код он прекрасно работает:

Private Sub cmdFolder_Click()

Dim INN As String
Dim fso As New FileSystemObject

INN = Me.Controls("ИНН").Value
If fso.FolderExists("Z:\" & INN") Then
        Shell "explorer Z:\" & INN, vbNormalFocus
    Else
        fso.CreateFolder ("Z:\" & INN)
        Shell "explorer Z:\" & INN, vbNormalFocus
End If

End Sub

Но при таком решении сложно искать папки вручную (не через аксесс)
Задача - чтобы папки назывались ИНН + пробел + Название ( а лучше наоборот (Название + пробел + ИНН)
Создать такую папку проблемы нет:

fso.CreateFolder ("Z:\Imhotep\" & INN & " " & FirmaS)

Вот только удалить запрещенные символы надо (кавычки и слэши) - вот вопрос
А главное, как проверить существование такой папки и открыть ее при условии что название в базе (поле на форме) может корректироваться и вообще не будет соответствовать назвнию папки (из-за удаленных в названии папки кавычек например)

Грубо говоря: Как Like запихнуть в Shell и в FolderExists

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

http://www.sql.ru/forum/1197087/proverit-sushhestvovanie-papki-po-nepolnomu-nazvaniu

Друзья, доброго вам чего бы там не было!

Может кто сталкивался:
на Sharepoint лежит excel пытаюсь сделать связь - посылает и ругается. Говорит, что XML - это не Excel.
пытаюсь через Xml, посылает и говорит, что эксель - не xml :(

Ясно. что метафайлы, но не ясно как связать с Access с ними чтобы было с ними прямое соединение .

Спасибо отозвавшимся

http://www.sql.ru/forum/1197073/svyazannye-tablciy-access-metafayly