Возможно название темы подобрал неправильное, но всё же.

Есть таблица Счета.Там допустим 10 счетов (столбцы в таблице: ид клиента, услуга, дата, цена)
А так же есть форма Счета.
Я в форме Счета выбираю в комбобоксе какой то из существующих счетов и по нажатию кнопки у меня должна открыться таблица в которой есть только тот счёт который я выбрал. (то есть только 1 из 10)

Можете помочь советом как это осуществить?

http://www.sql.ru/forum/1258423/zapros-cherez-knopku-v-forme

Добрый день. Существует два запроса с одинаковыми полями, но с разными данными. Задача объединить два запроса. Если делать это через виздар, то получается белеберда. в Access работаю второй день, c SQL толком не знаком. Прошу вашей помощи.

код первого запроса: TRANSFORM Count(Link_Order_Pr.User_ID) AS CountOfUser_ID
SELECT Products.[Tech discription], License.Name
FROM ((Platform INNER JOIN (License INNER JOIN Link_LicienceUsageByPlatform ON License.ID_License = Link_LicienceUsageByPlatform.ID_License) ON Platform.ID_Platform = Link_LicienceUsageByPlatform.ID_Platform) INNER JOIN ((Application INNER JOIN (Products INNER JOIN Link_IS_P ON Products.Prod_ID = Link_IS_P.Prod_ID) ON Application.Serv_ID = Link_IS_P.Serv_ID) INNER JOIN Link_PlatformUsageByApp ON Application.ID_App = Link_PlatformUsageByApp.ID_App) ON Platform.ID_Platform = Link_PlatformUsageByApp.ID_Platform) INNER JOIN Link_Order_Pr ON Products.Prod_ID = Link_Order_Pr.Prod_ID
GROUP BY Products.[Tech discription], Application.Name, Platform.Name, License.Name
PIVOT Link_Order_Pr.OGL;


код второго запроса: TRANSFORM Count(Link_Order_Pr.User_ID) AS CountOfUser_ID
SELECT Products.[Tech discription], License.Name
FROM ((Application INNER JOIN (Products INNER JOIN Link_IS_P ON Products.Prod_ID = Link_IS_P.Prod_ID) ON Application.Serv_ID = Link_IS_P.Serv_ID) INNER JOIN (License INNER JOIN Link_LicienceUsageByApp ON License.ID_License = Link_LicienceUsageByApp.ID_License) ON Application.ID_App = Link_LicienceUsageByApp.ID_App) INNER JOIN Link_Order_Pr ON Products.Prod_ID = Link_Order_Pr.Prod_ID
GROUP BY Products.[Tech discription], Application.Name, License.Name, License.Amount, License.Units
PIVOT Link_Order_Pr.OGL;

я так понимаю надо их как то "склеить" чтобы они выводились корректно, но как это сделать не понимаю.

http://www.sql.ru/forum/1258410/soedinit-dva-zaprosa-v-odin-otchyot

Всем доброго времени суток. Моя прошлая тема оказалась Ошибочной, т.к. работа стоит денег, я это Понял совсем недавно. Прошу прощения.

То, что мне нужно, на много проще, оказывается.

Как сказал мой куратор дипломной работы, мне нужно сделать "Выборка" по алгоритму.
При нажатии кнопки "генерация, которая находится в форме "Составление расписания", должна быть Выборка по таблице "Курс".
А "Курс" привязан к "Предмет", а "Предмет"...... ну вы поняли.

Будьте добры. Это моё финальное действие.

http://www.sql.ru/forum/1258404/diplomnaya-rabota-vyborka-po-algoritmu

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


