Обновление приложения до новой версии файла, извлекаемой автоматом из поле OLE таблицы

Воскресенье, 16 Ноября 2014 г. 05:07 + в цитатник

Появилась автоматизировать обновление клиентских приложений при появлении новой версии в поле OLE в привязанной таблице. То есть я гружу в поле OLE новый файл ACCDE. Тогда срабатывает процедура извлечения и замены файла на рабочем столе. Возможно ли такое сделать по средствам ACCESS VBA?

http://www.sql.ru/forum/1126799/obnovlenie-prilozheniya-do-novoy-versii-fayla-izvlekaemoy-avtomatom-iz-pole-ole-tablicy

Комментарии (0)

Сущность и параметры

Суббота, 15 Ноября 2014 г. 21:53 + в цитатник

Здравствуйте.
Заинтересовал вот такой случай по структуре БД. Есть некие СУЩНОСТИ, состоящие из двух СОСТАВЛЯЮЩИХ(пока сути не играет остановимся на двух). Каждой составляющей можно задать значение какой то ПЕРЕМЕННОЙ. Для каждой составляющей своё значение, но однотипное с другой составляющей. Сразу пример. Есть некий сплав. Состоит из Меди и Цинка, или Сталь, состоит из Железа и Углерода и тому подобное. Есть переменная величина для каждой составляющей. Пусть процентное содержание - 30% одного и 20% другого(может быть 60 одного и 10 другого и так далее)
Вариация этих переменных задаёт определённые свойства сущности определяемые по неким параметрам. Эти параметры рассчитываются на основе заданных переменных, определяемых по формулам пусть это будет +,-,* и / между собой данные переменные. Эти параметры нужно будет сравнивать с Эталоном. Пока не важно.
Сам вопрос: Как организовать ПРАВИЛЬНО базу данных хранения этих СУЩНОСТЕЙ. Я набросал два варианта на схеме обозначены _ВАР1 и _ВАР2. Есть ли у вас варианты?
Прилагаю схему и пример в Access2010.

http://www.sql.ru/forum/1126777/sushhnost-i-parametry

Комментарии (0)

Как снять защиту с форм и модулей в Access

Суббота, 15 Ноября 2014 г. 21:09 + в цитатник

Пять лет тому назад я закрыл в формах и модулях доступ. Теперь необходимо внести изменения в программу. А я забыл что делал. В настоящий момент в режиме форма есть названия форм они открываются но невозможно их открыть в режиме конструктор. В режиме модули отсутствуют все программы и не высвечивается "конструктор".

http://www.sql.ru/forum/1126774/kak-snyat-zashhitu-s-form-i-moduley-v-access

Комментарии (0)

Как отменить закрытие форм и модулей в ACCESS

Суббота, 15 Ноября 2014 г. 20:59 + в цитатник

Пять лет тому назад я закрыл в формах и модулях доступ. Теперь необходимо внести изменения в программу. А я забыл что делал. В настоящий момент в режиме форма есть названия форм они открываются но невозможно их открыть в режиме конструктор. В режиме модули отсутствуют все программы и не высвечивается "конструктор".

http://www.sql.ru/forum/1126772/kak-otmenit-zakrytie-form-i-moduley-v-access

Комментарии (0)

Как обновить поле со списком?

Суббота, 15 Ноября 2014 г. 16:27 + в цитатник

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

http://www.sql.ru/forum/1126750/kak-obnovit-pole-so-spiskom

Комментарии (0)

ToolTip закрыть программно.

Суббота, 15 Ноября 2014 г. 15:56 + в цитатник

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

Имеется такой код,
работает правильно, но нет действия на закрытие ToolTip.
-----------------------------------------------------------

То есть ToolTip появляется, а как закрыть его программно я не знаю.

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

Может кто подскажет.

Option Compare Database

Private Type tRect
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
End Type
'-----------------------------

