Всем привет! Такой вот вопрос. Пишу в первый раз базу. Идея такая. Есть приход денег по трём формам оплаты (нал, безнал, электронные). По каждой есть своя таблица и свой приход по конкретной дате. Дата, сумма, КатегорияПрихода, ПодкатегорияПрихода (в безнале и электронных приходах ещё поля с номером карты и прочей информацией). Каждую неделю нужно свести в одну таблицу приход по всем формам оплаты и посчитать общую сумму. Потом эта сумма будет использоваться для распределения. Не могу свести в одну таблицу три таблицы. С access знаком недавно. Пока sql не знаю. Только учусь.

http://www.sql.ru/forum/1175616/obedenit-po-date

Есть ли вообще такая возможность. Вопрос связан с безопасностью и повышением квалификации пользователей.

http://www.sql.ru/forum/1175603/kak-sozdat-izmenit-zapros-v-accde

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

http://www.sql.ru/forum/1175581/slishkom-slozhnyy-zapros

Есть некая абстрактная сущность, у которой есть несколько атрибутов. Есть несколько более конкретных сущностей, которыми может стать абстрактная сущность. Конкретным сущностям свойственно наличие всей информации, что есть у абстрактной, базовой. Как правильно реализовать такое?

Есть таблицы для абстрактных сущностей и для более конкретных. Каждая запись в таблице для абстрактной сущности должна соответствовать только одной записи из какой-либо таблицы для какой-либо более конкретной сущности. Чтоб было понятнее, в таблице абстрактных сущностей есть M записей, а в каждой таблице конкретных сущностей - kI (i = 1 .. N), так что k1 + k2 + ... + kN = M. Все Если в таблице конкретных сущностей есть ровно kI записей, то в таблице абстрактных найдется ровно kI связанных записей. Эти записи могут идти в произвольно порядке.

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

http://www.sql.ru/forum/1175577/svyaz-proizvolnyh-pervichnyh-kluchey

Всем добрый день,

Заморочился по одному вопросу, и никак не могу нигде найти простое решение своей проблемы.

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

Вот работает такой код:


<sub>Dim r As String
If IsNull(Me.Список157.Value) = False Then
r = Me.Список157.Value
End If
If r <> "" Then
a = Forms![Форма1].Поле153.Value
b = Forms![Форма1].Поле152.Value
c = Forms![Форма1].Поле154.Value
DoCmd.OpenForm r, acNormal

Forms![Форма2].Поле153.Value = a
Forms![Форма2].Поле152.Value = b
Forms![Форма2].Поле154.Value = c
DoCmd.Close acForm, "Форма1", acSaveNo
End If</sub>



Но проблема в том, что у меня в переменной "r" сидит название = "Форма2".
что нужно в коде поправить чтобы код выглядел не

_{Forms![Форма2].Поле153.Value = a
Forms![Форма2].Поле152.Value = b
Forms![Форма2].Поле154.Value = c}


а примерно как то так


_{Forms![" & r & "].Поле153.Value = a
Forms![" & r & "].Поле152.Value = b
Forms![" & r & "].Поле154.Value = c}


Заранее всем спасибо за помощь!

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

http://www.sql.ru/forum/1175557/imya-formy-cherez-peremennuu-na-vba-v-access

Возникла необходимость получить гео координаты на адреса в свою бд, для дальнейшего раставления точек на карте.
Запрос к гуглу выглядит следующим образом:

http://maps.google.com/maps/api/geocode/xml?address=Нижний Новгород&sensor=false

в ответ идет XML.

Кто в теме, подскажите пожалуйста, как из Акса (2003) обратиться к Гуглу, и разобрать XML, извлечь из него и ...

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

http://www.sql.ru/forum/1175549/karty-gugl

Доброе время суток
Помогите, пожалуйста, оптимизировать запрос, а то какой-то он большой получается

Select t1.Field1,First(t2.Field2) As FirstField2
From
   (Select Field1,Max(FCount) As MaxCount
    From
    (Select Field1,Field2,Count(*) FCount From Table1 Group By Field1,Field2)) As t1
Inner Join 
(Select Field1,Field2,Count(*) FCount From Table1 Group By Field1,Field2) As t2
On (t1.Field1=t2.Field1) And (MaxCount=FCount)
Group By t1.Field1;

Суть. Для группировки

Select Field1,Field2,Count(*) FCount From Table1 Group By Field1,Field2

Для каждого поля Field1 найти поле Field2 у которого максимальное количество строк в таблице. Если таких полей Field2 для Field1 несколько по максимальному количеству, то любое, но только одно.

