-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Помогите пожалуйста не могу с запросами разобраться. :(
Запрос 1
Используя таблицы Абоненты и Телефоны, вывести список всех улиц с указанием количества телефонов, установленных в домах на соответствующих улицах. В запрос включить поля:Улица,Дом,ЧислоТелефонов. Вычисляемое поле:ЧислоТелефонов
Запрос 2
Подсчитать и вывести для каждого номера телефона объем недоплаты или переплаты с начала текущего года. Необходимо исходить из нулевого баланса на начало текущего года, т.е. считать, что значения недоплаты и переплаты были нулевыми для каждого абонента телефонной компании. В
запрос включить поля: НомерТелефона, ОбъемНедоплаты, ОбъемПереплаты. Вычисляемые поля: ОбъемНедоплаты, ОбъемПереплаты
http://www.sql.ru/forum/1213479/vychislyaemyy-zapros
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Здравствуйте. Имеется проблема. Пытаюсь создать отчет для одной записи из нескольких в форме. Для этого попытался задействовать условия, однако что то не получается. Вот мой код:
Dim strReportName As String
Dim strFiltr As String
strReportName = "Общий поиск"
strFiltr = ""Код= & Me![Код]" And "Вакансия= & Me![Вакансия]""
DoCmd.OpenReport strReportName, acViewReport, , strFiltr, acIcon
Буду признателен в случае помощи.
http://www.sql.ru/forum/1213460/vba-problema-s-usloviyami-dlya-otcheta
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Доброго времени суток) Нужна Ваша помощь, чтобы разобраться как сделать, чтобы подчиненные запросы НЕ выполнялись по умолчанию.
Обьясню подробнее. Имеется форма с двумя подчиненными запросами, каждый из которых находится в отдельной вкладке. Кроме того имеется несколько полей-фильтров и кнопка обновить. Все это "чудо" работает, но каждый из подчиненных запросов состоит из нескольких других и весь этот "велосипед" довольно долго обрабатывается, т.к. выполняются оба запроса.
Дело в том, что оба запроса по умолчанию не нужны, нужен первый, который в разы легче, если первый не подходит, то тогда нужен второй. Как сделать так, чтобы второй запрос выполнялся, например, только при активации второй вкладки?
Заранее большое спасибо.
http://www.sql.ru/forum/1213275/vypolnenie-podchinennogo-zaprosa-v-forme-tolko-po-usloviu
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Доброго времени суток.
Уважаемые форумчане, опять нужна Ваша помощь.
Есть задача: на ФР Штрих необходимо распечатать QR - код.
На Атоле проблем нет, он берет нужную строку и самостоятельно генерирует QR код. А со Штрих-ом немного сложнее.
Функцию печати QR-кода для VB позаимствовал на форуме Штриха, но никак не получается её адаптировать.
| + |
'Код на VB6 для печати QRкода:
Sub PrintQRcodeEgais_(bar As String)
Dim i, j As Byte
Dim DataHex As String
Const size As Byte = 128
On Error Resume Next
DataHex = Trim(TextToHex(bar))
i = 1
j = 0
Do 'загрузка блоков данных по 128 байт
OleFP.BlockType = 0
OleFP.BlockNumber = j
OleFP.BlockDataHex = Mid(DataHex, i, size)
OleFP.Password = 30
fp = OleFP.LoadBlockData()
If OleFP.ResultCode <> 0 Then MsgBox "LoadBlockData: " + OleFP.ResultCodeDescription
i = i + size
j = j + 1
Loop While Len(Mid(DataHex, i, size)) > 0
'------------------------------
OleFP.Password = 30
fp = OleFP.OpenNonFiscalDocument()
OleFP.UseReceiptRibbon = True
OleFP.UseJournalRibbon = False
OleFP.StringForPrinting = ""
fp = OleFP.PrintString()
OleFP.StringForPrinting = " Тest QR-code:"
fp = OleFP.PrintString()
'------------------------------
OleFP.BarcodeType = 3
OleFP.BarcodeDataLength = Len(DataHex) / 2
OleFP.BarcodeStartBlockNumber = 0
OleFP.BarcodeParameter1 = 0
OleFP.BarcodeParameter2 = 0
OleFP.BarcodeParameter3 = 8
OleFP.BarcodeParameter4 = 0
OleFP.BarcodeParameter5 = 0
OleFP.BarcodeAlignment = 0
OleFP.Password = 30
fp = OleFP.Print2DBarcode()
If OleFP.ResultCode <> 0 Then MsgBox "Print2DBarcode: " + OleFP.ResultCodeDescription
'------------------------------
For i = 1 To 3
OleFP.StringForPrinting = ""
fp = OleFP.PrintString()
Next
fp = OleFP.CloseNonFiscalDocument()
End Sub
Private Function TextToHex(ByVal strText As String) As String ' © BV (Boris Vorontsov,borisbox@mail.ru)
Dim strOut As String
Dim strTmp As String
Dim i As Long
On Error GoTo Error:
For i = 1 To Len(strText)
strTmp = Hex$(Asc(Mid$(strText, i, 1)))
strOut = strOut & IIf(Len(strTmp) = 1, "0" & strTmp, strTmp)
Next i
TextToHex = Trim$(strOut)
Error:
If Err.Number <> 0 Then
MsgBox Err.Description, vbOKOnly Or vbCritical Or vbApplicationModal, "Error #" & Err.Number
End If
End Function
|
Выдаёт сообщение "argument not optional".
В прикрепленном файле есть пример. Подскажите пожалуйста, что делаю не так и какой аргумент является не объявленным.
http://www.sql.ru/forum/1213207/fr-shtrih-m-i-qr-kod
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Добрый день, можно ли как то определить номер строки в которой произошла ошибка и вывести его в сообщение для пользователя?
Необходимо чтобы при возникновении ошибки пользователю выводилось сообщение что в строке кода № n, возникла ошибка № err, в модуле с именем name.
Для кода ошибка и имени модуля нашел Err.Number и Err.Source, а вот номер строки где выходит ошибка не могу найти как узнать.
http://www.sql.ru/forum/1213194/nomer-stroki-v-kotroy-proizoshla-oshibka
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
за ранее извиняюсь если не в тот раздел пишу. просто на сколько я понял. то SQL в общем и в Аксессе отличатся . нужна помощь.
1. Определить список городов, куда отгружал товары Иванов
2. Представить информацию в нормализованном виде
3. Cоставить запрос 1 на языке SQL
помогите пожалуйста понять и разобраться
http://www.sql.ru/forum/1213180/sql-zapros
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Есть запрос:
SELECT a.pid, a.fDay, (a.fTime-w.fTime) AS TotalWrkTime, DatePart('ww',a.fDay) AS WeekGrp, DatePart('w',a.fDay) AS DayGrp
FROM atWT AS a INNER JOIN atWT AS w ON (a.pid = w.pid) AND (a.fday = w.fDay)
WHERE (((a.punch)<>[w].[punch]) AND ((a.fTime)>[w].[fTime]))
ORDER BY a.pid;
a.fDay - дата события
a.fTime и w.fTime - время события.
TotalWrkTime - отработанное в событии время.
Как посчитать сумму времени в рамках недели? Типа WeekTimeTotal...
http://www.sql.ru/forum/1213144/itogi-nedeli
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Всем ХОРОШИЙ праздников!
Возник небольшая проблемка)
Для спецов это семечки конечно.
В текстовом поле в форме - после внесения текста осуществляю поиск существующей записи в другой таблице:
If rst.EOF Or rst.BOF Then Exit Sub
rst.MoveFirst
rst.FindFirst "имя='" & Me.имя & "'"
If rst.NoMatch Then Exit Sub
Me.Undo
Me.Bookmark = rst.Bookmark
Проблема (ошибка/debug) возникает когда вносится англо-текст с апострофом типа: ITan's
Как подправить? если кому не трудно пояснить
http://www.sql.ru/forum/1213037/poisk-v-forme
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Всем доброго времени суток!
По поводу этой ошибки я уже облазил множество форумов, но решения так и не нашел, так что пишу здесь.
На форму добавляется поле (то бишь TextBox). В него вставляются результаты запроса (результатом выполненного запроса является одна запись). Ну и при запуске формы выводится ошибка "#Имя?".
Библиотеки все проверял - все подключено.
Если вставить в поле функцию вывода текущей даты (т.е. никак не завязываться на самой БД) - не работает.
Генерил отчеты в автоматическом режиме - работает нормально. Сравнивал характеристики создаваемых полей там и своего - совпадают.
Что делать?
http://www.sql.ru/forum/1212801/oshibka-imya-na-forme
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Здравствуйте.
На форме есть элемент рисунок в нём отсутствует картинка, вместо этого в свойствах тип фона указан обычный и задан цвет. В итоге получается квадрат. (можно конечно использовать элемент прямоугольник, но желательно всёже изображение).
Суть в том что мне нужно увеличивать глобальную переменную на 1 когда курсор входит в область изображения и на 1 когда уходит. Пока курсор внутри рисунка переменная не меняется.
Использую для этого событие "перемещение указателя" (MouseMove) элемента.
Private Sub Рисунок1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (X = 0) Or (Y = 0) Or (X = 550) Or (Y = 550) Then
count = count + 1
End If
Me.Поле1.Value = count ' выводит в поле 1 значение глобальной переменной
Me.Поле2.Value = X ' выводит в поле 2 значение X
Me.Поле3.Value = Y ' выводит в поле 3 значение Y
End Sub
Но возникли проблемы/вопросы:
1) Размер квадрата 1x1см. Его Height и Width равны 567. Но координаты X и Y выводятся всегда кратными 5. Поэтому немогу прописать условие If (X = Me.Рисунок1.Width) Or (Y = Me.Рисунок1.Height) Or (X = 0) Or (Y = 0) Then
Может есть возможность узнавать координаты более точно (именно в самой фигуре)
2) Хоть размер указан 567, но при выведении координат максимальный X (и Y) на котором выходит курсор (то есть последнее значение) является 555. Получается что фигура обрезана на 12. Если учесть то что шагом является 5 и координаты всегда кратны им то последнее значение должно быть 565, а не 555. Куда деваются эти (?пиксели?).
3) Иногда происходит ошибочное срабатывание, тогда count увеличивается на 3 или же вообще не срабатывает. В чём может быть причина ?
http://www.sql.ru/forum/1212772/koordinaty-kursora-na-elemente
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Всем доброго времени суток!
Имеются две связанные таблицы: группы и студенты (связь один-ко-многим).
Создаю форму, на которой выпадающий список с группами и простой зависимый список со студентами. Список со студентами в три колонки: Фамилия, Имя, Отчество. В свойства данного списка поставил даже галочку, чтобы в автомате прорисовывалась шапка таблицы.
Однако, порядок все равно сбивается - Access почему-то выводит сначала Имя, а только потом Фамилию и Отчество. А мне нужно так: Фамилия, Имя, Отчество.
Чтооо я не так делаю?
http://www.sql.ru/forum/1212703/krivoy-vyvod-dannyh
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Сделал выборку в конструкторе. По умолчанию он взял таблицу
peni c объединением
LEFT JOIN, однако мне нужно сделать
RIGHT JOIN. При выполнении запроса выдает ошибку
Не поддерживается выражение объединения JOIN
PARAMETERS DATE_CUR DateTime,
OF_CAT_ID Long;
SELECT offers.offer_id,
offers.offer_number,
offer_cats.offer_cat_name,
clients.client_name,
Nz([sum_on_date],0) AS p_sum_on_date,
Nz([sum_payed_on_date],0) AS p_sum_payed_on_date,
Nz([sum_payed_on_date],0)-Nz([sum_on_date],0) AS saldo,
Sum(peni.peni_sum) AS [Sum-peni_sum]
FROM (offer_cats
INNER JOIN (clients
INNER JOIN ((offers
LEFT JOIN qrySaldoPayed ON offers.offer_id = qrySaldoPayed.offer_id)
LEFT JOIN qrySaldoPlanPayment2 ON offers.offer_id = qrySaldoPlanPayment2.offer_id) ON clients.client_id = offers.client_id) ON offer_cats.offer_cat_id = offers.offer_cat_id)
*вот этот*RIGHT JOIN peni ON offers.offer_id = peni.offer_id
WHERE (((offers.offer_cat_id)=[OF_CAT_ID]))
OR ((([OF_CAT_ID])=0))
GROUP BY offers.offer_id,
offers.offer_number,
offer_cats.offer_cat_name,
clients.client_name,
Nz([sum_on_date],0),
Nz([sum_payed_on_date],0),
Nz([sum_payed_on_date],0)-Nz([sum_on_date],0);
http://www.sql.ru/forum/1212627/ne-rabotaet-left-join
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Доброго всем времени.
Есть база на расшареном сетевом ресурсе \\myServ\db\mybasa.mdb.
На локальных компах создаю ярлык со строкой запуска: "C:\Program Files\Microsoft Office\Office14\MSACCESS.EXE" "\\myServ\db\mybasa.mdb" и Рабочей папкой: \\myServ\db
Теперь при попытке открыть базу через это ярлык выскакивает сообщение вида: "У вас отсутствуют права на монопольный доступ к базе данных в это время. Внесение изменений невозможно". Если запустить access, потом открыть эту базу через "Файл->Открыть..." , то база открывается в многопользовательском режиме и работает как надо. Почему она не открывается через ярлык ? Может кто сталкивался с подобным ?
http://www.sql.ru/forum/1212574/access-2010-pri-otkrytii-bazy-cherez-yarlyk-blokiruet-bazu
