LEADERSOFT.ru Разработка на заказ программ и сайтов
Форумы по информационным технологиям
 
Регистрация  |  Вход
left
Форумы Минимизировать
ПоискСписок форумов
  Программирование  Microsoft Access. Файлы mdb и accdb  Вопрос по форма...
 Вопрос по формам
 
 09.02.2009 15:08:43
Azeck
2 сообщения


Вопрос по формам
Добрый день!
Возник вопрос.
Есть таблица, к ней создана форма с 2мя вкладками: 1.Обзор 2. Редактирование
Суть вопроса:
Как с вкладки обзоры при клике на строку сделать так что бы данные появлялись на 2ой вкладке в полях?
 10.02.2009 10:09:38
Admin1
731 сообщения
1-ый


Re: Вопрос по формам

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

 10.02.2009 14:53:13
Azeck
2 сообщения


Re: Вопрос по формам
Ну можно так, мне нужно через код
[code]Private Sub lSummary_DblClick(Cancel As Integer)

Dim strSQL, test As String
Dim i As Integer

strSQL = _
"SELECT InvNum,OldInvNum,Device,Model,SN,BE,TelNum , LastEmployee, Employee, Status , Category, CPU, Memory, HDD, OS, CdRom, Dvd, DVDRW, WirelessKbMs, Modernisation," + _
"DateUpgrade , SumMod, DateCh, DateEndingExpl, DateBeginingExpl FROM R_Inventory where ID = " '+ Me.lSummary.Recordset.Fields("Id").Value
i = Me.lSummary.Column(1)[/code]
никак не могу понять как поставить фокус через recordset, так мне сказало мое руководство сделать.
 10.02.2009 15:47:59
Admin1
731 сообщения
1-ый


Re: Вопрос по формам
 Измененный Admin1  на 10.02.2009 15:49:01)

Код перегружен ссылками на recordset, ищете проще решение. Например, есть текущее событие записи, запишите ID в глобальную переменную и далее используйте значение в SQL запросе на вкладке.

 23.02.2009 19:33:25
bopoha
9 сообщения


Re: Вопрос по формам
Чтобы выбрать значение в списке или поле со списком по значению кодового поля необходимо, чтобы кодовое поле было присоединенным столбцом (его можно скрыть) и атрибут Данные должен быть пустым, если не нужно.

В этом случае будет работать следующий код:
Me.P_SPISOK.Value = kod

Если у вас не поле списка, а подчиненная форма, то тогда работает этот вариант:
Dim rst As DAO.Recordset

Set rst = Me.RecordsetClone
rst.FindFirst imPlPk & " = " & lK_PK
If Not rst.NoMatch Then
Me.Bookmark = rst.Bookmark
End If
rst.Close

admin, использование глобальных переменных дурной тон! Этот метот уменьшает сопровождаемость ПО.
  Программирование  Microsoft Access. Файлы mdb и accdb  Вопрос по форма...
ПоискПоиск  Список форумовСписок форумов  
right