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 SubChào bạn, mình áp dụng đoạn code trên vào cmd next có lúc thì sử dụng bình thường nhưng thường là khi ấn cmd next là hiện msgbox thông báo và dừng luôn không chuyển tới record kê tiếp. Mình kiểm tra nhưng ko biết nguyên nhân ở đâu, nhờ bạn trợ giúp...
Xin chào các bạn GPE. Các bạn vui lòng giúp mình tạo cmd Next, Previous và Delete record (form4) dùm mình. Cám ơn các bạn. Chúc các bạn sức khỏe.
(mình post nhầm khu vực rồi, file của mình là xls. Admin vui lòng chuyển dùm mình, thanks)
Private Sub UserForm_Initialize()
CboHoTen.List() = Range(Sheets("DSHS").[B4], Sheets("DSHS").[B65536].End(xlUp)).Resize(, 11).Value
End Sub
''=====================================
Private Sub CboHoTen_Change()
On Error Resume Next
Dim i As Byte
For i = 1 To 10
Controls("TextBox" & i).Value = CboHoTen.Column(i)
Next
End SubPrivate Sub CmdTop_Click()
With CboHoTen
.Value = .List(0)
End With
End Sub
''=====================================
Private Sub CmdPrevious_Click()
Dim LstIndex As Long
With CboHoTen
LstIndex = WorksheetFunction.Max(0, .ListIndex - 1)
.Value = .List(LstIndex)
End With
End Sub
''=====================================
Private Sub CmdNext_Click()
Dim LstIndex As Long, LstCount As Long
With CboHoTen
LstCount = .ListCount - 1
LstIndex = WorksheetFunction.Min(LstCount, .ListIndex + 1)
.Value = .List(LstIndex)
End With
End Sub
''=====================================
Private Sub CmdBottom_Click()
Dim LstCount As Long
With CboHoTen
LstCount = .ListCount - 1
.Value = .List(LstCount)
End With
End SubPrivate Sub CmdDelete_Click()
Dim MyMsg As Long, MyRng As Range
If TextBox10.Value <> vbNullString Then
MyMsg = MsgBox("Ban co chac chan xoa toan bo du lieu cua Ma HS: " & TextBox10, vbQuestion + vbYesNo, "Thông Báo")
If MyMsg = vbYes Then
With Range(Sheets("DSHS").[L4], Sheets("DSHS").[L65536].End(xlUp))
Set MyRng = .Find(TextBox10.Value, LookIn:=xlValues, LookAt:=xlWhole)
End With
If Not MyRng Is Nothing Then MyRng.Offset(, -10).Resize(, 11).Delete 2
CboHoTen.List() = Range(Sheets("DSHS").[B4], Sheets("DSHS").[B65536].End(xlUp)).Resize(, 11).Value
MsgBox "toan bo du lieu cua Ma HS: " & TextBox10 & " da duoc xoa!"
Call CmdClear_Click
End If
End If
End SubPrivate Sub CmdEdit_Click()
Dim MyMsg As Long, MyRng As Range, i As Byte
If TextBox10.Value <> vbNullString Then
MyMsg = MsgBox("Ban co chac chan nhap chinh sua toan bo du lieu cua Ma HS: " & TextBox10, vbQuestion + vbYesNo, "Thông Báo")
If MyMsg = vbYes Then
With Range(Sheets("DSHS").[L4], Sheets("DSHS").[L65536].End(xlUp))
Set MyRng = .Find(TextBox10.Value, LookIn:=xlValues, LookAt:=xlWhole)
End With
If Not MyRng Is Nothing Then
With MyRng
.Offset(, -10) = CboHoTen
For i = 1 To 10
.Offset(, i - 10) = Controls("TextBox" & i).Value
Next
End With
End If
CboHoTen.List() = Range(Sheets("DSHS").[B4], Sheets("DSHS").[B65536].End(xlUp)).Resize(, 11).Value
MsgBox "toan bo du lieu cua Ma HS: " & TextBox10 & " da duoc chinh sua!"
Call CmdClear_Click
End If
End If
End SubPrivate Sub UserForm_Initialize()
CboHoTen.List() = Range(Sheets("DSHS").[B4], Sheets("DSHS").[B65536].End(xlUp)).Resize(, 11).Value
End SubPrivate Sub UserForm_Initialize()
CboHoTen.List() = Range(Sheets("DSHS").[B4], Sheets("DSHS").[B65536].End(xlUp)).Resize(, 11).Value
[COLOR=#ff0000][B]CboHoTen = CboHoTen.List(0)[/B][/COLOR]
End Sub
