Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Phương thức findfirst
#11
Vấn đề này cũng không phức tạp lắm, ta làm như sau:
1-Dùng một biến lưu lại ID Trước khi requery
2-Requery
3-Tìm đến record có ID đã lưu Trước khi requery

Mã:
Private Sub cmdRefresh_Click()
   Dim lngID As Long
   lngID = Nz(Me.txtID.Value, 0)
   Me.Requery
   Me.lstTest.Requery
   If lngID <> 0 Then
       If FindRec(Me, "[ID] = " & lngID) = -1 Then
           Call FindRec(Me.lstTest, "[ID] = " & lngID)
       End If
   End If
End Sub
Chữ ký của MTNQ Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn mrsiro
#12
Code của event dbclick muốn chuyển sang cho click thì có phải chỉnh sửa gì không bạn, mình copy sang event click thì code ko chạy
Chữ ký của mrsiro Xin chào, mình là mrsiro, Tham gia http://thuthuataccess.com/forum từ ngày 05-12 -14.
Reply
Những người đã cảm ơn
#13
Bạn bỏ cái điều kiện if đi:

Mã:
Call FindRec(Me, "[ID] = " & Me.lstTest.Value)
Chữ ký của MTNQ Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn mrsiro
#14
thay listbox bằng subfrom dạng datashet hoặc continous thì code sao bạn.
Chữ ký của mrsiro Xin chào, mình là mrsiro, Tham gia http://thuthuataccess.com/forum từ ngày 05-12 -14.
Reply
Những người đã cảm ơn
#15
(02-05-18, 11:33 PM)mrsiro Đã viết: thay listbox bằng subfrom dạng datashet hoặc continous thì code sao bạn.

Đơn giản là dòng lệnh nào có list box thì thay bằng cái subform  thui:
VD:
 
Mã:
Call FindRec(Me.frmDanhSach_sub.Form, "[ID] = " & Nz(Me.txtID.Value, 0))

File này MTNQ sửa thêm chút:
http://www.mediafire.com/file/igf5dctbnt...ecord2.rar
Chữ ký của MTNQ Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn mrsiro
#16
(04-05-18, 04:46 PM)MTNQ Đã viết: File này MTNQ sửa thêm chút:
http://www.mediafire.com/file/igf5dctbnt...ecord2.rar

Demo mới này có 1 điểm rất khó chịu là khi click vào textbox ở subform thì chuyển focus về mainform cụ thể là nút thêm mới. Lúc này nếu mình dùng nút lăn chuột để kéo trong subform không được nữa. Muốn dùng được trong subform thì phải ấn vào label hoặc thanh kéo 1 lần rồi mới sử dụng lăn chuột được, còn nếu ấn vào 2 ô textbox ở dưới thì bị chuyển ngay focus về nút thêm mới trên mainform, lăn chuột lại không có tác dụng. Cái này có thể sửa được không bạn.
Chữ ký của mrsiro Xin chào, mình là mrsiro, Tham gia http://thuthuataccess.com/forum từ ngày 05-12 -14.
Reply
Những người đã cảm ơn
#17
Bạn tải lại nhé:
http://www.mediafire.com/file/igf5dctbnt...ecord2.rar
Chữ ký của MTNQ Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn mrsiro
#18
(07-05-18, 10:02 AM)MTNQ Đã viết: Bạn tải lại nhé:
http://www.mediafire.com/file/igf5dctbnt...ecord2.rar
Thêm vấn đề này nữa, ở demo với subform thì có tình trạng như sau: Ví dụ subform hiển thị được 5 record từ 10 đến 15, đang focus vào record số 13, nếu ấn nút làm tươi focus vẫn ở record 13 (ok quá good), nhưng trên subform lại trả record 13 này về đầu subform ( tức là lúc này subform hiển thị thay vì record 10 đến 15 như cũ thì chuyển thành hiển thị 13 đến 18). Để test được việc này thì làm như sau, trên subform trong demo hiển thị được 7 record, nếu đang ở 7 record đầu thì ấn làm tươi không bị tình trạng trên, bạn kéo subform cho nó tới 20 tới 27 chẳng hạn thì ấn làm tươi sẽ bị.

