Добрый день!

Есть две таблицы (Access 2010):
1. tbl_Categories (Key, CatID, NumFrom, NumTo, RespPerson), содержащая параметры категорий товаров, диапазон возможных кодов товара, и ссылку на ответственного за данную категорию.
Пример:
1, Y01, 1, 299, IvanovII
2, Y01, 300, 499, PetrovPP
3, Y02, 1, 499, SidorovSS

2. tbl_Catalog (UID, ItemName, Cost, Description)

Мой вопрос связан как раз с полем tbl_Catalog.UID, которое должно содержать код товара, формируемый на основе трех полей тиблицы tbl_Categories (CatID, NumFrom, NumTo).
Пример данных в поле tbl_Catalog.UID: Y01.084
Совпадения не допускаются.

Подскажите, пожалуйста, как более правильно решить эту задачу (предположим, что таблица заполняется вручную и для tbl_Catalog.UID достаточно сделать выпадающий список содержащий все возможное множество значений кодов товара, за исключением уже используемых)?

Пока в голову приходит лишь создание запроса, который для каждой строки tbl_Categories формирует всё вероятное множество кодов (т.е. видимо нужно каким-то образом использовать FOR EACH).


За ранее благодарю,
Алексей.

http://www.sql.ru/forum/1072441/hitryy-zapros-formirovanie-koda-tovara-v-access-2010

Собственно в поле со списком хотелось бы реализовать выбор данных из 2х разных полей, которые в разных таблицах




В 3й таблице в поле со списком хотелось бы видеть все варианты из разных таблиц

http://www.sql.ru/forum/1072403/pole-so-spiskom-s-dannymi-iz-2h-raznyh-tablic

Доброго времени суток!
Есть запрос в котором значение одного из полей = (select sum([Balance1]) from sqlAccountsBalance2).
При включении этого поля в примечание отчёта – отчёт не открывается, ругается
“Multi-level GROUP BY clause is not allowed in subquery”

Почему это происходит и что можно придумать?
(кроме использования Dsum в отчёте)

http://www.sql.ru/forum/1072385/multi-level-group-by-clause-is-not-allowed-in-subquery

Добрый день.

Подскажите пожалуйста, есть ли какие-то программы\средства сравнить производительность приложений на MS Aceess?

http://www.sql.ru/forum/1072293/sravnenie-proizvoditelnosti-prilozheniya-na-ms-access

Добрый день! Прошу реальной помощи! Есть склад сырья. Для Прихода/Расхода, одна таблица, с типом движения. Создано две формы: одна накладная (приход) и товарный чек (расход). Номера у них могут совпадать, то есть например, накладная на приход номер 1, также ведь может быть и товарный чек номер 1, правильно я мыслю? Посему в таблицу добавлен код-счетчик. Вся проблема в том, что я никак не могу создать формы, так, чтобы в приходе, были только приходные накладные, а в форме расхода, только товарные чеки. И вообще возможно ли это сделать?
Хотелось бы еще в идеале, чтобы номер накладной, присваивался при сохранении записи. Все, что я смогла сделать, это прописать формулу в поле НомерНакладной.
=IIf([ТипДвижения]=1,1;Max([НомерНакладной]+1);"[№]")) это для прихода
=IIf([ТипДвижения]=2,2;Max([НомерНакладной]+1);"[№]")) это для расхода...
При добавлении новой записи в накладную выставляется номер. Но во второй форме, берется не последний номер накладной для расхода, а как по первой форме. Как мне разделить эти данные? Составила два запроса: ТипДвижения, КодСчетчик, НомерНакладной, выбрала максимальный номер.... А как мне это все в форме реализовать не представляю, именно в поле? Прикладываю свою базу.
За реальную помощь, благодарю заранее)

http://www.sql.ru/forum/1072267/zapros-ili-formula-na-podschet-nomera-nakladnoy-prihod-rashod-ms-access

Здравствуйте. У меня есть база Access с числовыми и текстовыми данными по странам мира.
Возможно ли реализовать в Access построение картограммы?
Я это представляю как-то так: есть, например, карта Африки, составленная из кусочков (одна африканская страна – один кусочек). Потом программно каждый кусочек окрашивается в один из двух цветов, в зависимости от того, какой из двух текстовых параметров выбран для этой страны в базе данных.
Например, какие-то станы – монархии, они программно окрашиваются в черный. Остальные страны – республики, они окрашиваются в зеленый. Получается единая карта Африки, черно-зеленая, она выводится в Отчет.

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

http://www.sql.ru/forum/1072245/geograficheskie-karty-v-access

Dim app As Word.Application  
Dim oInlineShape As InlineShape
Set app = New Word.Application
With app.ActiveDocument
For Each oInlineShape In app.ActiveDocument.InlineShapes
   oInlineShape.Delete
Next
End With

Уважаемые форумчане поправьте код что не так ? как удалить все рисунки в активном документе Word ?

http://www.sql.ru/forum/1072223/udalit-risunok-v-word

Пожалуйста подскажите как переходить по вкладкам комбинацией Alt + tab, чтобы при этом не переходило на другие элементы.
Может на форме какие настройки делать и еще чего?

