|
****** ��â�Ѻ
Record � Form ���������͡� Combo/List ********
㹺ҧ������ҵ�ͧ������ Record � form ������� Record
���������͡� Combo/List ���ͨ��繤�Ҩҡ Input Box ����
����ö����ء�� ��Ѻ�Ըչ���� 㹷�����
���ص���Ҩ����� Record ������������ ID ������Ҩҡ������͡�
ComboBox �¨��觤���ҷ������ ��������� FindID ���Ǥ������º�Ѻ
ID ���� Form
****** CODE **********
Dim FindID As
Integer
FindID = Combo1.Value
Me.RecordsetClone.FindFirst "[ID] = " & FindID
Me.Bookmark = Me.RecordsetClone.Bookmark
********** ��ǹ����ҧ Code ��� ������ Event ������ҹ��
*********
|
