Управление базами данных Access на VBA - eDrive
Управление базами данных Access на VBA - eDrive
Управление базами данных Access на VBA - eDrive
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
27<br />
поле.FontName = "Times New Roman Cyr"<br />
поле.Enabled = False<br />
DoCmd.Save acForm, "Клиенты"<br />
DoCmd.OpenForm "Клиенты"<br />
End Sub<br />
Sub Надпись<strong>Access</strong> ()<br />
Set форма = Forms![Сотрудники]<br />
With форма<br />
.[ОкладНадпись].Caption = "Должность"<br />
.Controls![ОкладНадпись].FontName = "Arial Cyr"<br />
.Оклад.SetFocus<br />
.Оклад.Requery<br />
.Дата.Enabled = False<br />
End With<br />
End Sub<br />
Sub Form_Current ()<br />
текст = Me![Поле1] Like "К*"<br />
If текст Then MsgBox "Кузнецов!" Else MsgBox "Не он"<br />
End Sub<br />
Sub Кнопка_ Click ()<br />
On Error GoTo сообщение<br />
Err.Clear<br />
With Me<br />
!Премия.SetFocus<br />
память = !Премия.Text<br />
!Оклад.SetFocus<br />
!Оклад.Text = Val (!Оклад.Text) + Val (память)<br />
.Refresh<br />
End With<br />
Exit Sub<br />
сообщение:<br />
MsgBox "Ошибка номер " & Err<br />
End Sub<br />
Sub КнопкаОшибки_Click ()<br />
On Error GoTo сообщение<br />
Err.Clear<br />
число = InputBox ("Введите число")<br />
сумма = 50 / число<br />
Me!Оклад.SetFocus<br />
Me!Оклад.Text = сумма<br />
Me.Refresh<br />
Exit Sub<br />
сообщение:<br />
плохо = "Ошибка № " & Str (Err.Number) & " возникла в " _<br />
& Err.Source & Chr (13) & Err.Description