Спасибо.

http://www.sql.ru/forum/1175543/nayti-nazvanie-2-go-polya-gruppirovki-imeushhee-maksimum-strok-dlya-1-go-polya-gruppirovki

Источником данных формы является запрос, в котором последовательно связываются 3 таблицы отношениями 1-ко-многим. Если предложение WHERE отсутствует, то в табличной форме присутствует строка для добавления новой записи. Только я добавляю условия отбора записей - строка исчезает, но данные - обновляемы...
Ключевое поля тепа "счётчик" есть в каждой таблице. Не влияет: добавлены ли поля-счётчики в предложение Select.

http://www.sql.ru/forum/1175536/stroka-dobavleniya-novoy-zapisi-v-tablichnoy-forme-access-ms-sql-server

Здравствуйте. Есть запрос:

SELECT target.tip AS tip_great, COUNT(*) AS count_rows, FORMAT(COUNT(*) / ml, "0%") AS percent_rows
FROM PTL
INNER JOIN target ON (PTL.s1 + PTL.s2 + PTL.s3 + PTL.s4 + PTL.s5) - (PTL.t1 + PTL.t2 + PTL.t3 + PTL.t4 + PTL.t5) > target.tip
WHERE PTL.Lucker = list_1
GROUP BY target.tip;

Отображает примерно следующее:

tip_great count_rows percent_rows -9 5 100% -8 5 100% -7 5 100% -6 5 100% -5 4 80% -4 4 80% -3 1 20% -2 1 20% -1 1 20%

А нужно так:

tip_great count_rows percent_rows -6 5 100% -5 4 80% -4 4 80% -3 1 20% -2 1 20% -1 1 20%

То есть, оставить только максимальный tip_great со 100% в percent_rows.
Помогите с условием, пожалуйста. Заранее спасибо откликнувшимся.

http://www.sql.ru/forum/1175367/zapros

Добрый день,

Возможно кто-то решал подобную задачу:

Есть две таблицы
Каждая таблица состоит из групп записей с общим значением параметра.

Под группой записей я подразумеваю, например, три записи с номером 1001 или запись с номером 1002

Номер Артикул Количество 1001 АА1 1 1001 SS1 2 1001 MM1 1 1002 KK1 3 1003 SS1 1 1003 KK1 3

Есть другая таблица, с такой же структурой

Номер Артикул Количество 2001 АА1 1 2001 SS1 2 2001 MM1 1 2002 MM1 1 2003 SS1 2 2003 KK1 2

Задача в следующем:
Если группы записей совпадают по заданным полям, то нужно вывести номера идентичных групп, например:

группа записей 1001 идентична группе записей 2001 по артикулам и количествам, в таком случае нужно вывести строку такого вида:

Номер_1 Количество_1 Номер_2 Количество_2 1001 4 2001 4

Возможно ли реализовать такой поиск в Access?

Благодарю за помощь!

http://www.sql.ru/forum/1175351/poisk-identichnyh-naborov-zapisey

Добрый день.
Никак не могу найти свойство CurrentDb.Properties("xxx"), которое отвечает за представление форм в виде вкладок.
Document Window Options --> Tabbed Documents
Сам проект (mde) сделан на XP и 2003-м офисе. Но основное кол-во пользователей имеет офис 10-й и желает видеть формы в виде вкладок.
База запоминает свойство "Вкладки" + "Вкладки документов" на компьютере пользователей, если сам пользователь их выставит, однако если сделать новую пользовательскую MDE, то эта установка слетает.
Как её выставить по умолчанию?

http://www.sql.ru/forum/1175247/vkladki-vkladki-dokumentov-kak-ustanovit-po-umolchaniu

Здравствуйте! Подскажите пожалуйста как сделать один запрос который будет изменять структуру (добавлять столбцы ) в нескольких таблицах. Как сделать для одной таблицы знаю: Alter TABLE [2 квартал База "Источник 1"] ADD Column [Банковский продукт] Text(255), [Банковская Услуга] Text(255), [Тип обращения] Text(255)

http://www.sql.ru/forum/1175164/alter-table

Добрый день! помогите пожалуйста дописать функцию, как задать условие что при пустом значении в таблице tbl_Class функция Persent_Class возвращала "Null" ?

+

