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

Хотелось узнать возможно ли VBA под Access реализовать следующее.

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

Пример. Есть 2 элемента управления dblSigmaT и dblSigmaV.
Процедуры имеют следующий вид.

Private Sub dblSigmaT_AfterUpdate()
    On Error GoTo ErrorSub
    Me.Dirty = False
    CheckMechanicalProtocolInMetiz ("dblSigmaT")
    Exit Sub
ErrorSub:
    If Err.Number = 515 Then
        MsgBox m_strError, , "Ошибка"
        dblSigmaT = Null
        SetFocusInNullField
    Else
        MsgBox Err.Description
    End If
End Sub

Private Sub dblSigmaV_AfterUpdate()
    On Error GoTo ErrorSub
    Me.Dirty = False
    CheckMechanicalProtocolInMetiz ("dblSigmaV")
    Exit Sub
ErrorSub:
    If Err.Number = 515 Then
        MsgBox m_strError, , "Ошибка"
        dblSigmaV = Null
        SetFocusInNullField
    Else
        MsgBox Err.Description
    End If
End Sub

Хотелось бы представить так.

Private Sub ActiveXUpdate(activex)
    On Error GoTo ErrorSub
    Me.Dirty = False
    CheckMechanicalProtocolInMetiz (activex)
    Exit Sub
ErrorSub:
    If Err.Number = 515 Then
        MsgBox m_strError, , "Ошибка"
        activex= Null
        SetFocusInNullField
    Else
        MsgBox Err.Description
    End If
End Sub

Private Sub dblSigmaT_AfterUpdate()
      ActiveXUpdate(SigmaT)
End Sub

Private Sub dblSigmaV_AfterUpdate()
      ActiveXUpdate(SigmaV)
End Sub

http://www.sql.ru/forum/1126126/peredacha-v-kachestve-argumenta-funkcii-elementa-upravleniya-activex

Как создать через VBA связь с MySQL? Вручную знаю как. Но надо через VBA когда именно нужно: связал, воспользовался и удалил. Помогите.

http://www.sql.ru/forum/1126115/kak-sozdat-cherez-vba-svyaz-s-mysql

Не уверен в том, что создаю топик в нужном форуме. Если что, прошу простить и переместить:)
Есть таблица с данными в SQL, выкатил ее из Кроноса. Она выглядит так:

Системный номер Наименование товара Стоимость 222 Настольный компьютер 30 000 руб. 223 Колонки 500 руб.

Данную таблицу я привязал к форме access (табличная форма). Так вот, можно ли из формы access, при нажатии на поле(к примеру: по двойному клику) с системным номером переходить в Кронос на соответствующую запись? Как лучше это сделать? Через гиперссылку или с помощью VBA. К сожалению, в нете ничего подходящего не нашел.

http://www.sql.ru/forum/1126078/perehod-k-zapisi-cronosplus-po-sistemnomu-nomeru-iz-formy-access

Всем привет!
Нужно реализовать следующее:
1. Прилинковать таблицу Excel. Либо это будет единственный файл в определенной директории, либо вывести диалоговое окно с указанием пути и имени.
2. Пробежаться по заголовкам прилинкованной таблицы, в соответствии с таблицей соответствий переименовать.
3. Добавить данные в существующую таблицу в БД.

Все нужно на VBA, дабы выполнялось с кнопки.
Прошу по каждому пункту ткнуть куда копать, на готовое решение не претендую. Если что будет непонятно - спрошу.
Спасибо.
_____________________
А что на самом деле хотел сказать Frost_Imp никто не знает, так как администрация форума попросила его быть вежливым.

http://www.sql.ru/forum/1126036/linkovka-poisk-pereimenovanie-dobavlenie

мне нужно определить номер строки чтобы потом в определенные ячейки это строки записать значение.
код не отображает номер (цифру) строки у найденной ячейки. (Хотя переменную adr определяет как $F$3)
P.S. как находить введенный текст целиком, а не просто по частичным совпадениям? (на xlWhole ругается)

