Управление базами данных Access на VBA - eDrive
Управление базами данных Access на VBA - eDrive
Управление базами данных Access на VBA - eDrive
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
30<br />
Set Forms ("фILM_Test").Recordset = rstDBF<br />
End Sub<br />
Function ВыборФайла () As String<br />
Select Case Forms ("фILM_Test").Группа10<br />
Case 1:<br />
ВыборФайла = "ILMTest1"<br />
Forms ("фILM_Test").Caption = "ILMTest1"<br />
Case 2:<br />
ВыборФайла = "ILMTest2"<br />
Forms ("фILM_Test").Caption = "ILMTest2"<br />
Case 3: ВыборФайла = "ILMTest3"<br />
Forms ("фILM_Test").Caption = "ILMTest3"<br />
End Select<br />
End Function<br />
Function ДобавитьУдалить () As String<br />
With rstDBF<br />
.AddNew<br />
.Fields ("КОГДА") = #1/31/2003#<br />
.Fields ("ОТДЕЛ") = 15<br />
.AddNew<br />
.Fields ("КОГДА") = "31.1.03"<br />
.Fields ("ОТДЕЛ") = 15<br />
.MoveFirst<br />
Do While Not .EOF<br />
myField = .Fields ("КОГДА")<br />
If DateDiff ("yyyy", myField, Date) > 60 Then<br />
.Delete<br />
cnt = cnt + 1<br />
End If<br />
.MoveNext<br />
Loop<br />
End With<br />
AddDelete = "Выполнено " & cnt & " удалений"<br />
End Function<br />
Sub ЗапросSQL ()<br />
DoCmd.OpenForm "Сотрудники"<br />
DoCmd.RunSQL “UPDATE Сотрудники SET Родился = #01/12/02#” _<br />
& “WHERE Номер = 28”<br />
DoCmd.RunSQL “DELETE FROM Сотрудники WHERE Родился = #01/12/02#”<br />
DoCmd.RunSQL “INSERT INTO Сотрудники (ФИО, Родился, Должность)” _<br />
& “VALUES (‘Кто-то’, #01/12/12#, ‘Дилер’)”<br />
DoCmd.Requery<br />
End Sub<br />
Sub ПеренумероватьЗаписи ()<br />
DoCmd.RunSQL "ALTER TABLE Сотрудники DROP COLUMN z"<br />
DoCmd.RunSQL "ALTER TABLE Сотрудники ADD COLUMN z COUNTER"