» Access VBA

lmnik


Цитата:

В MS Accesse создал форму для заполнения данных. Данные разбиты по регионам. Есть выпадающее поле со списком регионов. Как можно сделать чтобы при выборе региона форма "переходила" на соответствующую запись т.е. остальные поля обновлялись вместе с полем "регионы"?

фильтровать может быть?

Как мне отпрравить почту с пристёгнутым файлом?

zzzzz
из акцесса?

Народ! Подскажите каким образом можно снять пароль VBA. Пробовал кучу софта, типа "Advanced VBA Password Recovery", ничего не помагает! Заранее спасибо!

Вопрос. Имеется некоторая таблица. Я точно знаю что в ней есть поля Поле1, Поле2, Поле3. Кроме них может быть ещё любое кол-во мне неизвестных полей. Но мне нужно в форме организовать редактирование/добавление записей. Т.е. мне нужно в форме ввести все данные, хотя я не знаю, сколько их Подскажите кто-нибудь, а то мне в голову ничего не приходит. Это вообще возможно?

gorthaur
Get the Names of All Non-System Tables in an Access Database
Extract field names from a table/query ADO/DAO

Спасибо!

Ещё проблема. Вызываю из формы модальную через DoCmd.OpenForm, оно появляется, родительское "сереет", все нормально. Но код в родительском продолжает выполнятся! А можно как то его остановить до закрытия модального?

Добавлено:
Нашел в интернете забавное решение

While SysCmd(acSysCmdGetObjectState, acForm, _
"My Form Name") = acObjStateOpen
DoEvents 'Do Nothing Wait for Closing
Wend

gorthaur
[more=Temporarily open a form as a dialog box]Create a macro (macro: An action or set of actions that you can use to automate tasks.) or event procedure (event procedure: A procedure that is automatically executed in response to an event initiated by the user or program code, or that is triggered by the system.) that uses an OpenForm action to open the form.
Set the Window Mode argument of the OpenForm action to Dialog (acDIALOG for an event procedure).
When you open a form that has its Window Mode argument set to Dialog, Microsoft Access sets the form's PopUp and Modal properties to Yes until the form is closed.

Note Setting the Window Mode argument to Dialog disables user-defined key combinations and some other Microsoft Access function keys, and suspends the macro or event procedure until you close or hide the form. You can hide a form by setting its Visible property to No using the SetValue action.[/more]
Examples of Microsoft Access data-entry forms, switchboards, and dialog boxes

gorthaur
кажется, что оно всё таки не модальное, раз код выполняется...

пробуй вызвать
DoCmd.OpenForm "formname", WindowMode := acDialog

Здравствуйте, уважаемые коллеционеры знаний!
Задача. В Excel решаю ее за пять минут, в Access парюсь уже второй день.
Допустим, имеется таблица с одним текстовым полем.
Есть форма с текстовым полем и кнопкой.
Как сделать: я ввожу в текстовое поле на форме число Х и при нажатии кнопки в таблицу добавлялось Х записей? Не копировалось из другой таблицы, как это делается при выполнении запроса на добавление, а именно добавлялось Х? Причем хотим еще присваивать полю какое-нибудь значение.
Примерно догадываюсь, как сделать в среде разработки, скажем VB.net: Делаем цикл на Х и в тело цикла вставляем запрос на добавление одной записи в подключенной к SQL server нашей базе с таблицей.
Но как это в Access сделать? Может есть способ сделать такой запрос? Подскажите, как.

Domivan
Dim rcdTable as Recodset
затем
Set rcdTable = CurrentDB.OpenRecordset( параметры всякие )
и в цикле что то вроде
rcdTable.AddNew
rcdTable![FieldName] = "string"
rcdTable.Update

Как в перекрестном запросе сделать, чтобы считалось количество и пустых полей таблицы?

Vitus_Bering
Что значит пустых? Все поля в рекорде не могут быть пустыми. В частном случае:
Select [FieldName] FROM [Table] Where [FieldName] = NULL

dneprcomp
В таблице, кроме полей со значениями есть поля NULL, нужно, чтобы в перекрестном запросе также считалось кол-во (Count) полей со значением NULL.
По умолчанию подсчитывается кол-во полей, у которых значение Not Null.

Vitus_Bering
Показал бы свой запрос. Легче было бы понять.

dneprcomp
Спасибо за участие, вопрос снят.

Ludi cheloveki, mnogouvagaemie ludi razberaushiesia i ne razberaushiesia v acsese pls, pomogite
Mne nugna takai vesh shtoi spiski polei naprimer, u mkenia tri kategorii, sviazaniie megdu soboi, na forme, pri vibore pervoi kategorii naprimer, musika on vidaval vtoroi spisok znachenii tam sub kategoria tipo rok dgaz, i t d i t p i pri nagatii roka on vidaval spisok musiki roka

CrackN

Объяснение проблемы весьма расплывчато, но если я правильно понял, то решение приблизительно такое:


