*** ����͡�����ͧ���ºǡ, ź ���ǵ�ͧ�������鹷������, Ŵ ***

㹺ҧ Program User ����ö��Ѻ�ѹ�������¡�á�����ͧ���� + ���� -

� Access ������ö�����·�� ��Ҥس�� TextBox ��� Bound (�Դ���) �Ѻ Field ����� Type Ẻ Date/Time ������ Format �� Date ( ��Ѻ �ѹ��������з���ش ) ��� TextBox ���ꡢ�����¡ Property ���͡ Tab Event �������͡ Event Keypress �ҡ�����¹ Code �����ҧ��ҧ���

**************** Code ****************

Select Case KeyAscii
     Case 43 ' Key +
               KeyAscii = 0
               Screen.ActiveControl = Screen.ActiveControl + 1
     Case 45 ' Key -
               KeyAscii = 0
               Screen.ActiveControl = Screen.ActiveControl - 1
End Select

********** ��ҹ������ͤس�� + �ѹ��������� ��� - �ѹ�����Ŵ���ѵ��ѵ� **************