Event On Enter pada Subform Access

Pada Subform Access anda dapat menemukan event On Enter. Event On Enter pada Subform terjadi ketika kursor masuk ke dalam subform, baik dengan mengklik mouse pada subform atau pun ketika kursor berpindah dengan menekan tombol enter atau tombol tab.

Jika ada field yang harus diisi pada form parent sebelum user masuk ke subform, event on enter dapat dimanfaatkan untuk memeriksa dan mengendalikan agar user tidak dapat masuk ke subform sebelum field yang dimaksud diisi.

Misalnya pada form PO_Header dan PO_Detail. PO_Header adalah form parent dan PO_Detail adalah subform. Pada PO_Header ada text box PO_Number dan text box PO_Number harus diisi sebelum user masuk ke subform, maka code program pada event on enter adalah:

Private Sub PO_Detail_Subform_Enter()
If IsNull(Me.PO_Number) Or Trim(Me.PO_Number)="" then
  Me.PO_Number.SetFocus
Endif
End Sub

Pada kode program di atas kita mencegah user untuk masuk ke dalam subform dan memaksa kursor untuk kembali ke text box PO_Number jika PO_Number masih kosong.

Artikel terkait dengan kategori ini: