NganNguyen > 17-09-15, 12:08 AM
Option Compare Database
Private Sub cmdcuoi_Click()
If CurrentRecord = Recordset.RecordCount Then
MASV.SetFocus
cmdcuoi.Enabled = False
cmdsau.Enabled = False
Else
cmdtruoc.Enabled = True
cmddau.Enabled = True
DoCmd.GoToRecord , , acLast
End If
End Sub
Private Sub CmdDau_Click()
If CurrentRecord = 1 Then
MASV.SetFocus
cmddau.Enabled = False
cmdtruoc.Enabled = False
Else
cmddau.Enabled = True
cmdsau.Enabled = True
cmdcuoi.Enabled = True
cmdsau.Enabled = True
DoCmd.GoToRecord , , acFirst
End If
End Sub
Private Sub cmdsau_Click()
If CurrentRecord = Recordset.RecordCount Then
MASV.SetFocus
cmdcuoi.Enabled = False
cmdsau.Enabled = False
Else
cmdtruoc.Enabled = True
cmddau.Enabled = True
DoCmd.GoToRecord , , acNext
End If
End Sub
Private Sub cmdtruoc_Click()
If CurrentRecord = 1 Then
MASV.SetFocus
cmdtruoc.Enabled = False
cmddau.Enabled = False
Else
cmdsau.Enabled = True
cmdcuoi.Enabled = True
DoCmd.GoToRecord , , acPrevious
End If
End Sub
Private Sub Form_Open(Cancel As Integer)
cmddau.Enabled = False
cmdtruoc.Enabled = False
cmdsau.Enabled = True
cmdcuoi.Enabled = True
End Sub
NganNguyen > 17-09-15, 12:16 AM
tranthanhan1962 > 17-09-15, 12:33 AM
(17-09-15, 12:16 AM)NganNguyen Đã viết: Nút sáng mờ: khi mình mở Form thì nút trước và đầu tắt, nút sau cuối sáng: cái này em làm được.
Nhưng khi chuyển về cuối mẩu tin thì nút cuối và sau chưa mờ, mà mình click chuột vào 1 thì nút này mới mờ, cái này em sửa không được.
Tương tự: click về đầu thì đầu, trước chưa mờ, mình phải click thêm cái nữa thì mới mờ )
Private Sub Form_Current()
Select Case CurrentRecord
Case 1
cmddau.Enabled = False
cmdtruoc.Enabled = False
cmdsau.Enabled = True
cmdcuoi.Enabled = True
Case Recordset.RecordCount
cmddau.Enabled = True
cmdtruoc.Enabled = True
cmdsau.Enabled = False
cmdcuoi.Enabled = False
Case Else
cmddau.Enabled = True
cmdtruoc.Enabled = True
cmdsau.Enabled = True
cmdcuoi.Enabled = True
End Select
End Sub
NganNguyen > 17-09-15, 10:50 AM
tranthanhan1962 > 17-09-15, 10:02 PM
(17-09-15, 10:50 AM)NganNguyen Đã viết: - còn câu 2 làm về macro, mấy bác cho em ý kiến luôn nhé. Em làm nó gắn vào form thì rất ok nhưng chỉ chạy macro thôi thì chưa nghĩ ra :3Macro trong MS Access là tập hợp các lệnh (Hành động) được định sẵn nhằm tự động thực hiện chuỗi các tác vụ nào đó mà không cần sự can thiệp từng bước của người sử dụng. Vì vậy nếu bạn không đưa database lên thì gíúp bạn bằng cách nào đây"? lệnh phát xuất từ đâu? command click? form? table tên gì? tìm trên field nào?....Nói chung code đôi khi có thể viết chay được còn macro là phải cụ thể.