АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

Dim basa As Database, nabor As Recordset, поля As Field, имена As String

Читайте также:
  1. Dim basa as Database, nabor as Recordset
  2. Dim basa As Database, zapros As QueryDef, s As String
  3. Dim basa As Database, zapros As QueryDef, s As String, bucva As String
  4. ВЯЖУЩИЕ СРЕДСТВА (ADSTRINGENTIA)
  5. Глава 1. Обо всех именах превосходного свойства базовой опоры
  6. Глава XI. О Божественных именах, их силе и достоинствах
  7. Глава XII. О влиянии, которое божественные имена через всех посредников оказывают на подчиненные вещи
  8. Глава XVI. О разумах и духах, и об их трех видах, и их различных именах, и об инфернальных и подземных духах
  9. Имена полководцев в правильной последовательности
  10. Имена связей
  11. Имена файлов

Set basa = CurrentDb

Set nabor = basa.OpenRecordset("Товары1", dbOpenSnapshot)

For Each поля In nabor.Fields

имена = имена & поля.name & vbCr

Next

MsgBox имена

Результат:

 

Применение свойства AbsolutePosition

Объекта Recordset

 

Пример

Определить номер текущей записи в наборе данных,

открытым для таблицы “Товары”.

Dim basa As Database, nabor As Recordset

Set basa = CurrentDb

Set nabor = basa.OpenRecordset("Товары1", dbOpenSnapshot)

nabor.Move 2 ‘указатель записи смещаем на 2 позиции

MsgBox nabor.AbsolutePosition ‘вывод номера текущей записи

 
 


 

Результат:

 

 

Применение методов Find

 

Пример

Найти первую запись в наборе данных, удовлетворяющих условию:

Цена=100 руб. из таблицы «Товары».

 

Таблица выглядит следующим образом:

 

 


1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 |


Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.014 сек.)