یک فرم با نام FrmHomeView ایجاد کنید و خاصیت MDIChild آن را True کنید. تنظیمات دیگر را مطابق سلیقه ی خود پیاده سازی کنید. یک شئ از عنصر DataGrid بر روی فرم قرار دهید و خاصیت DataBaseName آن را برابر مسیر بانک اطلاعاتی Bank.MDB (که قبلا ایجاد کردیم) قرار بدهید. خاصیت RecordSource آن را Hejare قرار دهید و در نهایت خاصیت Visible آن را False کنید.به تعداد فیلدهای جدول Hejare بر روی فرم جعبه متن (TextBox) قرار دهید.خاصیت DataSource همه جعبه متن ها را Data1 قرار دهید و خاصیت DataField هر جعبه متن را به طور جداگانه برابر نام فیلدهای جدول Hejare کنید.در ضمن خاصیت Locked همه ی جعبه متن ها را برابر True قرار دهید تا مقدار آن توسط کاربر قابل تغییر نباشد.

4 دکمه برای پیمایش جدول و نمایش داده ها بر روی فرم قرار دهید.

دکمه ی اول:

می خواهیم وقتی روی این دکمه کلیک شد به اولین رکورد جدول مراجعه کنیم.بر روی دکمه دوبار کلیک کنید و کد زیر را در آن قرار دهید:

Data1.Recordset.MoveFirst

سؤال: چرا وقتی رویداد MoveFirst عنصر Data1 فراخوانی می شود (مثل دستور قبل) محتوای همه ی جعبه متن ها تغییر می کند؟؟

جواب ساده است؛ چون تمامی جعبه متن ها با Data1 ارتباط دارند.

______________________________________________________________

دکمه ی دوم:

این دکمه در هر بار کلیک یک رکورد به عقب بازمی گردد.

نکته: اگر در اولین رکورد باشیم و روی این دکمه کلیک کنیم خطا رخ می دهد.این به این دلیل است که قبل از اولین رکورد ؛ رکوردی وجود ندارد و پیغام خطا می دهد. با استفاده از رویداد BOF (Begin Of File) می توانیم چک کنیم که آیا در ابتدای رکورد هستیم یا نه؟؟؟

اگر در ابتدای رکورد بودیم و روی دکمه کلیک شد آنگاه MoveFirst کند.

Data1.Recordset.MovePrevious

If Data1.Recordset.BOF = True Then

                  Data1.Recordset.MoveFirst    

End If

اگر می خواهید قضیه را متوجه شوید فقط سطر اول را بنویسید و امتحان کنید.

______________________________________________________________

دکمه ی سوم: جهت Forward رکوردست.

Data1.Recordset.MoveNext

If Data1.Recordset.EOF = True Then

               Data1.Recordset.MoveLast

End If

______________________________________________________________

دکمه ی چهارم :

 Data1.Recordset.MoveLast 

پیروز و سربلند باشد