Чтобы в C_Total выводился промежуточный итог
Например:
Таблица

C_Number  C_Code  C_Date      C_Move 
1        1         12.10.14     11 
2        1         12.10.14     -5 
3        1         13.10.14     25 
4        1         13.10.14     -8 
5        1         15.10.14     -3 
......

Получать вот такого вида:

C_Number  C_Code  C_Date      C_Move C_Total 
1        1         12.10.14     11    11 
2        1         12.10.14     -5    6 
3        1         13.10.14     25    31 
4        1         13.10.14     -8    23 
5        1         15.10.14     -3    20 
......

http://www.sql.ru/forum/1120999/podskazhite-kak-v-zaprose-mozhno-sdelat-promezhutochnye-itogi

Добрый вечер, уважаемые коллеги!
В ходе составления базы данных у меня возникла следующая проблема. База данных сделана в accsee 2007. Моя задача создать форму, и в этой форме делать фильтрацию с помощью поля со списком. Мои действия были следующими:
1) создать запрос из базы данных
2)создать форму для этого запроса
2)создать поле со списком, назвать его "станция"
3)в данные поля со списком прикрепить данные одного из столбца из списка
4)создать макрос в строке "события" "после обновления"
5) создание макроса "применить фильтр", в строке условие отбора я написал следующее выражение
[Формы]![первая экспериментальная форма]![название метеостанции]=[Формы]![первая экспериментальная форма]![станция]

в Итоге при выборе метеостанции у меня не показывается НИ ОДНА метеостанция.Вопрос: почему так произошло и как это исправить?
Вот моя база данных. Не смог ее сюда запихнуть, уж больно она велика и никак не хотела сжиматься.

https://cloud.mail.ru/public/3e5a4f881cbf/База данных снега и осадков_Для форума.accdb
С Уважением!

http://www.sql.ru/forum/1120997/filtraciya-pri-pomoshhi-poley-so-spiskom

Добрый день.
Подскажите, как сделать так, чтобы при открытии формы Access все поля были неактивными(их около 30 штук).
Есть такая команда, чтобы не прописывать каждое поле отдельно?
Спасибо

http://www.sql.ru/forum/1120941/kak-sdelat-vse-polya-neaktivnymi

Есть поле со списком на форме которое обращается к таблице Кем собрана информация, там 4 столбца мне нужно что бы фамилия, имя, отчество отображались, но при выборе что бы ставилось значение из ID.
Выбираю присоединенный столбец 1, но данные туда из столбца 1 не попадают! Хелп!

SELECT [Кем собрана информация].[Присвоенный_ID], [Кем собрана информация].[Фамилия], [Кем собрана информация].[Имя],
 [Кем собрана информация].[Отчество] FROM [Кем собрана информация]; 

http://www.sql.ru/forum/1120939/pole-so-spiskom-gluk

Простите, если не по адресу
Необходимо составить запрос на увеличение стипендии студентам в n раз, у которых суммарный балл по сданным предметам больше некоторого значения. Две таблицы: 1)(Студенты: ID,ФИО, размер стипендии) 2)(Рез-ы экзамена: ID, ID студента, ID предмета, Оценка)
Попробовал выполнить:

UPDATE STUDENT INNER JOIN EXAM_OCENKI ON STUDENT.Student_ID =
EXAM_OCENKI.STUDENT_ID SET STUDENT.STIPEND = [STUDENT].[STIPEND]*0.5
WHERE (SELECT EXAM_OCENKI.MARK FROM STUDENT INNER JOIN EXAM_OCENKI ON
STUDENT.Student_ID = EXAM_OCENKI.STUDENT_ID
GROUP BY STUDENT.Student_ID)>4;

но access ругается - подчиненная функция не может возвращать >1 значения
Заранее спасибо.

http://www.sql.ru/forum/1120931/zapros-na-uvelichenie-razmera-stipendii-studentam-u-kotoryh-summarnyy-ball-opredelennogo

