Курсовая работа: Компьютерная подготовка

Fam AsString

Im AsString

Ot AsString

street AsString

no AsString

Flat AsString

Phone As Long

EndType

PublicFunction dbFileName() AsString

dbFileName = ThisWorkbook.Path + "\phones.db"

EndFunction

Sub ToolbarExitButton()

If ThisWorkbook.ActiveSheet.Name = "Старт"Then

ExitProject

Else

ThisWorkbook.Worksheets("Старт").Visible = True' спрятатьстартовыйлист

ThisWorkbook.Worksheets("Старт").Activate ' сделатьактивнымлистсБД

ThisWorkbook.Worksheets("Базаданных").Visible = False' показатьбазуданных

EndIf

EndSub

Sub ExitProject()

ThisWorkbook.Saved = True

If Application.Workbooks.count = 1Then

Application.Quit 'завершитьработу Excel

Else

ThisWorkbook.Close'завершить работу проекта

EndIf

EndSub

Sub dbRead()