» VBA for Access

Господа, выручите, плиз. Необходимо в отчете Access данные в поле выровнить по ширине поля..."подбор" не предлагать! %) Большой объем текста, в несколько строчек в одном поле... ужас.

Здравствуйте. Меня интересует такой вопрос- можно ли в базе данных Access сделать так, чтобы по клику на поле-ссылку на файл открывалось окошко как в Explorer с вариантами действий, наподобии "открыть, сохранить, отменить"? И как программно такое окно можно выполнить?

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

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

Кто нибудь знает такую программку, которая производит сравнение данных 2-х mdb-шных баз и выдает отчетик о их различиях? Мне нужно именно сравнение ДАННЫХ в БД, а не ИХ СТРУКТУР.

Klenisa

Цитата:

Мне нужно именно сравнение ДАННЫХ в БД, а не ИХ СТРУКТУР

То есть структуры предполагаются одинаковыми или произвольное бинарное сравнение?
В случае одинаковых структур сравнение для одноимённых (всех со всеми?) таблиц по какими полям?
Уточните вопрос

Да, структура БД совершенно одинаковые... и данные в них изначально все один в один... после в одну из баз я хочу загнать данные ч/з одну программу, и потом уже мне нужно сравнить эти БД (если это невозможно, то нужно сравнивать тогда 2 одинаковые по структуре таблицы этих БД)... проще говоря: мне нужно просто узнать куда и чего пишет эта программулинка...

Klenisa
[more=Вот накидал, правда, реализация в Excel VBA ]
Создаёшь в Excel класс TableInfo

Код:
Option Explicit

Public Name As String
Public Primery As String
Public Count As Long

Цитата:

Вот накидал, правда, реализация в Excel VBA

Спасибочки большое!!! Очень признательна... Пока не пробовала, но думаю, что мне это поможет!!!

есть база в access (допустим фамилия, имя, отчество)
подскажите как при нажатии на кнопку запустить файл xls и вставить данные из базы в конкретные ячейки в файл?

klimusu

Цитата:

есть база в access (допустим фамилия, имя, отчество)
подскажите как при нажатии на кнопку запустить файл xls и вставить данные из базы в конкретные ячейки в файл?

пользовать OLE-автоматизацию. гуглить. примеров полно

jONES1979
ткни лицом в пример плиз.

klimusu
Так сложно в VBE Tools/References подключить библиотеку Microsoft Excel Object Library?

Код:
'...
Dim xls As New Excel.Application
Dim wkb As Excel.Workbook
Dim wks As Excel.Worksheet

Set wkb = xls.Workbooks.Open("d:\path\mybook.xls")
'или
Set wkb = xls.Worbooks.Add
Set wks = wkb.Worksheets("MySheetName")
'или
Set wks = wkb.Worksheets(1)
'...
wks.Cell(i, j).Value = 'чему надо
'...
'завершение
wkb.Save
'или
wkb.SaveAs

xls.Quit
'или если продолжить работу для пользователя
xls.Visible = True

AndVGri
все прекрасно кроме строчки
wks.Cells(1,A).Value = "test"
тут появляется ошибка "application-defined or object defined error"


Добавлено:

Цитата:

все прекрасно кроме строчки
wks.Cells(1,A).Value = "test"
тут появляется ошибка "application-defined or object defined error"

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

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

Кто подскажет каким образом подключить "FileDialog" и вообще любой об'ект для использования в программе ACCESS. Об'ясните подробненько.
Я пока дальше создания баз данных при помощи панелей и кнопок ACCESS не заходил, а тут вдруг возникла необходимость. Натолкнулся случайно на программу"Кадры", одной из возможностей которой - вставка фотографий сотрудников, в форму. При этом не через поле Оle. а путем хранения адресов фоток в текстовом поле, что дает значительную экономию ресурсов. Решил реализовать это в своей базе. Однако столкнулся с тем, что даже после удаления всего видимого содержимого базы (таблиц, форм и т.п. ) а потом создания своей таблицы и формы - процедура работает. Но когда перенести все необходимое в новую базу, то при попытке замены фотографии возникает ошибка, что-то типа "Отсутствует элемент FileDialog".

Код программы:

Sub getFileName()
' Для выбора имени файла с фотографией текущего сотрудника
' используется стандартное окно открытия файла Office.
' Если пользователь указывает файл, его содержимое
' отображается в элементе управления Рисунок1.
Dim fileName As String
Dim result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Выбор фотографии сотрудника"
.Filters.Add "Все файлы", "*.*"
.Filters.Add "JPEG", "*.jpg"
.Filters.Add "Рисунки", "*.bmp"
.FilterIndex = 3
.AllowMultiSelect = False
.InitialFileName = CurrentProject.path
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
Me![Поле1].Visible = True
Me![Поле1].SetFocus
Me![Поле1].Text = fileName
Me![Имя].SetFocus
Me![Поле1].Visible = False
End If
End With
End Sub

Спасибо.

Уже не надо. Разобрался.

Срочно! НУЖДАЮСЬ В ПРОГРАММЕ ИЛИ КОДЕ В VBA ACCESS
Виртуальная клавиатура
У кого есть, пожал. отзбвитесь!

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

