Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21

  myRecord.Phone = row.Cells(, 7).Value

  getRecord = myRecord

End Function

Sub putRecord(row As Range, myRecord As Record)

  row.Cells(, 1).Value = myRecord.Fam

  row.Cells(, 2).Value = myRecord.Im

  row.Cells(, 3).Value = myRecord.Ot

  row.Cells(, 4).Value = myRecord.street

  row.Cells(, 5).Value = myRecord.no

  row.Cells(, 6).Value = myRecord.Flat

  row.Cells(, 7).Value = myRecord.Phone

End Sub

Sub showTools()

  Application.CommandBars("Phones").Enabled = True

  Application.CommandBars("Phones").Visible = True

End Sub

Sub hideTools()

  Application.CommandBars("Phones").Visible = False

  Application.CommandBars("Phones").Enabled = False

End Sub

Скачали данный реферат: Хамидуллин, Геронтий, Громов, Berezin, Феликс, Лещенко, Анастасий.
Последние просмотренные рефераты на тему: конспект по русскому, антикризисное управление, доклад по обж, банк дипломных работ.



Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21

Поделитесь этой записью или добавьте в закладки