Mình test demo với listbox thì ok, ấn làm tươi không bị tình trạng này. Vẫn giữ nguyên hiển thị ở listbox là từ record 10 đến 15.

Mình thêm vào demo subform, 1 function có tác dụng khi ấn mũi tên lên hoặc xuống thì focus về record trước hoặc sau tương ứng, function đã chạy được có điều khi dùng mũi tên xuống chẳng hạn thì focus được record tiếp theo trên subform rồi, nhưng main form không find tới record đó mà vẫn ở record cũ. Cái này code như thế nào bạn.
Chữ ký của mrsiro Xin chào, mình là mrsiro, Tham gia http://thuthuataccess.com/forum từ ngày 05-12 -14.
Reply
Những người đã cảm ơn
#19
Cái vụ sau khi requery, subform giữ nguyên thì mình chịu, chưa nghĩ ra   016

Muốn main form hiển thị record đang được chọn trên sub thì đơn giản là cho Main form requery thôi (Code tương tự như khi bấm vào subform):
Thêm vào:
Mã:
Me.Parent.sRequery
Hoặc goị luôn thủ tục txtID_Click cũng được:
Mã:
call txtID_Click()

Hoặc bạn bỏ hết các sự kiện của txtID_Click và txtHoTen_Click đi, chỉ cần code cho sự kiện Form_Current (của subform) thui:
Mã:
Private Sub Form_Current()
   Me.Parent.sRequery
End Sub
Như vậy khi di chuyển record trên sub thì Main cũng sẽ thay đổi theo  015
Chữ ký của MTNQ Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn mrsiro
#20
(09-05-18, 01:08 AM)MTNQ Đã viết: Hoặc bạn bỏ hết các sự kiện của txtID_Click và txtHoTen_Click đi, chỉ cần code cho sự kiện Form_Current (của subform) thui:
Mã:
Private Sub Form_Current()
   Me.Parent.sRequery
End Sub
Như vậy khi di chuyển record trên sub thì Main cũng sẽ thay đổi theo  015

Cái này hay, để ở event này mình giải quyết được luôn 1 vấn đề khác rồi. 015
Còn cái bị thay đổi hiển thị kia thì có vẻ không phải lỗi phải gì nhưng để record nó nhảy như vậy nhiều khi user người ta rối, với lại nhìn không chuyên nghiệp cho lắm.
Chữ ký của mrsiro Xin chào, mình là mrsiro, Tham gia http://thuthuataccess.com/forum từ ngày 05-12 -14.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Help] Làm sao ghi giờ khi mở form và nút lệnh thực hiện ghi giờ khi kết thúc form tronghieu9792 2 1,081 25-01-16, 11:30 AM
Bài mới nhất: tronghieu9792
  [Hỏi] [Hep]honglv157_Tạo công thức tính trung bình của các tiêu chí đánh giá GV maidinhdan 14 3,315 15-07-15, 09:51 AM
Bài mới nhất: maidinhdan
  [Hỏi] Có ai mắc lôi tìm kiếm theo điều kiện trên office 2007 không thực hiện lệnh applyfite quanghoasla 0 678 29-11-14, 11:30 PM
Bài mới nhất: quanghoasla
  [Help] Nhờ hướng dẫn công thức trên Forms DoquangLam 3 1,308 08-04-14, 04:55 PM
Bài mới nhất: DoquangLam
  [Hỏi] Gọi thực hiện 1 Private Sub trên Form này từ Form khác. Minh Tiên 10 3,324 25-01-14, 04:54 PM
Bài mới nhất: Minh Tiên

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ơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line