Private Type TToolInfo
  cbSize As Long
  uFlags As Long
  hwnd As Long
  uId As Long
  rect As tRect
  hinst As Long
  lpszText As String
  lParam As Long
End Type

'-----------------------------
Private Const WM_USER As Long = &H400
Private Const TTM_ADDTOOLA As Long = WM_USER + 4
Private Const TTM_TRACKACTIVATE As Long = WM_USER + 17
Private Const TTM_TRACKPOSITION As Long = WM_USER + 18
Private Const TTM_SETTITLE As Long = WM_USER + 32
Private Const TTS_NOPREFIX As Long = &H2
Private Const TTS_BALLOON As Long = &H40
Private Const TTF_TRACK As Long = &H20
Private Const TTI_INFO As Long = 1
Private Const TTS_CLOSE As Long = &H80
'-----------------------------

Private Const FTooltipClassName As String = "tooltips_class32"
Private FHandle As Long
Private FToolInfo As TToolInfo

Private Const GWL_WNDPROC = (-4)
Private Const GWL_HINSTANCE = (-6)
Private Const WS_EX_TOPMOST As Long = &H8&

Private Declare Function GetFocus Lib "user32" () As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
Private Declare Function GetWindowRect Lib "user32.dll" (ByVal hwnd As Long, ByRef lpRect As tRect) As Long
Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As tRect) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal Msg As Long, ByVal wp As Long, lp As Any) As Long

'----------------------------------------
Private Sub Кнопка1_Click()
  Dim hWndParent As Long
  Dim hInstance As Long
  Dim EditRect As tRect
  Const TooltipText As String = "Текст всплывающего сообщения"
  Const TooltipTitle As String = "Заголовок"
  'определяем окно, над которым будем показывать tooltip
  Call Поле1.SetFocus
  hWndParent = GetFocus()
  'создаём окно tooltip'а
  hInstance = GetWindowLong(Application.hWndAccessApp, GWL_HINSTANCE)
  FHandle = CreateWindowEx(WS_EX_TOPMOST, _
    FTooltipClassName, 0&, _
    TTS_NOPREFIX Or TTS_BALLOON Or TTS_CLOSE, _
    0, 0, 0, 0, hWndParent, 0, hInstance, 0) '  Or TTS_CLOSE,

  With FToolInfo
    .cbSize = Len(FToolInfo)
    .uFlags = TTF_TRACK
    .hwnd = hWndParent
    Call GetClientRect(.hwnd, .rect)
    .rect.Top = 500
    .rect.Bottom = .rect.Top + 100
    .lpszText = TooltipText
  End With
  
  Call SendMessage(FHandle, TTM_ADDTOOLA, 0, FToolInfo)
  Call SendMessage(FHandle, TTM_SETTITLE, TTI_INFO, ByVal TooltipTitle)
  'показываем tooltip
  Call GetWindowRect(hWndParent, EditRect)
  Call SendMessage(FHandle, TTM_TRACKPOSITION, 0, ByVal (EditRect.Left + 1) Or ((EditRect.Top + 1) * 65536))
  Call SendMessage(FHandle, TTM_TRACKACTIVATE, True, FToolInfo)
End Sub

http://www.sql.ru/forum/1126745/tooltip-zakryt-programmno

Комментарии (0)

поиск нескольких ячеек в Excel c выводом их значений

Суббота, 15 Ноября 2014 г. 09:46 + в цитатник

Нужно осуществить поиск ячеек с определенным набором значений, которые берутся из формы. Предполагается что могут быть несколько ячеек с одинаковым значением. Поэтому нужно вывести значения их Всех в сообщении с номером строки, в котором находятся эти ячейки.
Процедура .Find("искомыйтекст") находит первое встретившееся значение и останавливается. Нужно: осуществить поиск по всему листу Excel и только потом показать найденные ячейки.

http://www.sql.ru/forum/1126711/poisk-neskolkih-yacheek-v-excel-c-vyvodom-ih-znacheniy

Комментарии (0)

преобразовать формат чисел в таблице

