Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Điều khiển con trỏ tới vị trí vừa Update
#11
Bạn cho mình hỏi có phải ý bạn muốn chắc chắn rằng mẩu tin muốn sửa là chắc chắn chứ không phải sửa sai đúng không? nếu đúng là như thế mình có 1 cách khác hay nữa. nếu đúng như vậy mình sẽ gửi demo bạn tham khảo.
Chữ ký của quanghoasla Hãy chia sẻ kinh nghiệm cùng mình trênThuThuatAccess nhé! Chúc vui vẻ rose
My site: My site hoặc My site
ღღღღღTài sản của quanghoasla (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#12
(Nút Lưu) bạn chỉ cần bỏ 2 dòng và thêm 1 dòng như sau là OK:

'DoCmd.Requery (bỏ)
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
hoten.SetFocus ' (thêm vào)
'DoCmd.GoToRecord , , acLast (bỏ)
Chữ ký của TvAcc Xin chào, mình là TvAcc, Tham gia http://thuthuataccess.com/forum từ ngày 06-01 -13.
Reply
Những người đã cảm ơn
#13
Cái của TVAC mới chỉ giải quyết được vấn đề chỉnh sửa thôi. thì bắt con trỏ chỉ vào dòng mới Sửa. còn nếu thêm nhân viên thì không cập nhập được danh sách mới và không trỏ đến tên nhân viên mới cập nhập. Dưới đây quanghoasla có một cách nữa bắt lỗi triệt để hơn và cho dù bạn [Thêm] hay [sửa] thì việc bắt con trỏ chỉ vào đúng giá trị cần thêm và giá trị vừa sửa vẫn đáp ứng được nhu cầu cập nhập danh sách động không cần phải nhấp [cập nhập]. ở đây mình tạo thêm 1 combo đồng ý: Thêm/ chinh sửa. thì mới cho nút lệnh có tác dụng và mới có quyền thêm, sửa. bạn tham khảo thêm nhé.
DEMO END
Chữ ký của quanghoasla Hãy chia sẻ kinh nghiệm cùng mình trênThuThuatAccess nhé! Chúc vui vẻ rose
My site: My site hoặc My site
ღღღღღTài sản của quanghoasla (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#14
Bạn ấy ghi như vầy:

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 đó !

Nghĩa là bạn ấy chỉ muốn sửa và lưu thôi, như vậy đúng ý bạn ấy rồi còn gì.
Chữ ký của TvAcc Xin chào, mình là TvAcc, Tham gia http://thuthuataccess.com/forum từ ngày 06-01 -13.
Reply
Những người đã cảm ơn
#15
Bạn tmtien261 muốn con trỏ tới vị trí thêm hoặc sửa như ý bạn quanghoasla thì làm như sau (tận dụng thiết kế form và code của bạn):

1. Khai thêm 1 biến tại phần Option Compare Database
Dim ThemHaySua As String
2. Tại code nút Sửa
Private Sub Sua_Click()
ThemHaySua = "Sua"
3. Tại code nút Thêm
Private Sub Them_Click()
ThemHaySua = "Them"
4. Tại code nút Lưu
...
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
' chỗ này để bẫy lỗi nút Thêm hay Sửa
If ThemHaySua = "Them" Then
DoCmd.Requery
DoCmd.GoToRecord , , acLast
hoten.SetFocus
Else
hoten.SetFocus
End If
Chữ ký của TvAcc Xin chào, mình là TvAcc, Tham gia http://thuthuataccess.com/forum từ ngày 06-01 -13.
Reply
Những người đã cảm ơn Minh Tiên
#16
hiiiiii cái đó quanghoasla làm rồi mà bạn. nhưng cũng rất vui có bạn [b]TvAcc[/b] nhiệt tình với forum.
Chữ ký của quanghoasla Hãy chia sẻ kinh nghiệm cùng mình trênThuThuatAccess nhé! Chúc vui vẻ rose
My site: My site hoặc My site
ღღღღღTài sản của quanghoasla (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Minh Tiên
#17
Cảm ơn quanghoasla và TvAcc nhiều ! Mình tìm nút cảm ơn nhưng không thấy ! Sẽ nhấn bù lần sau. Haha !
Mình đã tìm ra cái sai của mình rồi.
Thực ra d mình dùng lệnh: DoCmd.Requery sau khi lưu nội dung sửa nên không thể điều khiển về vị trí vừa Update được.
Mình đã chính sửa hoàn chỉnh rồi !
Xin gửi lại demo đã chỉnh sửa, mong giúp ích cho các bạn !
Demo
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn
#18
Còn tình huống này nữa các Acc ơi ! Acc nào xử lý Ok rồi chỉ giúp với.
Cũng đưa con trỏ về vị trí vừa Nhập liệu, nhưng tình huống thế này:
1.Mình có một form nhập liệu gồm các field: Ho (Xếp theo Alpha Beta) và tên và đã nhập:
Họ Tên
A 1
C 1
D 1
Khi mình nhập thêm: Họ B, tên 1 thì làm sao điều khiển con trỏ sau khi nhập xong về ngày vị trí B. (Vị trí B sẽ chèn vào giữa dòng A và D).
Cảm ơn các Acc nhiều !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn
#19
- Lại gửi file như lần trước lên đi.
Chữ ký của TvAcc Xin chào, mình là TvAcc, Tham gia http://thuthuataccess.com/forum từ ngày 06-01 -13.
Reply
Những người đã cảm ơn
#20
Mình đã tìm ra cách để đưa con trỏ về vị trí và thao tác rồi !
Mình dùng đoạn code sau (Tìm trên diễn đàn):

Dim rst As Recordset
Set rst = Me.RecordsetClone
rst.FindFirst "[Hoten] = '" & Me![lhoten] & "'"
If Not rst.EOF Then Me.Bookmark = rst.Bookmark
Cảm ơn các Pro và Acc đã chia sẽ !

Xin chia sẽ cho các Acc có nhu cầu như mình:
FileDemo
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn maidinhdan


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Lọc có điều kiện ở listbox phiacuoiconduong 2 96 18-11-16, 06:40 PM
Bài mới nhất: ongke0711
  Lọc theo điều kiện trong listbox Ranju 3 183 06-10-16, 05:26 PM
Bài mới nhất: Ranju
  Thay đổi màu nền các dòng theo điều kiện trên form Continuous tranthanhan1962 9 1,701 27-09-16, 11:01 PM
Bài mới nhất: ongke0711
  Không cho phép điều chỉnh kích thước của Form ChiMai 1 129 18-09-16, 01:27 PM
Bài mới nhất: ongke0711
  [Hỏi] Cách hiện các record trong combo box theo điều kiện toancvp 5 335 02-07-16, 12:21 AM
Bài mới nhất: toancvp

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