adr = xlWbk.Worksheets(l).Cells.Find("123").Address
sRowNumber = Mid(adr.Address, (InStr(2, adr.Address, "$") + 1))

http://www.sql.ru/forum/1126024/opredelenie-nomera-stroki-excel-iz-modulya-access

Ситуация:
Рисую базу на А2010 (формат accdb), формочки, кнопочки, рюшечки. Пользователи довольны. Иногда бэкаплюсь (это важно!). Данная база открывается также в А2007. И вдруг, после добавления нескольких полезных функций А2007 заявляет "моя твоя не понимать", т.е. "нераспознаный формат базы данных - ошибка 3343". В А2010 этот файл продолжает работать, но никакие манипуляции с ним не помогают открыть его в А2007.

Решение:
Советчики "сожми и восстанови" и "установи модную программу восстановления" были отправлены лесом. В итоге, сравнив новый "плохой" файл с "хорошим" из бэкапа (в hex-редакторе) замечено, что по смещению 14h (20) в "плохом" файле стоит [03 01], в "хорошем" - [02 00]. После замены [03 01] на [02 00] А2007 без вопросов открыл "плохой" файл. Побочных эффектов пока замечено не было. К слову, в "свежей" бд ставится значение [02 00].

Вопрос:
Кто-нибудь может подвести под это теорию, почему такое происходит и что значат эти байты? Есть где-нибудь описание формата accdb?

http://www.sql.ru/forum/1126000/neraspoznanyy-format-bazy-dannyh-access-2007

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

Столкнулась в универе с такой вот задачкой:
Создать программу, которая вычисляет массива A[N,N],который заполнен случайными числами,главной диагонали сумму квадратов элементов(переменную N должен вводить пользователь).

Например: если N=3, элементы главной диагонали 1, 3 и 2, их сумма квадратов 1^2+2^2+3^2=1+4+9=14.

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





Главная диагональ на рисунке

http://www.sql.ru/forum/1125964/dvumernyy-massiv

Таблица1 содержит всего 3 записи, поля "код" (число) и "выбор"(логическое).
в запросе она связана по полю "код" с таблицей Коды, где этих разновидностей кодов десятка четыре.
условие отбора:

where Таблица1.Выбор = Истина

выбрана может быть только одна из трёх записей
можно ли как-то, не добавляя в Таблицу1 все 40 кодов, обеспечить отбор: "если ни один из флажков не установлен, то запрос возвращает все записи таблицы Коды"?

http://www.sql.ru/forum/1125893/uslovie-esli-ne-ukazan-konkretnyy-to-vse-mozhno-li-sdelat

Всем привет!
Впервые столкнулся с проблемой.
Есть форма на ней есть listbox и поля с датами, есть таблица куда с помощью запроса на вставку в соответствующие поля вставляются данные из формы.
До вчера все работало на 100 %
а сейчас вместо числа из listbox запрос вставляет символ ASCII для цифры 34 это " например,
а поля с датами вообще пустые.
Может кто знает как с этим бороться?
Спасибо за ранее!

http://www.sql.ru/forum/1125884/vmesto-chisla-kod-ascii

в базе есть скрытая таблица. запустил процедуру защиты от шифта, база "защитилась", и теперь я не могу снять защиту!
а импорт объектов в новую базу не затрагивает скрытую таблицу - она не видна в списке доступных таблиц

http://www.sql.ru/forum/1125881/pomogite-peremudril-s-zashhitoy-ot-shifta

Две таблицы. Исходные данные и Результат.
При нажатии кнопки, новые данные из одной таблицы попадают в другую с пустым полем [ФЛАГ].
Подскажите код кнопки. "Плюсомёт" заряжен.

http://www.sql.ru/forum/1125790/perenos-otlichnyh-dannyh-iz-odnoy-tablicy-v-druguu

Доброго времени суток, господа.

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

Благодарю.

http://www.sql.ru/forum/1125764/problema-s-sozdaniem-formy-dlya-vvoda-dannyh

Столкнулся с такой проблемой:
Для автоматизации отчета средствами MS Access 2007 необходимо на форму добавить календарь, что бы в пустое поле он выводил выбранную дату (файл во вложении, основная форма - frmAppointment2)