Коллеги,
столкнулся проблемой:
Access 2003, запускаемый с помощью runtime 2003, нормально работает с файлами ".mdb", если вся нутрянка в одном файле. Но при разделении на связку "таблицы + запускаемая бд" эта шняга уже выдает ошибку при запуске.
Подскажите, это лечиться или как? :(

http://www.sql.ru/forum/1120926/zapusk-razdelennoy-bd-cherez-runtime

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

http://www.sql.ru/forum/1120916/perehvat-klavishi-v-otchete

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

id что-то idPARENT
1 деталь 1
2 деталь 2 1
3 деталь 3 2
4 деталь 4 2
5 деталь 5 1

а как сделать если в деталь 1 входят 5 деталей 5

спасибо!

http://www.sql.ru/forum/1120901/drevovidnyy-spravochnik-s-kolichestvom

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

Private Sub плДатаЗаседания_BeforeUpdate(Cancel As Integer)
Dim a
a = DCount("код", "Заседания", "дата_заседания> #" & Format(Me.дата_заседания, "mm\/dd\/yyyy") & "#")
If a > 0 Then
MsgBox "Вы вводите дату позже уже имеющейся"
Me.Undo
Cancel = True
End If
End Sub

http://www.sql.ru/forum/1120891/vvod-daty-v-pole-v-zavisimosti-ot-usloviya-po-date-ne-pozzhe-uzhe-vvedennoy

есть такая таблица

AUTOKEY NAME TYPE INFO 0 Иванов A информация А 1 Иванов B информация Б 2 Петров A информация А 3 Петров B информация Б 4 Сидоров A информация А 5 Сидоров B информация Б

нужен такой результат

AUTOKEY NAME INFO_A INFO_B 0 Иванов информация А информация Б 2 Петров информация А информация Б 4 Сидоров информация А информация Б

Чисто на SQL.
База данных MS Access

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

http://www.sql.ru/forum/1120879/pomogite-sostavit-prostoy-zapros-k-tablice-s-obedineniem

Здравствуйте, имеется небольшая база данных, в Ацесе работаю впервые, потому нуждаюсь в помощи, у меня есть запрос "Премии"
И в нем считается сумма оплаты за день, и выводится сумма за отдельные дни, а нужно что бы выводилась общая сумма за месяц, тоесть что бы не были по 2 раза написаны инициалы врача и он не имел 2 отдельные премии за каждый день
Задание кажется несложным, но при попытке сделать сумму суммы, Ацес выводит ошибку

http://www.sql.ru/forum/1120777/zaprosy-s-summoy

privet vsem
pomoqite pojaluysta xocu otklyucit klavisu ALT vo vremya raboti rabocey formi
izvinite za raskladku
bloqadaryu.

http://www.sql.ru/forum/1120754/otklyucit-klavisu-alt

Доброго времени суток, коллеги. У меня вопрос по взаимодействию с MSSQL.
Есть несколько таблиц в MSSQL с полем timestamp (который rowversion).
Как мне наладить взаимодействие по этому полю через Access?
Интересует формат данных хранения и передачи. Как преобразовать?

Создайте еще более понятный интерфейс и мир создаст еще более тупого юзера.

http://www.sql.ru/forum/1120745/rowversion-v-access

Суть проблемы: Хочу присватывать рейтинг популярности (использования) тех или иных строк. Переменной ТекСчетчик присваивает тек значение счетчика DLookup в табл Студенты. Поиск происходит по имени. Все вроде бы так, но DLookup возвращает не Интеджер, а что-то другое. Почему?

Вот сам код:

If Not IsNull(Form_Сдал.ФИО) Then
    ТекСчетчик = DLookup("Счетчик", "Студенты", "Имя= '" & Form_Сдал.ФИО & "'")
    ТекСчетчик = ТекСчетчик + 1
    DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Студенты SET Счетчик = '" & ТекСчетчик & "' WHERE Имя = " & Form_Сдал.ФИО & ""
Me.ФИО.Requery

http://www.sql.ru/forum/1120700/pochemu-ne-rabotaet-dlookup

Access 2007.
1. Запускаю процедуру по кнопке F5.
2. Ухожу из окна в другое приложение (Word, например).
3. Жму ESC
4. В окне Access выполнение процедуры прерывается, влетает в отладку, как если бы был нажат CTRL+Break.

У кого было? Как бороться?
Спасибо.

http://www.sql.ru/forum/1120673/nesankcionirovannoe-preryvanie-procedury

Здравствуйте форумчане, такой вопрос. Имеется форма, на ней listbox. на нажатию на кнопку, открывается другая форма с подчиненной внутри (табличный вид). по нажатию на строку значения полей присваиваются переменным. Эти переменный я хочу вывести в связанный текст в listbox. в самой первой форме.
Вот код, он не работает (по крайней мере в листбоксе ничего не отображается).

Public Sub Listbox1rowsourse()

srt As String
str1 As String
str2 As String
str3 As String
str4 As String
srt5 As String

sR_NAKL As String
sR_NSEK As String
sSUM_V As String
sDAT_R As String
sR_KLI As String

sR_NAKL = Forms("ФормРасх").[ПодчФорма]!NAKL
sDAT_R = Forms("ФормРасх").[ПодчФорма]!DAT_R
sR_KLI = Forms("ФормРасх").[ПодчФорма]!NA_KLI
sSUM_V = Forms("ФормРасх").[ПодчФорма]!SUM_V
sR_NSEK = Forms("ФормРасх").[ПодчФорма]!fNSEK

Forms("ФормРасх").Podbor = False



str = ""

str1 = "'Расход №'+convert(varchar, sR_NAKL)"
str2 = "'от '+convert(varchar, sDAT_R,104) "
str3 = "'на сумму' +rtrim(convert(varchar,isnull(sSUM_V,0)))+ "
str4 = "'номер секции '+(convert(varchar, sR_NSEK)) "
str5 = "'Клиент:' +(convert(varchar, sR_KLI)) "

str = str1 + str2 + srt3 + str4 + str5


Listbox1.RowSource = str

Me.Refresh

End Sub

http://www.sql.ru/forum/1120609/vyvesti-v-listbox-stroku

Есть 4 модуля. По отдельности все они работают.
Нужны для того, чтобы определить кто открыл файл, лежащий на сервере.
Помогите их объединить в один чтобы в итоге получился вывод сообщения.
Дополнительное пожелание: присвоение переменной текста этого сообщения, чтобы можно было передать в другую процедуру)

