فصل ۱۰ — Bound Column، Quick Find و فهرست خودارجاع

ComboBox چندستونه می‌تواند متن خوانا نشان دهد ولی Value واقعی را در Column دیگری نگه دارد. Bound Column Value ذخیره‌شده را تعیین می‌کند و Column Width صفر می‌تواند ID را از کاربر مخفی کند.

Customer Lookup

Query نمونه Column اول SortName، Column دوم Email و Column سوم CustID دارد. CustID Bound Column است و عرض آن صفر؛ بنابراین کاربر Name/Email را می‌بیند اما Form عدد CustID را ذخیره می‌کند.

Quick Find

Private Sub QuickFind_AfterUpdate()
   Dim MyRecSet As Object
   Set MyRecSet = Me.Recordset.Clone
   MyRecSet.FindFirst "[CustID] = " & Me![QuickFind]
   Me.Bookmark = MyRecSet.Bookmark
End Sub

Clone در پشت صحنه Search را انجام می‌دهد و Bookmark Form را به Record پیدا‌شده منتقل می‌کند.

City خودارجاع

Query از نوع Unique Values می‌تواند تمام Cityهای یکتای موجود را Row Source ComboBox کند. پس از افزودن Record جدید، یک Requery کوتاه فهرست را تازه می‌کند.

Private Sub Form_AfterInsert()
   Me![City].Requery
End Sub

شکل‌ها و عناصر بصری این بخش