widgets

Sabtu, 27 Juli 2013

Pindah Record Menggunakan Tombol Panah Bawah dan Atas

Pada form dengan mode default view Datasheet, tombol panah ke bawah (down) akan memindahkan record aktif ke record berikutnya (next record) dan tombol panah atas akan memindahkan record aktif ke data sebelumnya (previous record).

Berbeda dengan form default view Continues Form maka secara default tombol panah ke bawah (down) tidak akan memindahkan record aktif ke record berikutnya. Juga tombol panah ke atas (up) tidak akan memindahkan record aktif ke record sebelumnya.

Jika anda ingin mem-fungsikan tombol panah atas dan panah bawah untuk memindahkan record pada form dengan mode Continues Form, maka anda harus menambahkan script Visual Basic khusus untuk melakukan hal ini.

Buat form baru dengan default view Continues Form dan set record source ke tabel data pada file Access anda.


Aktifkan event On Key Down pada form properties dan ketikkan code program berikut ini:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo ErrHandler

Select Case KeyCode
Case vbKeyDown
  DoCmd.GoToRecord Record:=acNext
  KeyCode = 0
Case vbKeyUp
  DoCmd.GoToRecord Record:=acPrevious
  KeyCode = 0
Case Else
  ' Do nothing
End Select

Keluar:
Exit Sub

ErrHandler:
If Err.Number = 2105 Then
  KeyCode = 0
  DoCmd.Beep
Else
  MsgBox Err.Description
End If
Resume Keluar

End Sub

Pada script program ini diatur jika user menekan tombol panah bawah atau pada code Visual Basic menggunakan konstanta vbKeyDown dan tombol panah atas atau vbKeyUp, maka script yang dijalankan adalah
DoCmd.GoToRecord Record:=acNext

'dan

DoCmd.GoToRecord Record:=acPrevious
Jangan lupa anda juga harus men-set Key Preview pada form Properties menjadi Yes.

Tidak ada komentar:

Posting Komentar