một số nút lệnh

Moät Soá Ví Duï Veà Caùch Söû Duïng Nuùt Leänh

Nuùt LeänhÑaàu -Tröôùc- Sau –Cuoái

Tröôùc heát veõ Command Button

1/ Nuùt veà Ñaàu -Tröôùc

1.1/ Thöïc hieän leänh khoâng kieåm tra :

Private Sub Cmdvedau (Cmdvetruoc )_Click()

DoCmd.GoToRecord , , acFirst

{Di chuyeån maãu tin veà ñaàu }

Hoaëc

DoCmd.GoToRecord , , acPrevious

{Di chuyeån maãu tin veà Tröôùc }

End Sub

1.2/Thöïc hieän leänh coù kieåm tra :

Private Sub Cmdvedau(Cmdvetruoc )_Click()

MAPHIEU.SetFocus

{ Ñoái töôïng .Setfocus }

If Me.CurrentRecord > 1 Then

{Neáu maãu tin hieän taïi >1 thì }

DoCmd.GoToRecord , , acFirst

{Di chuyeån maãu tin veà ñaàu }

Hoaëc

DoCmd.GoToRecord , , ac Previous

{Di chuyeån maãu tin veà Tröôùc }

Else {Ngöôïc laïi laø Loi khi di chuyen }

MsgBox "Ban dang o record dau tien ",vbYesNo + vbQuestion, "H_T thong bao"

{Msgbox “Loãi thoâng baùo ”,Nuùt leänh , “chuoåi laøm tieâu ñeà hoäp thoaïi ” }

End If

End Sub

1.3/Thöïc hieän leänh coù kieåm tra vaø coù xöû lyù baåy loãi giaû ñeå khoâng hieän thoâng baùo

sau khi vöôït qua Recordset

Private Sub CMDvedau (Cmdvetruoc)_Click()

{ Private Sub Tenthutuc ()

On Error GoTo VD

| On error goto . . . Mhaõn |

Daõy keát thuùc

{ Ñoái töôïng .Setfocus }

If Me.CurrentRecord > 1 Then

{Neáu maãu tin hieän taïi >1 thì }

DoCmd.GoToRecord , , acFirst