1.Для Word basic. Используя функции Inpput Box и Msg Box решить юбую математическую задачу.

2.Отформатировать несколько абзацев текста.

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

4. Написать процедуру табулированияпростой функции с выводом в Excel
F = sin(x)
x в пределах [-П;+П]
x     F
-3.14 -0.054
-3.13 -0.055

5. Любая Вычислительная задача с элементами форматирования

6. Написать функцию, которая будет создавать дополнительные листы в Excel и на них организовывать вывод

7. В Excel вывести данные и разместить их по определенным ячейкам (Input Box) и вывести в Word.

Заранее спасибо за помощь

2 вопросика по вба и аксесу


1.как сделать что бы высота текстбокса менялась в зависимости от того сколько там текста введено... то есть небыло полосы прокрутки.. и весь текст влазил бы в текст бокс.. и его было видно..
во время предварительного просмотра перед печатью такая функция существует.. но не знаю как в режиме редактирования ее сделать...
была мысль помещать его в метку(label) делать его авторазмер брать оттуда высоту и присваивать высоту текст боксу.

Код: Private Sub label_Click()
Set db = CurrentDb
Dim korr As Recordset
Set korr = db.OpenRecordset("blank")
label.Caption = Recordset.Fields("posled")
End Sub

ап

на sql.ru иди.

а там что? мне на вба надо для аксеса сделать

Подскажите, пожайлуста, чего не хватает у меня в строках. У меня построено длинное выражение в процедуре и нужно перенести строки, т.к. строка имеет ограничение. Поставила в конце строки апострофы, но выделяет все красным цветом.
CurrentDb.Execute "INSERT INTO Начисление2 (КодРаботник, Коэффициент, КолДетей, ФиксЗП, Год, Месяц, Выручка, _
Курс, НеоблагаемаяСумма, СтоимостьТрафика, НеоблагаемаяСуммаД, КодПлан,ОтметкаОРаботе, ОтметкаОбУвольнении, _
ОтметкаОбОтпуске) SELECT Работник.КодРаботник, Работник.Коэффициент, Работник.КолДетей, Работник.ФиксЗП, _
Работник.ОтметкаОРаботе, Работник.ОтметкаОбУвольнении, Работник.ОтметкаОбОтпуске, " & Forms!НачислениеЗарплаты3!Год & " AS Гoд, _
" & Forms!НачислениеЗарплаты3!Месяц & " AS Мeсяц, " & Replace(Forms!НачислениеЗарплаты3!Выручка, ",", ".") & " AS Выручка, _
" & Replace(Forms!НачислениеЗарплаты3!Курс, ",", ".") & " AS Курс, _
" & Replace(Forms!НачислениеЗарплаты3!НеоблагаемаяСумма, ",", ".") & " AS НеоблагаемаяСумма, _
" & Replace(Forms!НачислениеЗарплаты3!СтоимостьТрафика, ",", ".") & " AS СтоимостьТрафика, _
" & Replace(Forms!НачислениеЗарплаты3!НеоблагаемаяСуммаД, ",", ".") & " AS НеоблагаемаяСуммаД, _
" & Forms!НачислениеЗарплаты3!КодПлан & " AS КодПлан " FROM Работник WHERE Работник.ДатаУвольнения Is Null"

"строка" & _
"продолжение строки"

AlexeiKozlov
А можно какой-нибудь небольшой пример наподобие моему, а то не получается, видно опять что-то не так поставила.

длина строки играет роль. нельзя строку любой длины переносить больше,скольки то раз.

Panterann3785
_ и & не должны находиться внутри кавычек
перед _ обязательно пpобел

Здравствуйте. Посдкажите, как справиться со следующей задачей: имеется таблица, содержащая попя в формате OLE Object. Необходимо програмно вставить в соответсвующее поле указанный файл произвольного формата, лежащий на жестком диске. Затем обратная операция - открыть хранящийся в базе файл...

доброго времени суток! Скажите плз как добраться к свойству поля таблицы "тип элемента отображения"....
У меня таблица создается программно. В таблице есть поле типа dbBoolean, но при открытии таблицы это поле отображается как поле а мне нужно сделать программно чтоб он отображался как флажок.... заранее спасибо

Добрый день! Столкнулся с проблемой, но не в книгах не в интеренет ответа найти не смог. Заранее спасибо если подскажете.

Кнопка_Click()

Dim rs AS DAO.Recordset
Dim db AS DataBase
Set db = currentDB
Set rs = db.OpenRecordSet("таблица",dbOpenDynaset)

rs.AddNew
rs!Тип = Тип.Text
..................
rs.Update

rs.Close

[подчиненная форма].Requery

Данные из поля в форме должны добавлятся в таблицу и связанную с ней подчиненную таблицу. Подчиненная таблица отображается в Форме.

Проблема: большая задержка (около 5 секунд) при добавлении данных в первую таблицу поэтому при нажатии на кнопку подчиненная таблица не изменяется, а при повторном нажатии появляются сразу две записи. Есть способы уменьшить задержку перед добавлением записи в таблицу?