http://www.sql.ru/forum/1072221/perehody-chisto-po-vkladkam-po-alt-tab

Здравствуйте, уважаемые специалисты. Есть список на форме, в который выводятся данные из запроса: Документ, ДатаНазначения, КоличествоЧасов. Задача стоит в том, чтобы посчитать сумму по полю списка КоличествоЧасов. Пробовал делать так:

_{Private Sub НазначенныеЗадачи_AfterUpdate()
Dim SumChas As Double
Dim i As Integer
SumChas = 0
For i = 0 To НазначенныеЗадачи.ListCount - 1
SumChas = SumChas + НазначенныеЗадачи.List(i).Column(4)
Next i
End sub}

Выходит ошибка: Method or data member not found
Ругается на метод списка List

http://www.sql.ru/forum/1072192/raschet-summy-po-polu-iz-spiska

нужно сделать импорт значений из Excel в базу Access

Sub Add_()

    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Set cnn = New ADODB.Connection
    Set rst = New ADODB.Recordset
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\docum_db.mdb;"
    

    n = 15

    For i = 3 To n
    id_reestr_ = Me.Cells(i, 2).Value
    podr_ = Me.Cells(i, 3).Value
    sotr_ = Me.Cells(i, 4).Value
    doc_type_ = Me.Cells(i, 5).Value
    contr_ = Me.Cells(i, 7).Value
    number_doc_ = Me.Cells(i, 8).Value
    date_doc_ = Me.Cells(i, 9).Value
    summ_doc_ = Me.Cells(i, 10).Value
    accept_ = Me.Cells(i, 11).Value
zamech_text_ = Me.Cells(i, 12).Value
date_accept_ = Me.Cells(i, 13).Value
user_accept_ = Me.Cells(i, 14).Value
id_reestr_vozvr_ = Me.Cells(i, 15).Value
date_vozvr_ = Me.Cells(i, 16).Value
user_vozvr_ = Me.Cells(i, 17).Value
user_tn_vozvr_ = Me.Cells(i, 18).Value
notes_ = Me.Cells(i, 19).Value
  Cuser_ = Me.Cells(i, 21).Value
  Luser_ = Me.Cells(i, 23).Value
monopol_ = Me.Cells(i, 25).Value
ext_int_ = Me.Cells(i, 26).Value
doc_copy_ = Me.Cells(i, 31).Value
qnt_doc_ = Me.Cells(i, 39).Value
qnt_doc_cfm_ = Me.Cells(i, 40).Value
qnt_pages_ = Me.Cells(i, 41).Value
    
    Set rst = cnn.Execute("insert into reestr_doc ( id_reestr, podr,sotr,doc_type,summ_doc,Cuser,Luser) values ( id_reestr_ , podr_ ,sotr_ , doc_type_ , summ_doc_, Cuser_, Luser_ )")
    Next
    
  
    
    'Close the connection
    cnn.Close



 

End Sub

если занашу данные явными значениями, все прекрасно заноситься, а вот через переменные выходит ошибка (См.рис)

значения в переменные передаются, они получаются не пустые

http://www.sql.ru/forum/1072184/oshibka-importa

Начал переходить к 2010 аксу и тут возникли вопросы...
Создал форму поставил режим: Разделенная форма.
Но как разделенная форма в режиме подчиненной и в элементе управления "Элемент навигации"
она не отображается :-(
Так задумано. Или есть какие варианты?

http://www.sql.ru/forum/1072176/vopros-po-razdelennym-formam-access-2010

Уважаемые форумчане помогите пожалуйста появилась необходимость помимо сохранения документа в doc формате так же в Pdf формате и я добавил 2 строки

        .SaveAs "D:\Documents\Doc1.doc"
        pdf_n = "D:\Documents\Doc1.pdf"
        ActiveDocument.ExportAsFixedFormat pdf_n, wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportAllDocument
End With
    app.Quit 

но если раньше выполнять процедуру можно было несколько раз то теперь на втором выполнении выдает ошибку
"the remote server machine does not exist or is unavailable" на этой строчке

ActiveDocument.ExportAsFixedFormat pdf_n, wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportAllDocument

что надо дописать ????
А если не закрывать приложение app.Quit то ошибка не выходит Помогите пожалуйста Благодарю

http://www.sql.ru/forum/1072139/word-pdf

Подскажите как получить значение поля со списком. Проблема в том, что value я получаю индекс поля (что логично).
Но как получить текс, который в этом поле
.Text не работает
и где можно посмотреть список свойств?

Private Sub Form_Current()
If IsNull(Me![ФИО]) Then
Me.Controls("ФИО").Value = Forms![FIO_fr]![mn].value
End If
End Sub

http://www.sql.ru/forum/1072066/poluchit-soderzhanie-polya-so-spiskom-v-drugoe-pole

Подскажите, я при помощи Ctrl + "+" создаю новую запись на форме
какое событие происходит

http://www.sql.ru/forum/1072046/kakoe-sobytie-pri-ctrl-na-forme

Здравствуйте. Есть форма с панелью вкладок. На основной форме - над вкладками поле со списком и есть запрос, который выбирает данные по значению этого поля. На второй вкладке Панели вкладок формы поместил подчиненную форму для вывода результатов запроса. Проблема в том, как вывести на экран содержимое запроса в подчиненную форму на вкладке. Делал обработчик нажатия на вкладку: запроса:
_{Private Sub Вкладка4_Click()
ИмяПодчинненнойФормы.Requery
End Sub}
Так не работает - форма пустая

http://www.sql.ru/forum/1071996/requery-podchinennoy-formy-na-vkladke

Создал страницу доступа к данным в виде HTML файла. При открытии страницы в Access все открывается нормально. При открытии в эксплорере вылезает бяка, показанная на картинке. Пути в файле прописаны правильно. Как решить проблему?

http://www.sql.ru/forum/1071957/stranica-dostupa-k-dannym-oshibka-imya-v-ie

Друзья, (особенно те, кто классно знает аксесс))
пытаюсь решить вроде простую задачу по расчету бюджета, но у меня не получается.
есть база данных аксесс. В ней 3 базы.
кампании
платежи
пользователи

