Tùy chọn
Phương thức findfirst
- Phương thức findfirst
-
RE: Phương thức findfirst
MTNQ > 01-05-18, 09:44 AM
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 -
RE: Phương thức findfirst
mrsiro > 01-05-18, 01:01 PM
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 -
RE: Phương thức findfirst
MTNQ > 01-05-18, 03:07 PM
Bạn bỏ cái điều kiện if đi:
Mã:Call FindRec(Me, "[ID] = " & Me.lstTest.Value) -
RE: Phương thức findfirst
mrsiro > 02-05-18, 11:33 PM
thay listbox bằng subfrom dạng datashet hoặc continous thì code sao bạn. -
RE: Phương thức findfirst
MTNQ > 04-05-18, 04:46 PM
(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 -
RE: Phương thức findfirst
mrsiro > 06-05-18, 09:11 PM
(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. -
RE: Phương thức findfirst
MTNQ > 07-05-18, 10:02 AM
Bạn tải lại nhé:
http://www.mediafire.com/file/igf5dctbnt...ecord2.rar -
RE: Phương thức findfirst
mrsiro > 07-05-18, 04:40 PM
(07-05-18, 10:02 AM)MTNQ Đã viết: Bạn tải lại nhé:
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ị.
http://www.mediafire.com/file/igf5dctbnt...ecord2.rar
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. -
RE: Phương thức findfirst
MTNQ > 09-05-18, 01:08 AM
Cái vụ sau khi requery, subform giữ nguyên thì mình chịu, chưa nghĩ ra
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:
Hoặc goị luôn thủ tục txtID_Click cũng được:Mã:Me.Parent.sRequery
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:
Như vậy khi di chuyển record trên sub thì Main cũng sẽ thay đổi theoMã:Private Sub Form_Current()
Me.Parent.sRequery
End Sub
-
RE: Phương thức findfirst
mrsiro > 09-05-18, 08:54 AM
(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:
Như vậy khi di chuyển record trên sub thì Main cũng sẽ thay đổi theoMã:Private Sub Form_Current()
Me.Parent.sRequery
End Sub
Cái này hay, để ở event này mình giải quyết được luôn 1 vấn đề khác rồi.
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.