Help плиз! Нужно перевести текст в программу!!!

[XzB]

Доброго всем времени суток!
Очень прошу помощи, дабы Сам в программировании никак, вообще никак... :nea
В общем и целом, проблема заключается в следующем! Нужна дипломная, нашел скачал, дипломная на Тему АИС... Все хорошо, вот только в этой скаченной дипломке нет программного продукта, в самом тексте есть текст самой программы, а готового продукта нет! :shok Саму работу скачал отсюда - http://revolution.allbest.ru/programming/00010799.html Сам же текст выглядит, так:
Текст программы

Private Sub Form_Load()

End Sub
'------------------------------------------------------------
' Кнопка1_Click
'
'------------------------------------------------------------
Private Sub Кнопка1_Click()
On Error GoTo Кнопка1_Click_Err

DoCmd.OpenForm "Запросы", acNormal, "", "", , acNormal


Кнопка1_Click_Exit:
Exit Sub

Кнопка1_Click_Err:
MsgBox Error$
Resume Кнопка1_Click_Exit

End Sub


'------------------------------------------------------------
' Кнопка3_Click
'
'------------------------------------------------------------
Private Sub Кнопка3_Click()
On Error GoTo Кнопка3_Click_Err

DoCmd.OpenForm "Отчеты", acNormal, "", "", , acNormal


Кнопка3_Click_Exit:
Exit Sub

Кнопка3_Click_Err:
MsgBox Error$
Resume Кнопка3_Click_Exit

End Sub


'------------------------------------------------------------
' Кнопка5_Click
'
'------------------------------------------------------------
Private Sub Кнопка5_Click()
On Error GoTo Кнопка5_Click_Err

DoCmd.OpenForm "ВВод и редактирование", acNormal, "", "", , acNormal


Кнопка5_Click_Exit:
Exit Sub

Кнопка5_Click_Err:
MsgBox Error$
Resume Кнопка5_Click_Exit

End Sub


'------------------------------------------------------------
' Кнопка7_Click
'
'------------------------------------------------------------
Private Sub Кнопка7_Click()
On Error GoTo Кнопка7_Click_Err

DoCmd.Quit acExit


Кнопка7_Click_Exit:
Exit Sub

Кнопка7_Click_Err:
MsgBox Error$
Resume Кнопка7_Click_Exit

End Sub


'------------------------------------------------------------
' Кнопка9_Click
'
'------------------------------------------------------------
Private Sub Кнопка9_Click()
On Error GoTo Кнопка9_Click_Err

DoCmd.Close acForm, "ГЛАВНАЯ"


Кнопка9_Click_Exit:
Exit Sub

Кнопка9_Click_Err:
MsgBox Error$
Resume Кнопка9_Click_Exit

End Sub


Ввод и редактирование данных

Private Sub Form_Load()

End Sub
'------------------------------------------------------------
' Кнопка1_Click
'
'------------------------------------------------------------
Private Sub Кнопка1_Click()
On Error GoTo Кнопка1_Click_Err

DoCmd.OpenForm "Запросы", acNormal, "", "", , acNormal


Кнопка1_Click_Exit:
Exit Sub

Кнопка1_Click_Err:
MsgBox Error$
Resume Кнопка1_Click_Exit

End Sub


'------------------------------------------------------------
' Кнопка3_Click
'
'------------------------------------------------------------
Private Sub Кнопка3_Click()
On Error GoTo Кнопка3_Click_Err

DoCmd.OpenForm "Отчеты", acNormal, "", "", , acNormal


Кнопка3_Click_Exit:
Exit Sub

Кнопка3_Click_Err:
MsgBox Error$
Resume Кнопка3_Click_Exit

End Sub


'------------------------------------------------------------
' Кнопка5_Click
'
'------------------------------------------------------------
Private Sub Кнопка5_Click()
On Error GoTo Кнопка5_Click_Err

DoCmd.OpenForm "ВВод и редактирование", acNormal, "", "", , acNormal


Кнопка5_Click_Exit:
Exit Sub

Кнопка5_Click_Err:
MsgBox Error$
Resume Кнопка5_Click_Exit

End Sub


'------------------------------------------------------------
' Кнопка7_Click
'
'------------------------------------------------------------
Private Sub Кнопка7_Click()
On Error GoTo Кнопка7_Click_Err

DoCmd.Quit acExit


Кнопка7_Click_Exit:
Exit Sub