Код:
Private Sub cbx_cat1_AfterUpdate()
Me.cbx_cat2.RowSource = "select cat2_id, cat2_name from t_cat2 where id_cat1=" & me.cbx_cat1 & " order by cat_name"
End Sub

Private Sub cbx_cat2_AfterUpdate()
Me.cbx_cat3.RowSource = "select cat3_id, cat3_name from t_cat3 where id_cat2=" & me.cbx_cat2 & " order by cat_name"
End Sub

У меня есть таблица в Access с 71 строкой, мне надо создать 71 документ word. Как это возможно сделать

StanislavG

Ну каков вопрос таков и ответ... Запустить Wоrd и 71 раз выполнить Файл->Создать...

А в это время читаем о CreateComObject...

Сжалюсь. Пример функции для создания экселевского объекта. Действуй по аналогии...

Код:
Private Function CreateXlObject(sXltFileName As String) As Object
Dim xl As Object
Set xl = CreateObject("Excel.Application")
xl.Application.EnableEvents = False

If (sXltFileName = "") Then
xl.Workbooks.Add
Else
xl.Workbooks.Add (sXltFileName)
End If

Set CreateXlObject = xl
End Function

Проблема такова.
На форме есть элемент управления Label или TextBox
Элемент связан с полем таблицы 1 и отображает текущую запись соответственно.
Но как сделать, чтобы отображалась не сама запись, а связанная с другой таблицей 2?
Поясню.
Таблица "Заказы" содержит поле "КодЗаказа"(ключевое), "КодЗаказчика", "ДатаПоступления". Таблица "Заказчики" содержит поле "КодЗаказчика" (ключевое) и поле "ИмяЗаказчика".
Таблицы связаны отношением один ко многим по полю "КодЗаказчика"
Форма "Заказы" содержит Label-ы "КодЗаказа","КодЗаказчика","ДатаПоступления"
Label-ы связаны с источником данных ADODC, подключенным к базе данных.
Как сделать так, чтобы в Label "КодЗаказчика" выводилась запись "ИмяЗаказчика"?

Domivan

Можно установить в качестве источника записей для формы запрос с джоином...


Код:
select * from [Заказы] as z inner join [Заказчики] as zz on z.[КодЗаказчика] = zz.КодЗаказчика]

Спасибо, сделал так, все работает.

Народ подскажите чайнику в Аксесе

есть файл dbf
нужно вытащить данные и посчитать, рассортировать и тд.
поставил сабж и пытаюсь решить след:
есть три поля: А, В, С (из них А, В - текстовые, С - числовое)
А - наименование, допустим - чайники
В - поднаименование, со свистком, с ручкой, с розочкой и тд
С - кол-во чайников например со свистком
Нужно:
посчитать сколько всего сортов чайника
сколько всего чайников одного типа
сколько чайников всего.

Начал вроде бодро
Открыл отчеты
сортирую по А, потом по В, потом посчитал сумму С
не могу посчитать/вывести сколько полей В, поле текстовое. Хелпа нет.
Получается такая таблица:
Чайники - -
со свистком - 2
со свистком - 1
со свистком - 3
всего = 6

с розочкой - 5
с розочкой - 4
всего = 9

А как сделать такой вид

Чайники - -
со свистком = 3
всего =6
с розочкой = 2
всего =9

[b]bama[/b]
Сделай групповой запрос, в режиме SQL будет выглядеть так:

Select [a], [b], Count([c])
From [MyDBFtable]
Group By [a], [b]
Order By [a], [b];

Результатом запроса будет таблица с итогами по количеству в группах:
А В С
Чайники с розочкой 6
Чайники со свистком 9
Сковорода с ручкой 5
Сковорода с тёщей 13

А по нему и строй отчёт

предлагаю работу, ЗА ДЕНЬГИ
нужно написать пргу в Accesse (да не важно в чём, главное что бы база велась), техзадание можно скачать тут http://www.adios.spb.ru/soft/tech_task.rar
програмер должен быть из Питера, по всем вопросам обращаться ко мне на трубку +7 (921) 750-53-78 или на gyurza2000[собачка]mail.ru, или можно тут писать. Вы мне сообщаете можете или нет это задание реализовать и Вашу цену. Я передаю вашу цену директору и он решает, работаем мы дальше или нет

Цитата:

Select [a], [b], Count([c])
From [MyDBFtable]
Group By [a], [b]
Order By [a], [b];

Разобрался...
получилось не совсем так:
SELECT DISTINCTROW zak.LPU, zak.NAMEMED, Sum(zak.KOL) AS [Sum-KOL], Count(*) AS [Count-zak]
FROM zak
GROUP BY zak.LPU, zak.NAMEMED;
Может кому поможет...

gyurza2000 перескажи сюда, http://forum.ru-board.com/topic.cgi?forum=33&bm=1&topic=2395&start=220#lt будет надёжней

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