-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Добрый день!
конечно наверное я тут за 2 дня людям повыносил мозг, но и еще повыношу, что то я не нашел в темах подскажите , как высчитать остаток количчества дней. например если в одном столбце дата начала договора. а в другом дата конец договора, так как высчитать остаток количество дней действия договора что бы отображалось например 245 дней
http://www.sql.ru/forum/1104570/vyschitat-raznicu-v-datah
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Доброго времени суток всем!
Есть форма [f1], в которой в поле [Polzovatel] при обновлении поля [Data1] вставляется имя пользователя компьютера (username)
Что-то похожее нашёл в интернете, и немного изменил для себя.
Код Модуля1
| + |
Option Compare Database
Option Explicit
Dim lngTr As Long
Const WS_EX_LAYERED = &H80000
Const GWL_EXSTYLE = -20
Const LWA_ALPHA = &H2
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Public Sub sSetTransparency(frmF As Form, lngT As Long)
Dim Ret As Long
'Set the window style to 'Layered'
Ret = GetWindowLong(frmF.hwnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED
SetWindowLong frmF.hwnd, GWL_EXSTYLE, Ret
'Set the opacity of the layered window to 128
SetLayeredWindowAttributes frmF.hwnd, 0, lngT, LWA_ALPHA
DoEvents
End Sub
|
И, собственно, само добавление в в поле [Polzovatel]
| + |
Option Compare Database
Option Explicit
Dim lngTr As Long
Private Sub Data1_AfterUpdate()
lngTr = 0
sSetTransparency Me.Form, lngTr
Me.Polzovatel = Environ("username")
|
Подскажите, пожалуйста, как сделать фильтр по полю [Polzovatel] при открытии формы? Что-то где-то, а, возможно,
и вообще ничего, я не понимаю.
Пытался так, но фигня получается (закомментирована одна из попыток):
| + |
Private Sub Form_Open(Cancel As Integer)
lngTr = 0
sSetTransparency Me.Form, lngTr
Me.Filter = Polzovatel = Environ("username")
Me.FilterOn = True
'DoCmd.OpenForm "f1", acFormDS, , "Polzovatel=" & Environ("username")
End Sub
|
Спасибо, что прочитали. :)
http://www.sql.ru/forum/1104563/filtr-pri-zagruzke-formy-po-polzovatelu
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Приветствую Всех
Тупик в голове, а дело срочное. Не могу сделать запрос на обновление поля.
В таблице для каждой записи есть номер счета и вес.
Нужно посчитать subtotal для каждого счета, а потом посчитать весовую долю для каждого subtotal.
Желательно получить результат одним запросом (типа с вложением). Исходная таблица не сортирована.
Сделал в Excel на 2х закладках показать как должно быть: до и после update.
Помогите - нужно архисрочно.
http://www.sql.ru/forum/1104488/obnovit-pole
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Добрый день
Пытаюсь через одну форму открыть другую с RecordSource
Код на открытие у меня такой:
stLinkCriteria = "Forms!f_product.Form.RecordSource = SELECT * FROM table_product WHERE ([ID]=" & Me![ID_F] & ")"
DoCmd.OpenForm f_product, , , stLinkCriteria
Но что-то не срабатывает
Можете глянуть че не так.?
Спасибо
http://www.sql.ru/forum/1104467/otkrytie-formy-s-recordsource
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Предистория: Есть 2 таблицы "Заголовки" и "Данные", каждой записи в "заголовках" соответствует несколько записей в "данных"
Задача: передать связку заголовок>несколько данных в другую БД.
Доп. условия: Базы однотипные, но не видны друг другу (одна БД в корпоративной сети другая дома, доступ в корп сеть извне невозможен) допускаются потери при передаче(типа почта не дошла и тд)
Пока вижу так: формируется файл типа xml и отправляется почтой на другой стороне файл разбирается и записывается в соответствующие таблицы.(Заголовок, данные)
Какие есть еще варианты?
http://www.sql.ru/forum/1104457/peredat-dannye-dokumenta-v-udalennuu-bd-bez-pryamogo-dostupa
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Добрый день.
Пытаюсь вытащить информацию с http
Пишу:
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "http…"
While IE.ReadyState < 4
DoEvents
Wend
Set mDoc = IE.Document
For i1 = 1 To mDoc.all.tags("span").Length
a = mDoc.all.tags("span").Item(i1 - 1).ID
Здесь циклом по span ищу нужный мне id
Next i1
Удивительное дело. В теле mDoc тэгов span около 50. А mDoc.all.tags("span").Length показывает всего 24. Естественно нужный мне тэг расположен дальше чем 24-й по счету и цикл до него не доходит. Принудительно пишу условие окончания цикла больше чем 24. Доходит до 24, дальше ругается, мол нет больше span в документе. Голову сломал что это может быть. Главное раньше все работало.
ХР, Акс 2003. Хром
Может у кого есть идеи куда копать?
http://www.sql.ru/forum/1104402/pytaus-vytashhit-informaciu-s-http
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Добрый день!
Можно ли в акссесе 2010 разбить ячейку на 2 допустим Договор и далее Дата отправки и дата приемки....
И следующий вопрос есть старая база создаю новую и делаю связь один к одному как что-бы старые данные необходимые мне для работы передавались в новую и добавлялись в старую?( возможно ли так сделать?
заранее спасибо ...
http://www.sql.ru/forum/1104383/pomogite
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
В поле со списком введено значение, которого в списке нет.
Не удаляя введённое сообщение, кликаю на другом контроле (допустим, на кнопке), у списка возникает событие NotInList с соответствующим сообщением.
На это событие написал:
Response = 0
ПолеСоСписком.Undo
поле очищается, сообщения больше не возникает, НО и события "КликНаКнопке" не возникает!
А можно как-то заставить программу и нажатие кнопки обработать без повторного нажатия на неё?
http://www.sql.ru/forum/1104354/kak-ne-ostanovitsya-na-sobytii-otsutstvie-v-spiske
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Добрый день!
Прошу реальной помощи у вас, сут ьв чем ест ьтаблица,которую я прикладываю. я не знаю как сделать лучше может форму и в енй таблицу,ну смысл в чем что бы например вводилось слова "вода" и показывались только те строки в которых есть слово вода и вс еданные отражались подтянутые к этой строке, буду благодарен за помощь.....
http://www.sql.ru/forum/1104306/filtraciya-po-slovu
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Здравствуйте. Решаю такую задачу: в подчиненную форму БД на Аксесс выгружается результат запроса. Необходимо этот результат выгрузить в Excel c подсчетом промежуточных итогов. Как я это делаю:
1) создаю переменную Рекордсет:
Dim ExportData As DAO.Recordset
Set ExportData = Me.FactOfJobsForPeriod.Form.Recordset
2)экспортирую содержимое рекордсета в Excel:
WS.Range("D8").CopyFromRecordset ExportData
3) Определяю номер последней заполненной на итоговом листе строки:
Dim LastRow As Integer
LastRow = WS.usedRange.Row + WS.usedRange.Rows.Count - 1
4)пытаюсь посчитать формулу расчета промежуточных итогов:
WS.Cells(LastRow + 2, 2).Formula = "=SUBTOTAL(109;O8:O" & LastRow & ")"
вот последний пункт не работает -выдается ошибка:
1004: Application defined or object defined errorв чем ошибка происходит? в столбце "О" числовые данные...
http://www.sql.ru/forum/1104292/ne-rabotaet-funkciya-subtotal-v-excelpri-vygruzke-iz-access
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Здравствуйте.
Прошу помощи с запросом:
Me.spisok.RowSource = "SELECT 'Продукт1', Count(svod.c_product_negative) AS [Выражение1] FROM svod " & _
" WHERE (((svod.c_product_negative) = '1' Or (svod.c_product_negative) Like '1, *' Or (svod.c_product_negative) Like '*, 1, *' Or (svod.c_product_negative) Like '*, 1')) " & _
" Union ALL SELECT 'Продукт2', Count(svod.c_product_negative) AS Выражение2 FROM svod " & _
" WHERE (((svod.c_product_negative) = '2' Or (svod.c_product_negative) Like '2, *' Or (svod.c_product_negative) Like '*, 2, *' Or (svod.c_product_negative) Like '*, 2')) " & _
" Union ALL SELECT 'Продукт3', Count(svod.c_product_negative) AS Выражение3 FROM svod " & _
" WHERE (((svod.c_product_negative) = '3' Or (svod.c_product_negative) Like '3, *' Or (svod.c_product_negative) Like '*, 3, *' Or (svod.c_product_negative) Like '*, 3')) " & _
.............
Продуктов штук 25, у каждого продукта свой код в отдельной таблице продуктов. Джойнить не могу, потому что коды продуктов в основной таблице идут в поле по несколько кодов и через запятую, текстово. Нужно тупо количество встречающихся кодов в таблице по каждому продукту вытащить. Этот запрос с масками помогает, но он большой очень и наименования нужно в ручную прописывать. Подскажите, пожалуйста, варианты упрощения. Спасибо.
http://www.sql.ru/forum/1104290/slozhnyy-zapros-s-maskami
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Где-то проскочил совет, что TreeView лучше строить "на лету"
Решил попробовать и сразу возникла пара вопросов:
1. Если строить только первый слой узлов, не создавая дочерних, то первоначально у узлов нет "плюсиков", что ставит в тупик.
2. При разворачивании узла как программа должна понять номер "слоя" узла, чтобы правильно построить его дочерние узлы?
И самое главное: при каком числе слоёв или числе дочерние узлов в слое, метод построения "на лету" даёт
видимые преимущества?
http://www.sql.ru/forum/1104196/postroenie-tree-po-mere-otkrytiya
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Уважаемые гуру, добрый день!
Для пополнения данных в другой программе из моей базы данных mdb мне прислали несколько файлов: dll библиотеку с функцией добавления записей в другую программу, xml файл, файл .xsd
Как я поняла, параметром для функции пополнения является xml файл, остальное для меня потемки.
Прошу вашей помощи в разъяснении назначения этих файлов и как вообще работает такая схема применительно к базе аксесс.
http://www.sql.ru/forum/1104128/funkciya-s-parametrom-xml
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Добрый день. Помогите разобраться новичку. Задача такая - в форме с источником запрос пользователь выбирает значение из полей, и форма обновляется. Делаю так: в запросе условие с параметром, если параметр пустой то false, дальше в обработке события изменение поля устанавливаю параметр запроса и делаю Requery или Refresh формы но не работает. Что я делаю не так?
http://www.sql.ru/forum/1104068/peredacha-parametra-i-obnovlenie-formy
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Имеются данные выводимые из запроса вида:
Client_ID Phone_number
123 +380501112233
123 +380661113355
123 +380771112233
333 +380321312213
444 +380565534343
555 +380443223232
555 +380504343243
...
Поля Client_ID и Phone_number текстовые.
Необходимо добавить поле AutoNumber чтобы получить следующий результат:
Client_ID Phone_number AutoNumber
123 +380501112233 1
123 +380661113355 2
123 +380771112233 3
333 +380321312213 1
444 +380565534343 1
555 +380443223232 1
555 +380504343243 2
...
Тут) предлагается применить конструкцию вида Nz(DMax(...),0)+1 но примеры использования конструкции отсутствуют :(
http://www.sql.ru/forum/1104031/avtonumeraciya-zapisey-vnutri-gruppy-nogami-ne-bit
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Здравствуйте, подскажите пожалуйста, microsoft access 2003, форма (картинка прилагается) Ввожу значения в "поле0"-3500 и в "поле2"3400,1 , поле4 формула =[Поле0]-[Поле2] результат длинный хвост чисел, почему??????? Не могу понять.
http://www.sql.ru/forum/1104028/vychitanie
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