Function Persent_Class(strPARAM As String, dblPARAM As Variant) As Variant Dim C1 As String, C2 As String, C3 As String, C4 As String, C5 As String Dim rst As DAO.Recordset If IsNull(dblPARAM) Or dblPARAM = 0 Then Persent_Class = Null Exit Function End If Set rst = CurrentDb.OpenRecordset("select * from tbl_Class where ID='" & strPARAM & "'") With rst C1 = Replace(dblPARAM, ",", ".") & " " & .Fields("Class_I") C2 = Replace(dblPARAM, ",", ".") & " " & .Fields("Class_II") C3 = Replace(dblPARAM, ",", ".") & " " & .Fields("Class_III") C4 = Replace(dblPARAM, ",", ".") & " " & .Fields("Class_IV") C5 = Replace(dblPARAM, ",", ".") & " " & .Fields("Class_V") End With If Eval(C1) Then Persent_Class = "I" ElseIf Eval(C2) Then Persent_Class = "II" ElseIf Eval(C3) Then Persent_Class = "III" ElseIf Eval(C4) Then Persent_Class = "IV" ElseIf Eval(C5) Then Persent_Class = "V" End If rst.Close Set rst = Nothing End Function

Заранее благодарю!

http://www.sql.ru/forum/1175146/dorabotka-funkcii

Доброго времени суток.
С помощью системы управления базами данных создайте запрос Форматирование который информацию из таблицы Регионы превратит в соответствии с правилами правописания (образец приведен ниже).
Считайте, что среди названий областей, районов и населенных пунктов нет названий с более чем двумя пробелами, а также названий, содержащих дефисы.
В результирующем запросе соответствующую информацию выведите в полях Регион, Район и Населенный пункт.
Внимание! Уточнение: использование функций Replace и StrConv (Proper) запрещено. Также нельзя использовать ВБА.
Пример

Реализовать только средставми Аксес. Заранее благодарен за ответ.

http://www.sql.ru/forum/1175140/zapros-na-formatirovanie

Здравствуйте, подскажите пожалуйста

Почему не правильно работает Запрос_с_Группировкой с настройкой LastДата

http://www.sql.ru/forum/1175139/kak-nastroit-zapros-s-gruppirovkoy-po-last-data

Доброго времени суток.
Подскажите пожалуйста как из запроса вызвать форму.
Прописываю в условии отбора : [Forms]![Имя_Формы]![Имя_Поля]
Ни чего не получается, что я не так делаю.
Спасибо.

http://www.sql.ru/forum/1175098/forma-iz-zaprosa

Что за глюк и как это предотвратить?

http://www.sql.ru/forum/1175054/v-tablice-zapis-otsutstvuet-no-v-zaprose-poyavlyaetsya

Здравствуйте, уважаемые!

Acs 2010.
Подскажите пож-ста, какой командой vba можно отменить событие формы?

Ситуация следующая: когда пользователь закрывает форму (клик на стандартном крестике) запускается процедура проверки данных этой формы (событие Form_Deactivate). Хочу чтобы в случае отрицательного результата форма оставалась открытой, до тех пор, пока пользователь не устранит некорректность данных.

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

http://www.sql.ru/forum/1174976/kak-otmenit-sobytie-formy

Здравствуйте, подскажите пожалуйста

Есть два способа фильтрации в форме (один прописан ввиде функции и подключен к нескольким полям), другой является НастройкоVBA для поля, сейчас они работают "рассинхронно".

Можно ли их как то "сдружить", чтоб были записанны в одну функцию

http://www.sql.ru/forum/1174932/kak-sdruzhit-dva-filtra-v-odnoy-forme

Уважаемые форумчане! Есть вопрос по управлению кнопками на ленте аксесс 2007
Ленту риббон задаю с помощью USysRibbons
вот пример кнопки

<button id="MyButton"  size="large" label="Вх. эл. Почта" image="stock_mail-import.jpg"  
onAction="onActionForm" tag= "frm_incoming_registry" getEnabled="CallbackGetEnabled"/> 

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

в основном модуле есть процедура которая задает значение getEnabled

Sub CallbackGetEnabled(control As IRibbonControl, _
                       ByRef enabled)
 'процедура обратного вызова доступность кнопки
' Callback Enabled
    enabled = bolEnabled
End Sub

взял с сайта http://www.accessribbon.de/en/?Access_-_Ribbons:Callbacks:getEnabled
bolEnabled - паблик переменная объявленная в том же модуле

процедура прекрасно отрабатывает во время загрузки

но не знаю как правильно обратится к этой процедуре в тот момент когда кнопку надо сделать не активной, и как ей передать значение bolEnabled (True\False)

http://www.sql.ru/forum/1174930/lenta-ribbon-upravlenie-elementami