Интернет-журнал "Домашняя лаборатория", 2007 №4 - Тен
���������: Private Sub Data1 Error (DataErr As Integer, Response As Integer)
�������� DataErr �������� ��� ������. ��������� �������� �������� ����� ������������� ������ ������������ ���������� Response, � ��������� � ��������� �������:
���������� ∙ �������� ∙ ��������
vbDataErrContinue ∙ 0 ∙ ����� ������������� ������ ���������� ���������� �����������.
vbDataErrDisplay ∙ 1∙ ����� ������������� ������ ���������� ���������� ���� � ��������������� ����������. ���� ������� �������� ���������� �� ���������.
1.��������� ����� ������ � �������� �������� DatabaseName ������� ���������� ������� Data1 �� �: BIBLIO.MDB.
2.���������� ������ � ���������, ��� �� ������ ���������� ��������� �� ������.
3.��������� � ��������� ��������� ������� Error ��������� ��������:
Private Sub Data1_Error(DataErr As Integer, Response As Integer)
Response = vbDataErrContinue
End Sub
4.���������� ����������. � ���� ������ ��������� �� ������ �� ���������.
� Reposition
������� Reposition ����������, ����� ������ � ������ ������� ���������� �������.
���������: Private Sub Data1 Reposition ().
����� �������� ������� Data � �������� ���������������� ������ �������, ������ ������ � ������ ���������� ������� � ���������� ������� Reposition. ��� ������� ����� ����������, ����� ������������ �������� ������ �� ������� Data ��� ����������� �� ������ �������, � ����� ��� ������������� ������� Move ��� Find. ������ ������, ���������� ����� �������, ��� ������� ���������� ��������� ��������� ������� ������, �������� ������� Reposition.
� ������� �� ������� Validate, ������� ���������� ����� ���������� ������� ������, ������� Reposition ������ ���������� ����� ����, ��� ��������� ������ ����� �������.
� Validate
������� Validate ���������� ����� ���������� ��������� ������� ������, � ��� �� ����� ����������� ������� Update (�� ����������� ������, ����� ������ ����������� � ������� ������ UpdateRecord), Delete, Unload, ��� Close.
���������: Private Sub Data1 Validate (Action As Integer, Save As Integer)
�������� Save ���������� ��������� ��������� ��������� ����������. ���� �������� Save ���������� � True, �� ���������� ��������� ��������� ���������� ���� ��������. ���� �� �������� Save ���������� � False, �� ������� ��������� � ��������� ��������� ���������� �� ���������.
�������� Action ���������� ��������, ������� ������� ������� Validate. ��������� �������� ����� ��������� � �� ������� �������� ��������� � ��������� �������.
���������� ∙ �������� ∙ ��������
vbDataActionCancel ∙ 0 ∙ �������� �������� ��� ������ �� ��������� ��������� �������.
vbDataActionMoveFirst ∙ 1 ∙������� ������ �������� � ������ ������ �� ������� Data ��� �������� ����� MoveFirst ������� Recordset.
vbDataActionMovePrevious ∙ 2 ∙ ������ ������ �������� � ���������� ������ �� ������� Data ��� �������� ����� MovePrevious ������� Recordset.
vbDataActionMoveNext ∙ 3 ∙ ������ ������ �������� � ��������� ������ �� ������� Data ��� �������� ����� MoveNext ������� Recordset.
vbDataActionMoveLast ∙ 4 ∙ ������ ������ �������� � ��������� ������ �� ������� Data ��� �������� ����� MoveLast ������� Recordset.
vbDataActionAddNew ∙ 5 ∙ �������� ����� AddNew ������� Recordset ��� ��������� ������� ������ ��������� �� ����� ����� ��� ������������� �������� EOFAction ������� Data � AddNew.
vbDataActionUpdate ∙ 6 ∙ �������� ����� Update ������� Recordset (�� �� UpdateRecord ������� Data).
vbDataActionDelete ∙ 7 ∙ �������� ����� Delete ������� Recordset.
vbDataAction ∙ 8 ∙ �������� ���� �� ������� Find ������� Recordset.
vbDataActionBookmark ∙ 9 ∙ �������� �������� Bookmark ������� Recordset.
vbDataActionClose ∙ 10 ∙ �������� ����� Close ������� Recordset.
vbDataActionUnload ∙ 11 ∙ ��������� �������� �����, ���������� ������ ���������� �������.
� ��������� ��������� ������� Validate ����� �������� ��������, ��������� ��� �������, �� ������ �������� ��� ������ ��������� �������� Action ��������������� �������. ��� ���� ���������� �������� ����� ������ ����� �� ������� Move �� ����� AddNew � �������. ������ ������ �������� ������������ ���������� ��������� Action � 0 (Action = vbDataActionCancel).
�������� ��������� ������� Validate ����� ����� � ��� ������������� ����� �������, ����������� ���������� ������ UpdateControls. ������ ������, ������ ������ UpdateControls ��� ������ ����������� ��������������, �� ������ ������������ ��������� ��������� Action � vbDataActionC ancel:
Private Sub Data1_Validate(Action As Integer, Save As Integer) If Save=False Then Exit Sub End If
If MsgBox("Coxpa���� ��������� ���������",vbYesNo,"","",0)=vbNo Then
Action=vbDataActionCancel
Exit Sub
End If
End Sub
���� 5
������� ���������� Data � ������� ������� � ������
������������� ������� ���������� ������� ��������� ������ ��������� ������� ���������� ��� ������ � ������ ������ ����������� ��� ��������� ����, ������ ��� ������ ��������������� ��������� ��� ������� � ���������� ��� �������. ��� ����������� ���������� �� �������� ����� ������������ ��������� �������� ����������. ������, ��� ��������� ���������������� ���������������� ���������� ���, ������