Есть общая форма fObsh, в которой две подчиненные формы fBase (вверху) и fReestr (внизу), которые связаны между собой по LS.
При нажатии на кнопку "Добавить" формы fObsh должны открываться одна из двух форм ("fDobavlenie0 или fDobavlenie) в зависимости от того, пустое поле Rabota (Работа) в форме fReestr (Реестр) или нет.
Пытался сделать многими вариантами, вот один из них (пытался и через case):

Private Sub knDobavlenie_Click()

Me.fReestr.Form.Rabota
   If Forms!fObsh!fReestr.Form!Rabota Is Null Then
        'Me.Rabota Is Null
        'Me.Form!fObsh!fReestr.Form.Rabota Is Null Then
          DoCmd.OpenForm "fDobavlenie0", , , , acNormal, acWindowNormal
   Else
          DoCmd.OpenForm "fDobavlenie", , , , acFormAdd, acWindowNormal
   End If
   
    Me.fReestr.Visible = False
    Me.fBase.Visible = False

End Sub

Access пишет то метод не существует, то объект не найден. Никак не могу дать понять Access, как и какое поле надо проверить на Null (потому, что сам не понимаю толком) .
Подскажите, пожалуйста, как сделать? Спасибо всем, кто заглянул!

http://www.sql.ru/forum/1258395/otkrytie-formy

Доброе утро!
В таблицу tPrescripts импортируются данные (одна строка) из файла эксель. Кусок кода:

Call DoCmd.TransferSpreadsheet(acImport, acSpreadsheetTypeExcel12, _
                   "tPrescripts", sFileName, True, "requisites")

В конец таблицы tPrescripts добавил поле Download.
Подскажите, пожалуйста, как зафиксировать дату и время импорта в поле Download (в полном формате "ДД.ММ.ГГГГ ЧЧ:ММ:СС")?

http://www.sql.ru/forum/1258392/fiksaciya-daty-i-vremeni-pri-importe-iz-excel

Имеется сводка в виде:

==========================
Склад1 Товар1 Остаток УсловиеЗапрета(Да)
Склад1 Товар1 Остаток УсловиеЗапрета(Нет)
Склад1 Товар1 Остаток УсловиеЗапрета(Нет)
Склад2 Товар2 Остаток УсловиеЗапрета(Нет)
Склад2 Товар2 Остаток УсловиеЗапрета(Нет)
Склад2 Товар2 Остаток УсловиеЗапрета(Нет)
Склад3 Товар3 Остаток УсловиеЗапрета(Нет)
Склад3 Товар3 Остаток УсловиеЗапрета(Нет)
Склад3 Товар3 Остаток УсловиеЗапрета(Нет)
==========================

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

==========================
Склад1 Склад2 Склад3
Товар2 Остаток Остаток Остаток
==========================

т.е. товар1 у нас отпадает в связи с запретом по первому складу, не учитывая условий запрета по конкретному складу.


P.S. Перекрестный запрос я сделал, не могу догнать куда вписать условие только по первому складу.

http://www.sql.ru/forum/1258306/zapros-v-access-vybrat-iz-svodki-tri-podrazdeleniya-no-s-usloviem

Доброго времени суток. Помогите с кодом VBA для генерации расписания в форму. В данной области полный ноль.

При нажатии кнопки "Генерация", которая находится в форме "Составление расписаний" генерировались случайным образом из таблицы "Предмет" в форму "Расписание уроков" в виде таблицы ниже полей "Курс" и "Дата". Также, как видно на фото - справа должен быть столбец "Аудитория". Данные для того столбца должны браться из таблицы "Номер аудитории".

Важно! 5 уроком - обед. Всегда. Закрепленная 5-ая строчка - обед.

http://www.sql.ru/forum/1258262/vba-generaciya-raspisaniy-urokov-v-formu-ms-access

Добрый вечер!
Есть форма на которой расположено изображение, которое изначально загорожено белым прямоугольником (типа картинки нет).
Хочу что бы по событию, например, нажатием кнопки, прямоугольник плавно сдвинулся вправо, открыв картинку.
Мои пробный саб слишком быстро сдвигает полоску:

Private Sub Кнопка3_Click()
  Dim i As Integer
  For i = 280 To 6804 'от 0,5 до 12 см от левого края
    Me.poloska.Left = i
  Next i
End Sub

Подскажите, пожалуйста, как сделать плавное смещение.

http://www.sql.ru/forum/1258233/plavnoe-poyavlenie-kartinki-na-forme

Добрый день! подскажите можно ли средствами Access заблокировать клавиатуру?
Спасибо

http://www.sql.ru/forum/1258223/redon

Все привет!
Можно ли перед началом основный действий макроса, который импортирует в Акс данные из файлов эксель,
проветрить запущен ли эксель и если да, то закрыть его?

http://www.sql.ru/forum/1258182/vba-zakrytie-excel-v-nachale-makrosa

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

http://www.sql.ru/forum/1258118/usloviya-dlya-podchinennoy-formy

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

Запрос назначен в качестве подчиненной формы
Подскажите, пож, есть ли возможность отловить и обработать событие doubleclick полей подчиненной формы?

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

http://www.sql.ru/forum/1258112/sobytiya-v-podchinennoy-forme

Приветствую получил неординарное задание и не могу реализовать в SQL


Первый раз слышу о ней конечно но приходиться делать
Нужно посчитать дисперсию по формуле которую написал на картинке


Есть данные :

Номер | Всего баллов|
1 |78 |
группировка |45 |


Номер |Дисперсия |Среднее значение|
1 |544,5 |61,5 |





Дисперсия по формуле (пример на скрине)

=(1/(КоличествоЗаписей-1))*(((Запись1-срзнач))^2+(((Запись-cрзнач)^2))

http://www.sql.ru/forum/1258109/vychislenie-dispersii-v-zaprose

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

http://www.sql.ru/forum/1258094/kak-sdelat-svoy-msgbox

Имеется таблица с фразами на Казахском языке.
В таблице все буквы отображаются корректно, как и тут на форуме:
Ба“дарламасын шы“ыЈыз.

А вот

Переменная = "Бағдарламасын шығыңыз."
Msgbox Переменная 

На экране:
                          Ба?дарламасын шы?ыңыз

Как решить проблему? Кто знает?
------------------------------------------------------------------------
СПС

http://www.sql.ru/forum/1258059/pomogite-reshit-problemu-s-vyvodom-kazahskih-bukv-v-soobshheniyah

Доброго времени суток. Пытаюсь сделать программу для импорта данных из таблицы Word в Access.

Нашёл на иностранном сайте код:

Private Sub cmdImport_Click()
Dim appWord As Word.Application, doc As Word.Document
Dim dbs As DAO.Database, rst As DAO.Recordset, strDoc As String
 
    Set appWord = CreateObject("Word.Application") 'establish an instance of word
    strDoc = CurrentProject.Path & "\People.docx"  'set string to document path and file
    Set doc = appWord.Documents.Open(strDoc) 'establish the document
 
    Set dbs = CurrentDb 'establish the database to use (this is our current Database)
    Set rst = dbs.OpenRecordset("tblPeople") 'establish the recordset
 
    With doc.Tables(1) 'target table 1 in People.docx
 
        For i = 2 To .Rows.Count 'cycle through rows in Tables(1) [we skip the first row because the table has headers]
 
            With rst
                .AddNew 'creating a new record
                    ![FName] = doc.Tables(1).Cell(i, 1).Range.Text
                    ![LName] = doc.Tables(1).Cell(i, 2).Range.Text
                    ![SSN] = doc.Tables(1).Cell(i, 3).Range.Text
                    ![PhoneNumber] = doc.Tables(1).Cell(i, 5).Range.Text
                    ![Gender] = doc.Tables(1).Cell(i, 6).Range.Text
                .Update 'update the whole record
            End With
 
        Next 'go to next row in Tables(1)
 
    End With
 
    rst.Close: Set rst = Nothing 'close and clear recordset
    db.Close: Set rst = Nothing 'close and clear database
    doc.Close: Set doc = Nothing 'close and clear document
    appWord.Quit: Set appWord = Nothing 'close and clear MS Word
 
End Sub

Создал в ворде тестовую табличку, создал таблицу в Access для заполнения, перебил код под свой вордовский файл, привёл к такому виду

Private Sub Кнопка0_Click()
Dim appWord As Word.Application, doc As Word.Document
Dim dbs As DAO.Database, rst As DAO.Recordset, strDoc As String
     
        Set appWord = CreateObject("Word.Application") 'establish an instance of word
        strDoc = "C:\Documents and Settings\Admin\Рабочий стол\tblTest.docx"  'set string to document path and file
        Set doc = appWord.Documents.Open(strDoc) 'establish the document
     
        Set dbs = CurrentDb 'establish the database to use (this is our current Database)
        Set rst = dbs.OpenRecordset("tblTest") 'establish the recordset
     
        With doc.Tables(1) 'target table 1 in People.docx
     
            For i = 2 To .Rows.Count 'cycle through rows in Tables(1) [we skip the first row because the table has headers]
     
                With rst
                    .AddNew 'creating a new record
                        ![ob] = doc.Tables(1).Cell(i, 1).Range.Text
                        ![smr] = doc.Tables(1).Cell(i, 2).Range.Text
                        ![emm] = doc.Tables(1).Cell(i, 3).Range.Text
                        ![mat] = doc.Tables(1).Cell(i, 4).Range.Text
                    .Update 'update the whole record
                End With
     
            Next 'go to next row in Tables(1)
     
        End With
     
        rst.Close: Set rst = Nothing 'close and clear recordset
        db.Close: Set rst = Nothing 'close and clear database
        doc.Close: Set doc = Nothing 'close and clear document
        appWord.Quit: Set appWord = Nothing 'close and clear MS Word
     
    End Sub

(Строку strDoc = CurrentProject.Path был вынужден заменить на путь, т.к. в таком виде файл не устанавливался)
Пришёл к тому, что при запуске выдаётся object reqired и подчёркивается строка очистки базы данных

db.Close: Set rst = Nothing 'close and clear database

Есть также англоязычное видео, где используют этот вот код. Ничего не меняют и всё работает. Не могу понять в чём я провинился

http://www.sql.ru/forum/1258017/oshibka-object-reqired-pri-ochistke-bd

Доброго вечера! в одиночку пока не могу победить задачу.
Прошу помощи.

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

Private Sub Кнопка177_Click()
If Nz(Me.ФИО_ребенка) = "" Then
MsgBox ("Занятие НЕ сохранено. Выберите клиента.")
Else
Dim rs12 As Recordset, i, myDate As Date
Dim rs13 As Recordset
myDate = Me.D11
myDate1 = Me.D21
myDate2 = Me.D31
Set rs12 = CurrentDb.OpenRecordset("Расписание")
Set rs13 = CurrentDb.OpenRecordset("Расписание")

For i = 1 To Me.Занятий
    If Me.P1 > 0 Then
    rs12.AddNew
    rs12![ФИО ребенка] = Me.ФИО_ребенка
    rs12!НомерЗанятия = i
    rs12![ДатаЗанятия] = myDate
    myDate = myDate + 7
    rs12.Update


        
'If Me.P2 > 0 Then
'rs13.AddNew
'rs13![ФИО ребенка] = Me.ФИО_ребенка
'rs13!НомерЗанятия = i
'rs13![ДатаЗанятия] = myDate1
'myDate1 = myDate1 + 7
'rs13.Update
'
'        ElseIf Me.P3 > 0 Then
'        rs12.AddNew
'        rs12![ФИО ребенка] = Me.ФИО_ребенка
'        rs12!НомерЗанятия = i
'        myDate = myDate + 7
'        rs12![ДатаЗанятия] = myDate
'        rs12.Update

'End If
End If
Next
End If
MsgBox ("Занятие успешно сохранено!")
End Sub

http://www.sql.ru/forum/1257980/cikl-zapisi-s-preryvaniem-po-usloviu

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


Начинка таблиц:


Простой запрос, который работает с двумя таблицами:

SELECT DISTINCTROW тУСН17.Код, тУСН17.№договора, тУСН17.Сумма, тУСН17.Аванс, Sum(тУСН17доплата.СуммаДоплаты) AS SumДоплат
FROM тУСН17 INNER JOIN тУСН17доплата ON тУСН17.Код = тУСН17доплата.КодУСН
GROUP BY тУСН17.Код, тУСН17.№договора, тУСН17.Сумма, тУСН17.Аванс, тУСН17.Реализация, 
тУСН17.[Оплата100%], Format$(тУСН17.Дата,'mmmm yyyy'), Format$(тУСН17.ДатаРеализации,'mmmm yyyy')
HAVING (((тУСН17.Реализация)=True) AND ((тУСН17.[Оплата100%])=False))
ORDER BY тУСН17.Код;

Результат работы запроса - пропущен договор 109-н (код записи 2 "тУСН17"):


Запрос работает нормально, когда в таблице "тУСН17доплата" есть данные. В противном случае он не видит данных и в таблице "тУСН17". На картинке с содержимым таблиц я подчеркнул красным пропущенную запись.
Как модернизировать запрос, чтобы он выводил данные по записи 2 из "тУСН17" и подставлял ноль в SumДоплат?

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

http://www.sql.ru/forum/1257965/zapros-vidit-dannye-ne-polnostu

Хочу перестраховаться и потренироваться...

Короче, список таблиц (листов) с файла Excel хачу.
Но не могу.

Кто умеет?

' Вот эта хрень не работает!
Set x = .GetSchema("TABLES")

  
  Set ExcelConn = New ADODB.Connection
  
  With ExcelConn
  
    .Provider = "MSDASQL"
    .ConnectionString = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" & _
                        "DBQ=" + file + ";" & _
                        "ReadOnly=TRUE;"

    Debug.Print .ConnectionString
    .Open

    ' Вот эта хрень не работает!
    Set x = .GetSchema("TABLES")

    Set rs = .Execute("SELECT * FROM [Лист1$]")
    For Each x In rs.Fields
       Debug.Print x.Name
    Next
     
    .Close

http://www.sql.ru/forum/1257920/odbc-i-chtenie-shemy-dannyh-iz-excel

Здравствуйте, уважаемые знатоки.

Мы в компании реализовали печать комплекта документов и PDF файлов-сканов сертификатов продукции.

Первыми на печать отправляются счета-фактуры и товарно-транспортные накладные выводятся через DoCmd.OpenReport.
Затем на печать отправляются файлы PDF при помощи

Set Wsh = CreateObject("Wscript.Shell")
Call Wsh.Run(FilePath, 0, True).

И возникла проблема. Если необходимо распечатать сразу несколько комплекто на несколько поставок, то получается следующее.

Из кода отправляем печать аксесовых отчетов. Они все правильно встают в очередь. Затем печатаем PDF файлы. Они начинают вставать в очередь. Затем мы переходим к печати к следующему документу, начинаем печатать аксесовые документы по следующей поставке. Но в этот момент ещё не была закончена печать PDF файлов из предыдущего комплекта

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

Я попытался задать Sleep. Это помогло, но не сильно. Сотрудникам все равно приходится вручную сортировать документы.

Каким образом можно заставить код VBA перейти к печати следующего комлекта только после того, как будет распечатан последний файл PDF ?

http://www.sql.ru/forum/1257879/posledovatelnaya-pechat-otchetov-i-faylov-pdf