Option Compare Database

Function IsOpen(File$) As Boolean
Dim FN%
FN = FreeFile
On Error Resume Next
Open File For Random Access Read Write Lock Read Write As #FN
Close #FN
IsOpen = Err
End Function

Sub reportToExcel()

Dim strPathExcel As String
Dim xlWbk As Object
Dim ns
Dim L As String
Dim xlApp As Object

Set xlApp = CreateObject("Excel.Application") 'создаем объект Excel, чтобы можно было работать с его методами и свойствами
Const MyFile = "P:\Судебные дела\СУДЕБНЫЕ ДЕЛА 2014г.xls"
L = "Сводная таблица_2014г"

Again:
'проверка на открытие файла
If IsOpen(MyFile) Then
    MsgBox "Файл " & MyFile & " УЖЕ кем-то ИСПОЛЬЗУЕТСЯ. Останавливаемся.", vbExclamation
    Call Get_UserStatus_Info
Exit Sub

Else
    MsgBox "Файл " & MyFile & " никем не используется. Продолжаем...", vbInformation
End If

End Sub
======================================================
Option Compare Database
Option Explicit
Dim app As Object
Dim Workbooks As Object

Sub Get_UserStatus_Info()

Call Get_ComputerName
Call Get_LogonUser

Dim asUsers, sUserName As String, sDateTime As String, sStatus As String
Dim li As Long

Dim app As Object
Set app = GetObject(, "Excel.Application")

asUsers = app.Workbooks("СУДЕБНЫЕ ДЕЛА 2014г.xls").UserStatus
For li = 1 To UBound(asUsers, 1)
sUserName = sUserName & vbNewLine & asUsers(li, 1) & "; время изменения файла: " & Format(asUsers(li, 2), "dd.mm.yyyy hh:mm")
'sDateTime = asUsers(li, 2)
Select Case asUsers(li, 3)
Case 1
sStatus = "Монопольный"
Case 2
sStatus = "Общий"
End Select
Next



MsgBox "Пользователи файла:" & vbNewLine & "Office зарегистрирован на: " & sUserName & vbNewLine & "Доступ к файлу - " & sStatus & vbNewLine & "Имя компьютера: " & CompName

Set sUserName = Nothing
Set sStatus = Nothing
Set cn = Nothing

