(06-05-13, 09:22 PM)maixuanthu Đã viết: Em muốn tạo các command là các nút ĐẦU, TRƯỚC, CUỐI, SAU, THÊM, SỬA, XÓA để điều khiển các mẫu tin trong form. Ở trong form thì có sẵn chế độ wizard nhưng em muốn làm bằng code. Có ai biết xin chỉ giáo giùm em. Em cảm ơn rất nhiều!!



Mã:
Private Sub Cuoi_Click()
On Error GoTo Err_Cuoi_Click
If cmt = sophieunhap Then
MsgBox "day la phieu nhap cuoi cung, khong di chuyen nua!", vbExclamation + vbDefaultButton1, "chu y"
Else
DoCmd.GoToRecord , , acLast
End If
Exit_Cuoi_Click:
Exit Sub
Err_Cuoi_Click:
MsgBox Err.Description
Resume Exit_Cuoi_Click
End Sub
Mã:
Private Sub Dau_Click()
On Error GoTo Err_Dau_Click
If dmt = sophieunhap Then
MsgBox "day la phieu nhap dau tien, khong di chuyen nua !", vbExclamation + vbDefaultButton1, "chu y"
Else
End If
DoCmd.GoToRecord , , acFirst
Exit_Dau_Click:
Exit Sub
Err_Dau_Click:
MsgBox Err.Description
Resume Exit_Dau_Click
End Sub
Mã:
Private Sub Sau_Click()
On Error GoTo Err_Sau_Click
If cmt = sophieunhap Then
MsgBox "day la phieu nhap cuoi cung, khong di chuyen nua !", vbExclamation + vbDefaultButton1, "chu y"
Else
DoCmd.GoToRecord , , acNext
End If
Exit_Sau_Click:
Exit Sub
Err_Sau_Click:
MsgBox Err.Description
Resume Exit_Sau_Click
End Sub
Mã:
Private Sub Truoc_Click()
On Error GoTo Err_Truoc_Click
If dmt = sophieunhap Then
MsgBox "ban dang o phieu nhap dau tien, khong di chuyen nua!", vbExclamation + vbDefaultButton1, "chu y"
Else
DoCmd.GoToRecord , , acPrevious
End If
Exit_Truoc_Click:
Exit Sub
Err_Truoc_Click:
MsgBox Err.Description
Resume Exit_Truoc_Click
End Sub