Пятница, 14 Ноября 2014 г. 16:38 + в цитатник

Имеется поле в таблице с форматом "длинное целое", набор данных вида : 1,5,10,45,290,3
Как преобразовать этот набор в вид 0001,0005,0010,0045,0290,0003?

То есть, нужно добавить нули в начало исходных данных, при этом требуется фиксированная длина в 4 символа.
Устроит даже если придется поменять тип поля на "текстовый".

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

http://www.sql.ru/forum/1126613/preobrazovat-format-chisel-v-tablice

Комментарии (0)

Экспорт формы из MS Access 2007 в формате .rtf в альбомной ориентации

Пятница, 14 Ноября 2014 г. 15:03 + в цитатник

Доброго времени суток!
Есть такой вопрос: нужно экспортировать форму из MS Access в формате Word (.rtf). Размер подогнал для альбомного варианта, а экспортирует в книжном (вся форма не помещается).
Подскажите, как можно настроить экспорт в альбомном формате?

http://www.sql.ru/forum/1126583/eksport-formy-iz-ms-access-2007-v-formate-rtf-v-albomnoy-orientacii

Комментарии (0)

Задать источником Combobox хранимую процедуру

Пятница, 14 Ноября 2014 г. 05:51 + в цитатник

Создаю коннект к БД SQL Server, команду к хранимой процедуре, создаю Recordset, в которую выгружаю результаты ХП-шки, а вот далее источником, например, формы она работает, а источником поля со списком - не хочет. Вот код:

Dim rs As New ADODB.Recordset
Dim cn As New ADODB.Connection

With cn
.Provider = "Microsoft.Access.OLEDB.10.0"
.Properties("Data Provider").Value = "SQLOLEDB"
.Properties("Data Source").Value = "..."
.Properties("User ID").Value = "..."
.Properties("Password").Value = "..."
.Properties("Initial Catalog").Value = "..."
.Open
End With

Set rs.ActiveConnection = cn
rs.Source = "Exec SpecialitiesOfFaculty " & Forms!Form2!aaa
rs.Open

Set Me.Recordset = rs (Так работает, а если здесь сделать Me!Поле1.Rowsource = rs - не хочет)
Set rs = Nothing
Set cn = Nothing

End Sub

То есть в качестве Recordset для формы она берет, а в качестве источника поля со списком (Rowsource) не получается. Помогите, пожалуйста!!!

http://www.sql.ru/forum/1126473/zadat-istochnikom-combobox-hranimuu-proceduru

Комментарии (0)

Переход из подчиненной формы в главную форму

Четверг, 13 Ноября 2014 г. 21:20 + в цитатник

Здравствуйте всем.
Начал изучать Access. Мне нужно по двойному клику в поле подчиненной формы перейти на основную форму.
В событии написал
[Form_имя формы].KdDnomer.SetFocus
Поле получает фокус, но потом курсор опять появляется в подчиненной форме. А мне надо курсор в главной форме.

http://www.sql.ru/forum/1126446/perehod-iz-podchinennoy-formy-v-glavnuu-formu

Комментарии (0)

Сканер штрих-кодов и и функция timestamp по ID

Четверг, 13 Ноября 2014 г. 21:08 + в цитатник

Уже несколько дней не могу понять как сделать свою задачку, есть форма типа Multiple Items есть поле в котором при нажатии кнопки возле неё записывается время Time() но тут нужно ещё сделать все при помощи сканера штрих кодов, сканер считывает номер пропуска и записывает время ,не могу понять как заставить записать время именно в той строке у которого значение номера пропуска например 4444,поначалу я думал что бы сканер записывал номер в ячейку в форме у которой будет функция After update записывать время в поле ориентируясь но номеру пропуска, для удобства прикрепил пример если кто не поймёт что я имел в виду буду благодарен если поможете, хотя бы понять как изменить значение определённой ячейки

http://www.sql.ru/forum/1126443/skaner-shtrih-kodov-i-i-funkciya-timestamp-po-id