В целях конфиденциальности все закодировано
Кампании. Тут указан номер рекл. кампании, её название и выделенный на нее бюджет
Платежи тут id пользователя и сколько в мес он платит за то или приложение(пусто значит не платил)
Пользователи тут номер пользователя и рекл кампании, с которой он вышел на приложение. (u133206_ это id пользователя, и номер компании с которой он пришел cpn_2 т.е. тут 2-ая

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

Как написать sql запрос, чтобы высчитать стоимость одного триал пользователя для каждой из рекламных кампаний?;
Общие затраты делятся на количество оформивших "триал"

стоимость одного платного пользователя для каждой из рекламных кампаний?
все затраты делите на купивших что-то
Каково значение ROI для каждой из кампаний?
/i031.radikal.ru/1401/6e/99f6c3900d7et.jpg" target="_blank">//i031.radikal.ru/1401/6e/99f6c3900d7et.jpg">
в идеале запрос должен формировать таблицу такого вида

клетка Е это выплат по кампании (от заплативших)
G- стоимость одного оплатившего
/s001.radikal.ru/i194/1401/b9/08f7f82c5c9at.jpg" target="_blank">//s001.radikal.ru/i194/1401/b9/08f7f82c5c9at.jpg">

http://www.sql.ru/forum/1071937/raschet-budzheta-i-roi-v-access

Подскажите пожалуйста, когда все записи закончаться по нажатию кнопки, автоматически сделать ее не активной.

Private Sub Кнопка31_Click()

On Error GoTo Err_Кнопка31_Click
DoCmd.GoToRecord , , acNext

Exit_Кнопка31_Click:
    Exit Sub
Err_Кнопка31_Click:

'    MsgBox Err.Description
    Resume Exit_Кнопка31_Click

End Sub

http://www.sql.ru/forum/1071916/neaktivnaya-knopka

Вывожу отчет в зависимости от четырех выбранных параметорв.
Код:

Dim a, b, c, d
    
        a = Forms!Задание!Фамилия.Column(0)
        b = Forms!Задание!Выбрать тему.Column(0)
        c = Forms!Задание!ВыбратьУровень.Column(0)
        d = Forms!Задание!ВыбратьСпособ.Column(1)
        StName = DLookup("Фамилия", "Сотрудники", "idСотрудник=" & a)
        StName1 = DLookup("Тема", "Тема", "IdТема=" & b)
        StName2 = DLookup("ВидЭкзамена", "ВидЭкзамена", "Id_Видэкзамена=" & c)
       ' StName3 = DLookup("Сварка", "Способ сварки", "Id_Сварки=" & d)
        DoCmd.Close acForm, "Задание"
        DoCmd.Close acForm, "Main"
        DoCmd.OpenReport "Тестподробный", acViewPreview, , "idСтудент=" & a
        'DoCmd.OpenReport "Тестподробный", acViewPreview, , "IdТема=" & b
        'DoCmd.OpenReport "Тестподробный", acViewPreview, , "Id_Видэкзамена=" & c
       ' DoCmd.OpenReport "Тестподробный", acViewPreview, , "Id_сварки=" & d

При открытии отчета у меня только меняется фамилия, а остальные параметры (IdТема,Id_Видэкзамена,Id_сварки) остаются не изменными.
Я так понимаю,что все 4 параметра мне необходимо написать в одном предложении, типа
DoCmd.OpenReport "Тестподробный", acViewPreview, , "idСтудент=" & a, "IdТема=" & b, "Id_Видэкзамена=" & c, "Id_сварки=" & d
но все время выходит ошибки, подскажите кто сталкивался
спасибо большое.

http://www.sql.ru/forum/1071875/vyvod-otcheta

Подскажите пожалуйста как сделать чтобы к дате формата ЧЧ.ММ.ГГ к ММ можно было сделать +6 или +12 и например он поазывал через 6 месяцев замена???зарнее спасибо

http://www.sql.ru/forum/1071850/data