Tùy chọn
Click double vào record trên submain để xem thông tin của record đó trên mainform
- Click double vào record trên submain để xem thông tin của record đó trên mainform
-
Click double vào record trên submain để xem thông tin của record đó trên mainform
hueqlhc > 07-10-11, 10:33 AM
Mình có cơ sở dữ liệu như sau:
http://www.mediafire.com/?gyggpzdlfduhr1u
Vấn đề mình muốn hỏi là mình có mainform là: F_Tiepnhan và subform: Q_hosomoinhan1
Mình muốn khi click đúp và record bất kỳ trong Subform thì các thông tin của record đó sẽ hiện lên trên mainform để xem và chỉnh sửa có được không?
Mong các bạn quan tâm giúp đỡ. Thanks
-
RE: Click double vào record trên submain để xem thông tin của record đó trên mainform
quanghoasla > 07-10-11, 09:18 PM
ok. việc này làm được bạn ạ. ở trên subform hoặc bạn dùng listbox cũng được. ở đây mình làm trên listbox cũng tương tự. bạn chọn sự kiện afterupdate: bạn thêm đoạn code này :
Private Sub ListBox_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[tiepnhanid] = '" & Me![ListBox] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
mình gợi ý. bạn có thể thay l"istbox" thành tên " Q_hosomoinhan1". chúc bạn vui vẻ -
RE: Click double vào record trên submain để xem thông tin của record đó trên mainform
hueqlhc > 10-10-11, 03:00 PM
Minh lập một CSDL đơn giản và làm theo hướng dẫn của bạn nhưng không ổn
http://www.mediafire.com/?25qm3icqkrcec8c
Bạn có thể vào code để chỉnh cho mình được không nó toàn báo lỗi như sau:
http://www.mediafire.com/?bbfs3ura6d5rtsn
-
RE: Click double vào record trên submain để xem thông tin của record đó trên mainform
quanghoasla > 10-10-11, 11:24 PM
chào bạn. mình đã xem cấu trúc câu lệnh bạn viết.
Private Sub List5_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst " matiepnhan = '" & Me!List5 & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
đây là cấu trúc câu lệnh mình đã viết
Private Sub ListBox_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[tiepnhanid] = '" & Me![ListBox] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Thứ nhất:về mặt cấu trúc bạn đã thiếu dấu ngoặc đơn: [matiepnhan] & [list5] như này mới đúng.
Thứ hai: bạn phải đổi thuộc tính của matiepnhan là dạng text: không để kiểu autonumber được. nó sẽ hiểu sai giá trị.
'......................................................................................................
Đây là code sửa cho trường hợp của bạn:
Private Sub ListBox_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Matiepnhan] = '" & Me![List5] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
bạn thay vào code của bạn nhé. sau đó nhớ sửa lại thuộc tính của matiepnhan định dạng là text nhé.
Chúc bạn vui vẻ. mình đảm bảo nó sẽ chạy ngon lành ha.
-
RE: Click double vào record trên submain để xem thông tin của record đó trên mainform
hueqlhc > 11-10-11, 11:06 AM
(10-10-11, 11:24 PM)quanghoasla Đã viết: chào bạn. mình đã xem cấu trúc câu lệnh bạn viết.
Private Sub List5_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst " matiepnhan = '" & Me!List5 & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
đây là cấu trúc câu lệnh mình đã viết
Private Sub ListBox_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[tiepnhanid] = '" & Me![ListBox] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Thứ nhất:về mặt cấu trúc bạn đã thiếu dấu ngoặc đơn: [matiepnhan] & [list5] như này mới đúng.
Thứ hai: bạn phải đổi thuộc tính của matiepnhan là dạng text: không để kiểu autonumber được. nó sẽ hiểu sai giá trị.
'......................................................................................................
Đây là code sửa cho trường hợp của bạn:
Private Sub ListBox_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Matiepnhan] = '" & Me![List5] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
bạn thay vào code của bạn nhé. sau đó nhớ sửa lại thuộc tính của matiepnhan định dạng là text nhé.
Chúc bạn vui vẻ. mình đảm bảo nó sẽ chạy ngon lành ha.
Thanks ban quanghoasla nha
-
RE: Click double vào record trên submain để xem thông tin của record đó trên mainform
hueqlhc > 12-10-11, 04:58 PM
Cho mình hỏi có cách nào vẫn để thuộc tính của [Matiepnhan] vẫn là autonumber được không các ban. -
RE: Click double vào record trên submain để xem thông tin của record đó trên mainform
quanghoasla > 12-10-11, 10:20 PM
Chắc bạn muốn đánh mã số tự động? Nếu đánh số tự động rất rễ không cần phải sử dụng kiểu autonumber cũng được. mình có một các sử dụng kiểu text hoặc number vẫn có thể đánh số tự động ngon lành. nếu đúng ý của bạn như suy nghĩ của mình thì cũng đơn giản thôi.
-
RE: Click double vào record trên submain để xem thông tin của record đó trên mainform
hueqlhc > 13-10-11, 08:34 AM
(12-10-11, 10:20 PM)quanghoasla Đã viết: Chắc bạn muốn đánh mã số tự động? Nếu đánh số tự động rất rễ không cần phải sử dụng kiểu autonumber cũng được. mình có một các sử dụng kiểu text hoặc number vẫn có thể đánh số tự động ngon lành. nếu đúng ý của bạn như suy nghĩ của mình thì cũng đơn giản thôi.
Đúng rồi bạn à kiểu gì cũng được quan trọng nó là khoá chính và được đánh số tự động thôi bạn à.
Thanks bạn. -
RE: Click double vào record trên submain để xem thông tin của record đó trên mainform
quanghoasla > 13-10-11, 11:21 PM
Đây là cách mình giải quyết cho bạn. bạn tham khảo và áp dụng cho trường hợp của bạn nhé.
Dưới đây là demo của mình.http://www.mediafire.com/?kg7ooq84fwg67s5. Chúc bạn vui vẻ
-
RE: Click double vào record trên submain để xem thông tin của record đó trên mainform
hueqlhc > 14-10-11, 03:24 PM
(13-10-11, 11:21 PM)quanghoasla Đã viết: Đây là cách mình giải quyết cho bạn. bạn tham khảo và áp dụng cho trường hợp của bạn nhé.
Mình đã giải quyết được vấn đề này. Cảm ơn ban rất nhiều.
Dưới đây là demo của mình.http://www.mediafire.com/?kg7ooq84fwg67s5. Chúc bạn vui vẻ