Комментарии (0)

Можно ли в таблице аксес хранить * данные?

Четверг, 13 Ноября 2014 г. 18:17 + в цитатник

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

http://www.sql.ru/forum/1126408/mozhno-li-v-tablice-akses-hranit-dannye

Комментарии (0)

Два запроса: главный-детальный

Четверг, 13 Ноября 2014 г. 16:12 + в цитатник

Access совсем не мой профиль, поэтому не пинайте за тривиальные вопросы

Надо быстренько проанализировать данные нескольких таблиц. Импортировал таблицы, создал Главный SQL-запрос, затем создал форму и добавил на нее созданный запрос, отобразились данные. Теперь я хочу ниже основного запроса в той же форме разместить детальный (то есть должна появиться еще одна табличка). Предполагается, что становясь на запись в Главной таблице я буду сразу же получать обновленную информацию в детальной (то есть текущая выбранная строка в Главном отчете, точнее некоторые ее поля, будут являться входными параметрами для детального отчета).

Возможно такое?! Если да, то как правильно прописать параметры во входном запросе и связать два запроса между собой?! Оба запроса я создавал в конструкторе запросов в виде SQL-текста

И еще, если я создаю запрос в режиме SQL и форматирую его так, чтобы удобно было прочитать, разнося ключевые слова по разным строчкам и делая отступы, то при сохранении система сама все склеивает. Можно ли какой-либо настройкой заставить ее это не делать.

http://www.sql.ru/forum/1126374/dva-zaprosa-glavnyy-detalnyy

Комментарии (0)

При ошибке подключения не вызывать окошка соединения MySQL

Четверг, 13 Ноября 2014 г. 15:33 + в цитатник

Как можно сделать чтобы при ошибке соединения не выплывала эта окошка, а надо просто вывести сообщение "Нет соединения с сервером."

http://www.sql.ru/forum/1126360/pri-oshibke-podklucheniya-ne-vyzyvat-okoshka-soedineniya-mysql

Комментарии (0)

Вызов процедуры формы1 из формы2

Четверг, 13 Ноября 2014 г. 14:08 + в цитатник

Здравствуйте!
Пожалуйста, подскажите кто знает:
Какой командой вызвать процедуру "Sub Фильтр()" модуля "Форма1" из процедуры модуля "Форма2" (Форма1 открыта но не активна)

http://www.sql.ru/forum/1126337/vyzov-procedury-formy1-iz-formy2

Комментарии (0)

Свободное поле типа Memo

Четверг, 13 Ноября 2014 г. 12:30 + в цитатник

На форме необходимо разместить поле с форматированным текстом (некоторые фразы курсивом или полужирным)
Пробовал создать свободное поле и выставить свойству Формат текста значение Формат RTF.
Не помогло. Подскажите что не так? Как реализовать задачу?

http://www.sql.ru/forum/1126310/svobodnoe-pole-tipa-memo

Комментарии (0)

Как программно создать папку?

Четверг, 13 Ноября 2014 г. 10:06 + в цитатник

Всем привет!
Помогите пожалуйста!

Есть форма, в нем:
Поле1 = "D:\База"
Поле2 = "Папка1"
Кнопка1

При нажатии кнопки создавалось папка, вот путь: "D:\База\Папка1"
За ранее Спасибо!

http://www.sql.ru/forum/1126260/kak-programmno-sozdat-papku

Комментарии (0)

SUM & LIKE в одном запросе.

Среда, 12 Ноября 2014 г. 22:22 + в цитатник

Всем добрый вечер!

Столкнулся с такой проблемой:
Необходимо сделать параметрический запрос, который вывел бы полученную выручку за определенный период по определенному фильму. (БД кинотеатра)

Собственно сначала вводим название фильма, затем период (.11. или 12.11 и т.п., для этого хочу использовать в запросе LIKE) и получаем на выходе одну строчку формата: Название фильма | Выручка

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

