Private Sub cmdNext_Click()
If CurrentRecord > RecordsetClone.RecordCount Then
MsgBox "Khong the di chuyen duoc nua"
cmdNext.Enabled = False
Exit Sub
Else
DoCmd.GoToRecord , , acNext
cmdNext.Enabled = True
End If
End SubPrivate Sub Form_Current()
If CurrentRecord < RecordsetClone.RecordCount Then
cmdNext.Enabled = True
End If
End SubThì bạn tùy biến mà chỉnh sửa và sử dụng theo ý muốn của mình, nếu bạn muốn thế thì thay cái dấu > thành >= là được.
Chưa hiểu hết ý của bạn, có phải ý của bạn là đánh dấu cái record nào đó bạn muốn để khi thêm cái record mới thì nó tự thêm vào ?
Chép code sau vào module:ko phải bạn ah, chắc tại mình ko rành nên diễn đạt hơi khó hiểu và dùng từ ko chính xác.
Ý mình là ntn, mình muốn tạo 1 form trong đó có 1 combo box chứa các tên nhân viên , mình muốn tạo 1 cmd button để khi click vào đó thì ct sẽ chọn tên ng mình chọn làm mặc định. nếu add thêm record mới thì mặc định sẽ là tên ng mình chọn.
Không bít có dễ hỉu hơn chút nào ko
Option Compare Database
Option Explicit
Public Function acbCarry(frm As Form, ctl As Control)
Dim ctlData As Control
Const acbcQuote = """"
Set ctlData = frm(ctl.Tag)
ctlData.DefaultValue = _
acbcQuote & ctl.Value & acbcQuote
End FunctionTương tự như trường hợp trên nhưng là thanh cuộn trên chuột thì thêm code ntn vậy bạn, vì phím cuộn trên chuột cũng có tác dụng như 2 cmd next và last
Thì cũng thế thôi, thêm cái Else vào current form là được
Private Sub Form_Current()
If CurrentRecord < RecordsetClone.RecordCount Then
cmdNext.Enabled = True
Else
cmdNext.Enabled = False
End If
End SubMÌnh thường không online Yahoo, vấn đề của bạn đã được giải quyết chưa?
Chào bạn
Public str As StringPrivate Sub Command3_Click()
str = txtMaCN
End Sub
Private Sub Form_Load()
str = ""
End SubPrivate Sub Command6_Click()
On Error GoTo Err_Command6_Click
DoCmd.GoToRecord , , acNewRec
[B][COLOR=#0000cd]MaCN = str[/COLOR][/B]
Exit_Command6_Click:
Exit Sub
Err_Command6_Click:
MsgBox Err.Description
Resume Exit_Command6_Click
End Sub
