Tùy chọn
Điều khiển con trỏ tới vị trí vừa Update
- Điều khiển con trỏ tới vị trí vừa Update
-
Điều khiển con trỏ tới vị trí vừa Update
Minh Tiên > 02-12-12, 05:17 PM
Nhờ các Anh chị trong diễn đàn giúp làm cách nào để điều khiển dấu nháy con trỏ đến Record vừa cập nhật trong Form ?
Ví dụ tôi có: 2textbox: stt và ten và nút lưu:
stt ten
1 a
2 b
3 c
Khi chọn sửa dòng 2 từ b thành d và nhấn Lưu thì: Sau khi lưu xong, cập nhật, con trỏ tự động trả về vị trí vừa sửa là vị trí d ở dòng 2.
Thanks! -
RE: Điều khiển con trỏ tới vị trí vừa Update
Minh Tiên > 02-01-13, 04:52 PM
(02-12-12, 05:17 PM)tmtien261 Đã viết: Nhờ các Anh chị trong diễn đàn giúp làm cách nào để điều khiển dấu nháy con trỏ đến Record vừa cập nhật trong Form ?
Ví dụ tôi có: 2textbox: stt và ten và nút lưu:
stt ten
1 a
2 b
3 c
Khi chọn sửa dòng 2 từ b thành d và nhấn Lưu thì: Sau khi lưu xong, cập nhật, con trỏ tự động trả về vị trí vừa sửa là vị trí d ở dòng 2.
Thanks!
Sao không Pro nào giúp với nhỉ ? Nếu đã có chủ đề rồi thì xin các pro cho xin Link để tmtien261 nghiên cứu. Cảm ơn nhiều ! -
RE: Điều khiển con trỏ tới vị trí vừa Update
cpucloi > 03-01-13, 06:50 PM
Post file lên bạn
-
RE: Điều khiển con trỏ tới vị trí vừa Update
Minh Tiên > 04-01-13, 11:48 AM
(03-01-13, 06:50 PM)cpucloi Đã viết: Post file lên bạn
Nhờ "cpucloi" chỉ giùm đoạn code nhé.
Đề bài: Khi sửa số điện thoại của Nguyễn Văn B ở dòng số 2. Bấm nút lưu thì sau khi thông báo lưu xong, con trỏ trả về Record số điện thoại vừa sửa hoặc trả về dòng số 2 vừa sửa.
Tương tự nếu sửa các record (dòng) nào bất kỳ thì sau khi lưu con trỏ đều trả về đúng vị trí vừa sửa.
File đính kèm -
RE: Điều khiển con trỏ tới vị trí vừa Update
cpucloi > 05-01-13, 10:12 PM
Chuyển về acc2k3 đi bạn -
RE: Điều khiển con trỏ tới vị trí vừa Update
quanghoasla > 06-01-13, 12:17 AM
cái này có khó gì đâu. bạn sử dụng lệnh [boxtextư.setforcus là được mà. ví dụ: MANV.SetFocus thì con trỏ sẽ tự nhẩy về vị trí Mã nhân viên [MANV] -
RE: Điều khiển con trỏ tới vị trí vừa Update
Minh Tiên > 06-01-13, 11:22 AM
(06-01-13, 12:17 AM)quanghoasla Đã viết: cái này có khó gì đâu. bạn sử dụng lệnh [boxtextư.setforcus là được mà. ví dụ: MANV.SetFocus thì con trỏ sẽ tự nhẩy về vị trí Mã nhân viên [MANV]
Cảm ơn bạn đã trả lời. Nhưng câu trả lời của bạn chưa đúng với ý mình. Mình sử dụng phương thức Unbonnd để nhập, sửa thông tin. Khi sửa xong lưu thì cập nhật vào form detail. Mình muốn sau khi lưu con trỏ sẽ trả về ngay record vừa sửa trong form detail chứ không phải text Unbound.
Mình đã chuyển sang Access 2003 và gửi file đính kèm. Nhờ các Pro chỉ giúp. Cảm ơn nhiều.
Download file -
RE: Điều khiển con trỏ tới vị trí vừa Update
quanghoasla > 08-01-13, 11:37 AM
(06-01-13, 11:22 AM)tmtien261 Đã viết:
(06-01-13, 12:17 AM)quanghoasla Đã viết: cái này có khó gì đâu. bạn sử dụng lệnh [boxtextư.setforcus là được mà. ví dụ: MANV.SetFocus thì con trỏ sẽ tự nhẩy về vị trí Mã nhân viên [MANV]
Cảm ơn bạn đã trả lời. Nhưng câu trả lời của bạn chưa đúng với ý mình. Mình sử dụng phương thức Unbonnd để nhập, sửa thông tin. Khi sửa xong lưu thì cập nhật vào form detail. Mình muốn sau khi lưu con trỏ sẽ trả về ngay record vừa sửa trong form detail chứ không phải text Unbound.
Mình đã chuyển sang Access 2003 và gửi file đính kèm. Nhờ các Pro chỉ giúp. Cảm ơn nhiều.
Download file
cái này mình đã hướng dẫn bạn rồi còn gì. dù là text hay unbound đều được cả. chỉ cần bạn khai đúng name của nó là được mà. bây giờ bạn chỉ thêm cái đoạn code sau vào cuối dòng của sự kiện
Private Sub Luu_Click()
Dim AckTime As Integer, InfoBox As Object
Dim DB As Database
Dim RS As Recordset
Set DB = CurrentDb
Set RS = DB.OpenRecordset("tblDanhsachnhanvien", dbOpenTable)
If IsNull(Me.lid) Or Me.lid.Value = "" Or IsNull(Me.lhoten) Or Me.lhoten.Value = "" Or IsNull(Me.lfone) Or Me.lfone.Value = "" Then
Set InfoBox = CreateObject("WScript.Shell")
AckTime = 1
Select Case InfoBox.PopUp(DLookup("[MsgDes]", "tblMsgbox", "[MsgID] = 1"), AckTime, "Thông báo", 0)
Case 1, -1
End Select
Me.lhoten.SetFocus
Exit Sub
Else
RS.Index = "Primarykey"
RS.Seek "=", Me.lid
If RS.NoMatch Then
RS.AddNew
RS.Fields(0) = Me.lid
RS.Fields(1) = Me.lhoten
RS.Fields(2) = Me.lfone
RS.Update
DoCmd.OpenForm "frmMsgbox", acNormal, , , , acDialog
Else
RS.Edit
RS!ID = Me.lid.Value
RS!hoten = Me.lhoten.Value
RS!fone = Me.lfone.Value
RS.Update
DoCmd.OpenForm "frmMsgbox", acNormal, , , , acDialog
End If
RS.Close
Set DB = Nothing
End If
DoCmd.Requery
Them.Enabled = True
Them.SetFocus
Sua.Enabled = True
Luu.Enabled = False
Huy.Enabled = False
Thoat.Enabled = True
Xoa.Enabled = True
Call Cleartextbox
Call Locktextbox
Call UnLocktxt
DoCmd.GoToRecord , , acLast
hoten.SetFocus
End Sub
hoten.SetFocus là cái giá trị cần thêm vào code lưu của bạn. Mình test chạy ngon 100% rồi.
Nhớ nhấn nút thank cho nhau một cái nhé.
-
RE: Điều khiển con trỏ tới vị trí vừa Update
quanghoasla > 08-01-13, 11:40 AM
(06-01-13, 11:22 AM)tmtien261 Đã viết:
cái này mình đã hướng dẫn bạn rồi còn gì. dù là text hay unbound đều được cả. chỉ cần bạn khai đúng name của nó là được mà. bây giờ bạn chỉ thêm cái đoạn code sau vào cuối dòng của sự kiện(06-01-13, 12:17 AM)quanghoasla Đã viết: cái này có khó gì đâu. bạn sử dụng lệnh [boxtextư.setforcus là được mà. ví dụ: MANV.SetFocus thì con trỏ sẽ tự nhẩy về vị trí Mã nhân viên [MANV]
Cảm ơn bạn đã trả lời. Nhưng câu trả lời của bạn chưa đúng với ý mình. Mình sử dụng phương thức Unbonnd để nhập, sửa thông tin. Khi sửa xong lưu thì cập nhật vào form detail. Mình muốn sau khi lưu con trỏ sẽ trả về ngay record vừa sửa trong form detail chứ không phải text Unbound.
Mình đã chuyển sang Access 2003 và gửi file đính kèm. Nhờ các Pro chỉ giúp. Cảm ơn nhiều.
Download file
Private Sub Luu_Click()
Dim AckTime As Integer, InfoBox As Object
Dim DB As Database
Dim RS As Recordset
Set DB = CurrentDb
Set RS = DB.OpenRecordset("tblDanhsachnhanvien", dbOpenTable)
If IsNull(Me.lid) Or Me.lid.Value = "" Or IsNull(Me.lhoten) Or Me.lhoten.Value = "" Or IsNull(Me.lfone) Or Me.lfone.Value = "" Then
Set InfoBox = CreateObject("WScript.Shell")
AckTime = 1
Select Case InfoBox.PopUp(DLookup("[MsgDes]", "tblMsgbox", "[MsgID] = 1"), AckTime, "Thông báo", 0)
Case 1, -1
End Select
Me.lhoten.SetFocus
Exit Sub
Else
RS.Index = "Primarykey"
RS.Seek "=", Me.lid
If RS.NoMatch Then
RS.AddNew
RS.Fields(0) = Me.lid
RS.Fields(1) = Me.lhoten
RS.Fields(2) = Me.lfone
RS.Update
DoCmd.OpenForm "frmMsgbox", acNormal, , , , acDialog
Else
RS.Edit
RS!ID = Me.lid.Value
RS!hoten = Me.lhoten.Value
RS!fone = Me.lfone.Value
RS.Update
DoCmd.OpenForm "frmMsgbox", acNormal, , , , acDialog
End If
RS.Close
Set DB = Nothing
End If
DoCmd.Requery
Them.Enabled = True
Them.SetFocus
Sua.Enabled = True
Luu.Enabled = False
Huy.Enabled = False
Thoat.Enabled = True
Xoa.Enabled = True
Call Cleartextbox
Call Locktextbox
Call UnLocktxt
DoCmd.GoToRecord , , acLast
hoten.SetFocus
End Sub
hoten.SetFocus là cái giá trị cần thêm vào code lưu của bạn. Mình test chạy ngon 100% rồi.
đây là demo đã chỉnh sửa cho bạn
Nhớ nhấn nút thank cho nhau một cái nhé.
-
RE: Điều khiển con trỏ tới vị trí vừa Update
Minh Tiên > 08-01-13, 05:59 PM
Cảm ơn quanghoasla ! Nhưng code đâu có chạy theo "Đề bài".
Trong demo của bạn, khi chọn một dòng nào đó, bấm "Nút sửa", sửa nội dung, sau đó bấm "Nút lưu" thì dữ liệu sửa được lưu đúng vào dòng đã sửa nhưng con trỏ lại trả về "Dòng cuối cùng" mà !
Mình là muốn: Nếu sửa ở dòng thứ 3 thì khi lưu con trỏ trả về dòng 3, sửa dòng 4 thì khi lưu con trỏ trả về dòng 4 đó !