End Sub
================================
Option Compare Database

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function LookupAccountName Lib "advapi32.dll" Alias "LookupAccountNameA" (lpSystemName As String, ByVal lpAccountName As String, sid As Any, cbSid As Long, ByVal ReferencedDomainName As String, cbReferencedDomainName As Long, peUse As Long) As Long

Private Sub Get_LogonUser()
MsgBox "LogonDomain: " & GetLogonDomainuser & " / " & "LogonUser: " & GetLogonUser
End Sub

Public Function GetLogonDomainuser() As String
Dim lResult As Long
Dim I As Integer
Dim bUserSid(255) As Byte
Dim sUserName As String
Dim sDomainName As String * 255
Dim lDomainNameLength As Long
Dim lSIDType As Long
sUserName = GetLogonUser
lResult = LookupAccountName(vbNullString, sUserName, bUserSid(0), 255, sDomainName, lDomainNameLength, lSIDType)
sDomainName = Space(lDomainNameLength)
lResult = LookupAccountName(vbNullString, sUserName, bUserSid(0), 255, sDomainName, lDomainNameLength, lSIDType)
If (lResult = 0) Then
MsgBox "Ошибка: невозможно найти имя домена для юзера: " & sUserName
Exit Function
End If
sDomainName = Left$(sDomainName, InStr(sDomainName, Chr$(0)) - 1)
GetLogonDomainuser = Trim(sDomainName)
End Function
Private Function GetLogonUser() As String
Dim strTemp As String, strUserName As String
strTemp = String(100, Chr$(0))
strTemp = Left$(strTemp, InStr(strTemp, Chr$(0)) - 1)
strUserName = String(100, Chr$(0))
GetUserName strUserName, 100
strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)
GetLogonUser = strUserName
End Function
 
Public Function UserName() As String
Dim cn As String
Dim ls As Long
Dim res As Long
cn = String(1024, 0)
ls = 1024
res = GetUserName(cn, ls)
If res <> 0 Then
UserName = Mid(cn, 1, InStr(cn, Chr(0)) - 1)
Else
UserName = ""
End If
End Function
==========================
Option Compare Database

Public CompName As String 'объявляем переменную доступную для всего проекта
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Sub Get_ComputerName()
Dim scomp As String

scomp = Space(255)
h = GetComputerName(scomp, 255)
'MsgBox Trim(scomp)
CompName = Trim(scomp)
MsgBox "Имя компьютера, с которого открыт файл:  " & CompName
End Sub 

http://www.sql.ru/forum/1120605/pomogite-obedinit-v-odin-modul-tri-modulya

Здравствуйте, никак не могу в access разобраться с оператором case.
Требуется из приложенной таблицы получить отдельно столбцы стоимость модернизации и стоимость эксплуатации. Привожу пример скрипта с помощью которого пробую выполнить запрос (в Граббере описано, данная форма запроса похожая на данную):
SELECT Таблица1.[Фирма], Таблица1.[Объект учета],
case
when Таблица1.[Тип мероприятия]='Модернизация' then Таблица1.[Стоимость мероприятия] else 0 end as стоимость_модернизации_отдельно,
case
when Таблица1.[Тип мероприятия]='Эксплуатация' then Таблица1.[Стоимость мероприятия] else 0 end as стоимость_эксплуатации_отдельно
FROM Таблица1;
Исходную таблицу и предполагаемый результат прилагаю
Спасибо

http://www.sql.ru/forum/1120575/problemy-s-operator-sase-v-ms-access

Изначально форма защите от редактирования. Создание кнопки позволяющей редактировать поля в форме не вызывает затруднений (это распространяется на всю форму, на все записи, по мере перехода по записям они становятся доступными для редактирования).
А как сделать так чтобы редактирование было возможно только для текущей записи?
(что то вроде CurrentRecord.AllowEdits = True )

http://www.sql.ru/forum/1120517/vkluchit-redaktirovanie-tolko-dlya-tekushhey-zapisi-v-forme

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

Есть таблица с наименованиями и их стоимостью. Затем создана одна группа (Group1) "стоимостей" товаров (связь из двух запросов ЗапросА и запросБ). Помогите пожалуйста сделать еще один запрос который выгрузит все строки из главной таблицы, но кроме тех которые содержат значения стоимости в Group1

http://www.sql.ru/forum/1120494/vygruzka-krome