Проблема в том, что в MS Access 2007 данная форма не работает (читал, что можно использовать встроенный календарь)
А формат должен быть следующим: дд.ммм.гггг
Например: 10.NOV.2014 (при чем, календарь должен быть на английском языке, а не на русском)

Вопросы:
1) Как в Access 2007 добавить на форму календарь, что бы в пустое поле из календаря выводилась выбранная дата?
2) Как месяцы в этом календаре поменять на английский язык?

Заранее благодарю.

http://www.sql.ru/forum/1125684/ispolzovanie-kalendarya-v-ms-access-2007

Помогите плиз решить!!

В MS Excel находится таблица в виде, представленном в файле «Тест1». Нужно написать программный код в Access-е преобразовывающий таблицу в файле «Тест1» в вид таблицы, представленной в файле «Тест2»: из вертикальной иерархической структуры перевести в горизонтальную плоскую. Данные по ценам, обороту и продажам приведены условные и в какой-либо обработке не нуждаются.

http://www.sql.ru/forum/1125604/zadachka

Всем добрый день!
Имеется простая база данных и форма патологии пациентов: главная форма - ФИО, дата рождения, здоров(да/нет); подчиненная форма - название патологии. Можно ли сделать так: если в поле здоров стоит единичка ( значение да), происходит блокировка подчиненной формы.

http://www.sql.ru/forum/1125556/logicheskiy-tip-dannyh-v-forme

На форуме много примеров использования WithEvents.
например такой

Private WithEvents connEvent As ADODB.Connection

Но у меня access 2010 ругается, что это компиляторная ошибка и выделяет именно WithEvents

Где чего нужно подключить, чтоб заработало ? или 2010 в принципе не поддерживает ?

http://www.sql.ru/forum/1125498/withevents-proishodit-oshibka-kompilyacii-pochemu

Есть подчиненная форма с таким запросом:

SELECT 
baza.id_patient_history, 
baza.id_registration_test, 
registration_test.registration_test, 
Sum(baza.fasi) AS SumOffasi
FROM baza 
LEFT JOIN registration_test 
ON baza.id_registration_test = registration_test.id_registration_test
GROUP BY 
baza.id_patient_history, 
baza.id_registration_test, 
registration_test.registration_test;

В Form Footer этой формы есть текстовое поле summa с источником: =Sum([SumOffasi])

У меня единственный вопрос, почему на моем компьютере, хоть дома, хоть на работе, поле summa показывает сумму, а на других компьютерах – нет?

http://www.sql.ru/forum/1125496/chistoe-nedorazumenie-s-summoy-v-form-footer

Делаю "анализ таблиц", из одной таблицы выделяю несколько, при нажатии "далее" выдаёт такое вот сообщение. Что оно может значить?

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

http://www.sql.ru/forum/1125488/access-po-vidimomu-ne-vse-polya-predlozhennoy-tablicy-tblclients-budut-svyazany-sho-eto

Здравствуйте. Не первый день бьюсь над проблемой со списками. В базе есть таблица "Главная" в которую необходимо внести данные из других таблиц (Областной район, Город, Район города). Все это необходимо организовать выпадающими списками, которые будут изменятся в зависимости от выбранных в предыдущем столбце данных. Перечитал кучу информации, но так как я новичок и пока полный ноль ничего сложить в кучу не могу. Прилагаю набросок базы, может кому не трудно помочь?

http://www.sql.ru/forum/1125471/svyazannye-spiski-ms-access

А2003 МДБ, МС СКЛ 2005
Начало здесь 16805591
В аттаче - пример. У меня не получается получить редактируемый ДАО-рекордсет на основе запроса к серверу, причем неважно, что используется для запроса - ХП или простой селект. А я и не знал, всегда использовал АДО-рекордсеты - с ними все нормально.

Вопрос - возможен ли САБЖ и если да, то как?

http://www.sql.ru/forum/1125453/poluchit-redaktiruemyy-dao-rekordset-na-osnove-hp-i-zaprosa-k-serveru