Запрос без Like (тут sum работает, все окей):
SELECT Фильмы.Название, Sum(Касса.Стоимость) AS [Sum-Стоимость]
FROM Фильмы INNER JOIN (Сеансы INNER JOIN Касса ON Сеансы.ID_Сеанса = Касса.ID_Сеанса) ON Фильмы.ID_Фильма = Сеансы.ID_Фильма
GROUP BY Фильмы.Название
HAVING (((Фильмы.Название)=[Фильм:]));

Запрос c Like (sum НЕ работает - получаю не сумму значений, а просто выборку всех строки из таблицы):
SELECT Фильмы.Название, Касса.[Время вставки], Sum(Касса.Стоимость) AS [Sum-Стоимость]
FROM Фильмы INNER JOIN (Сеансы INNER JOIN Касса ON Сеансы.ID_Сеанса = Касса.ID_Сеанса) ON Фильмы.ID_Фильма = Сеансы.ID_Фильма
GROUP BY Фильмы.Название, Касса.[Время вставки]
HAVING (((Фильмы.Название)=[Фильм:]) AND ((Касса.[Время вставки]) Like "*" & [Период:] & "*"));

Подскажите пожалуйста, как решить эту проблему?

http://www.sql.ru/forum/1126202/sum-like-v-odnom-zaprose

Комментарии (0)

Запрос не переключается в режим конструктора

Среда, 12 Ноября 2014 г. 17:13 + в цитатник

Комрады, куда копать?
Переслал товарищу accdb файлик, в нем несколько таблиц и запрос на добавление. ПРоблема в том, что запрос не переключается в режим конструктора.
Подключался по TeamViewer, пробовал сам - просто нет реакции. Взял код запроса, создал пустой запрос, закинул туда код, попытался переключиться в конструктор - нет реакции. Акц у товарища 2007-20010.
Код (на всяк случай)

+

INSERT INTO tblZakazi ( race_num, v_reyse, naklad, client, city, adr, capacity, weight, box, dat_from, dat_to, parking, 
      arrival_plan, arrival_fact, departure_fact, id_customer, id_client, comment, rc_pir, region )
SELECT temp.№, temp.[в рейсе], temp.Накладная, temp.Клиент, temp.город, temp.[Адрес конечный], temp.Объём, temp.Вес, 
      temp.Коробки, temp.от, temp.до, temp.стоянка, temp.[приб# план], temp.[факт прибытие], temp.[факт убытие], 
      temp.[Код клиента], temp.[Код клиента1], temp.[телефон Торг# Представителя], temp.[РЦ ПиР], temp.Регион
FROM temp;

_____________________
А что на самом деле хотел сказать Frost_Imp никто не знает, так как администрация форума попросила его быть вежливым.

http://www.sql.ru/forum/1126156/zapros-ne-perekluchaetsya-v-rezhim-konstruktora

LiveInternetLiveInternet

-Поиск по дневнику

-Подписка по e-mail

-Постоянные читатели

-Статистика

Invalid link!

Перейти к полной формеБыстрая запись

Обновление приложения до новой версии файла, извлекаемой автоматом из поле OLE таблицы

Сущность и параметры

Как снять защиту с форм и модулей в Access

Как отменить закрытие форм и модулей в ACCESS

Как обновить поле со списком?

ToolTip закрыть программно.

поиск нескольких ячеек в Excel c выводом их значений

преобразовать формат чисел в таблице

Экспорт формы из MS Access 2007 в формате .rtf в альбомной ориентации

Задать источником Combobox хранимую процедуру

Переход из подчиненной формы в главную форму

Сканер штрих-кодов и и функция timestamp по ID

Можно ли в таблице аксес хранить * данные?

Два запроса: главный-детальный

При ошибке подключения не вызывать окошка соединения MySQL

Вызов процедуры формы1 из формы2

Свободное поле типа Memo

Как программно создать папку?

SUM & LIKE в одном запросе.

Запрос не переключается в режим конструктора