Кнопка7_Click_Err:
MsgBox Error$
Resume Кнопка7_Click_Exit

End Sub


'------------------------------------------------------------
' Кнопка9_Click
'
'------------------------------------------------------------
Private Sub Кнопка9_Click()
On Error GoTo Кнопка9_Click_Err

DoCmd.Close acForm, "ГЛАВНАЯ"


Кнопка9_Click_Exit:
Exit Sub

Кнопка9_Click_Err:
MsgBox Error$
Resume Кнопка9_Click_Exit

End Sub



все делалось в Microsoft Office Access, прошу помощи в виде конечной программы, т.е. самого файла софтины! ash1

[XzB]

Т.к. количество символов(макс. 5000) не позволяет уместить текст проги в одном посте, то не судите строго, вот вторая часть, т.е. продолжение....
ЗАСТАВКА


Private Sub Кнопка2_Click()
On Error GoTo Err_Кнопка2_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = ChrW(1055) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1072) & ChrW(1074) & ChrW(1097) & ChrW(1080) & ChrW(1082) & ChrW(1080)
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка2_Click:
Exit Sub

Err_Кнопка2_Click:
MsgBox Err.Description
Resume Exit_Кнопка2_Click

End Sub
Private Sub Кнопка3_Click()
On Error GoTo Err_Кнопка3_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = ChrW(1057) & ChrW(1076) & ChrW(1077) & ChrW(1083) & ChrW(1082) & ChrW(1080)
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка3_Click:
Exit Sub

Err_Кнопка3_Click:
MsgBox Err.Description
Resume Exit_Кнопка3_Click

End Sub
Private Sub Кнопка12_Click()
On Error GoTo Err_Кнопка12_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = ChrW(1047) & ChrW(1072) & ChrW(1082) & ChrW(1091) & ChrW(1087) & ChrW(1082) & ChrW(1080)
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка12_Click:
Exit Sub

Err_Кнопка12_Click:
MsgBox Err.Description
Resume Exit_Кнопка12_Click

End Sub
Private Sub Кнопка13_Click()
On Error GoTo Err_Кнопка13_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = ChrW(1050) & ChrW(1086) & ChrW(1084) & ChrW(1087) & ChrW(1087) & ChrW(1083) & ChrW(1077) & ChrW(1082) & ChrW(1090) & ChrW(1091) & ChrW(1102) & ChrW(1097) & ChrW(1080) & ChrW(1077)
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка13_Click:
Exit Sub

Err_Кнопка13_Click:
MsgBox Err.Description
Resume Exit_Кнопка13_Click

End Sub
Private Sub Кнопка22_Click()
On Error GoTo Err_Кнопка22_Click

Dim stDocName As String

stDocName = ChrW(1050) & ChrW(1086) & ChrW(1084) & ChrW(1087) & ChrW(1087) & ChrW(1083) & ChrW(1077) & ChrW(1082) & ChrW(1090) & ChrW(1091) & ChrW(1102) & ChrW(1097) & ChrW(1080) & ChrW(1077)
DoCmd.OpenReport stDocName, acPreview

Exit_Кнопка22_Click:
Exit Sub

Err_Кнопка22_Click:
MsgBox Err.Description
Resume Exit_Кнопка22_Click

End Sub
Private Sub Кнопка26_Click()
On Error GoTo Err_Кнопка26_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = ChrW(1042) & ChrW(1099) & ChrW(1095) & ChrW(1080) & ChrW(1089) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1077)
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка26_Click:
Exit Sub

Err_Кнопка26_Click:
MsgBox Err.Description
Resume Exit_Кнопка26_Click

End Sub
Private Sub Кнопка28_Click()
On Error GoTo Err_Кнопка28_Click


DoCmd.Close

Exit_Кнопка28_Click:
Exit Sub

Err_Кнопка28_Click:
MsgBox Err.Description
Resume Exit_Кнопка28_Click

End Sub
Private Sub Кнопка33_Click()
On Error GoTo Err_Кнопка33_Click

Dim stDocName As String

stDocName = ChrW(1052) & ChrW(1072) & ChrW(1082) & ChrW(1088) & ChrW(1086) & ChrW(1089) & ChrW(49)
DoCmd.RunMacro stDocName

Exit_Кнопка33_Click:
Exit Sub

Err_Кнопка33_Click:
MsgBox Err.Description
Resume Exit_Кнопка33_Click

End Sub